Это отображает все как следует:
library(shiny)
testData <- data.frame(replicate(70, sample(0:10, 90000, rep=TRUE)))
write.csv(testData, file = "testData.csv", row.names = FALSE)
csvData <- read.csv("testData.csv")
ui <- fluidPage(
DT::dataTableOutput("mytable")
)
server <- function(input, output) {
output$mytable <- DT::renderDataTable(csvData , options = list(pageLength = 10, width="100%", scrollX = TRUE))
}
shinyApp(ui = ui, server = server)