R 将 DataTable 放入shiny 的仪表板框中

发布于04月02日

我读过类似问题的所有答案，但都没有奏效.非常简单的问题:如何让DataTable填满该框？下面是一段重述:

## UI

ui <- dashboardPage(
  
  dashboardHeader(disable=TRUE),
  dashboardSidebar(),
  dashboardBody(
    
    tabsetPanel(
      
      tabPanel("Main Tab",
               fluidRow(box(title = "Test",width=6,column(12,DTOutput("table1")),height=400)
                        ),
               )
    )
    
  )
)

# Server logic
server <- function(input, output) {
  
  output$table1 <- renderDT({
      iris %>% 
        datatable(options = list(dom = "t", scrollX = TRUE))
  })
  
}

# Run the application 
shinyApp(ui = ui, server = server)

推荐答案

一种方法是使用scrollY个参数:

library(shinydashboard)
library(shiny)
library(DT)


ui <- dashboardPage(
  
  dashboardHeader(disable=TRUE),
  dashboardSidebar(),
  dashboardBody(
    
    tabsetPanel(
      
      tabPanel("Main Tab",
               fluidRow(box(title = "Test",width=6,column(12,DTOutput("table1")),height=400)
               ),
      )
    )
    
  )
)

# Server logic
server <- function(input, output) {
  
  output$table1 <- renderDT({
    iris %>% 
      datatable(options = list(scrollX = TRUE,
                               scrollY = "200px"))
  })
  
}

# Run the application 
shinyApp(ui = ui, server = server)