golferwu
根据这个改你的app吧,你的示例数据你没提供。另外datatable你丢了一个.
。
shinyApp(
ui = fluidPage(titlePanel('Hello Table'),
fluidRow(
column(1),
column(10,
wellPanel(dataTableOutput("mytable"))),
column(1)
)),
server = function(input, output, session) {
output$mytable <- renderDataTable({
library(data.table)
library(dplyr)
data.table(
data = mtcars %>% select(1:3),
options = list(pageLength = 10),
rownames = FALSE
)
})
}
)