使用DT软件包在R中的ShinyApp中的数据集输出未显示完整数据

Question

我想在ShinyApp输出上显示我的完整数据。我的数据集宽31列，但使用DT :: RenderDataTable，我只能在最大17列中获得。我需要能够看到或至少能够向右和向左滚动以在我的Shiny应用程序上查看整个数据表。这是下面的UI和服务器代码。

我的问题：这可以做到吗？还是DT软件包可以在Shiny应用中显示的列数有限制？

ui.interface <- fluidPage(title = "Pokemon Analysis", 
            tabsetPanel(
              ########### Data table below ##############
              tabPanel(title = "Pokemon Go",
                       # plotOutput("go"),
                       titlePanel("Pokemon Go"),
                       # Create a new Row in the UI for selectInputs
                       fluidRow(
                         column(4,
                                selectInput("evostage",
                                            "Evolution Stage:",
                                            c("All",
                                              unique(as.character(dt.pokemon$EvoStage))))
                         ),
                         column(4,
                                selectInput("evo",
                                            "Evolution:",
                                            c("All",
                                              unique(as.character(dt.pokemon$EvolutionPips))))
                         ),
                         column(4,
                                selectInput("battack",
                                            "Attack:",
                                            c("All",
                                              unique(as.character(dt.pokemon$BaseAttack))))
                         )
                       ),
                       # Create a new row for the table.
                       fluidRow(
                         DT::dataTableOutput("table")
                       ))
              ########### Data table above ##############
            )
)

以下是我的服务器代码...

server.interface <- function(input, output) {
########### Data table below ##############
output$table <- DT::renderDataTable(DT::datatable({
   data <- pokemon
   if (input$evostage != "All") {
     data <- data[data$EvoStage == input$evostage,]
   }
   if (input$evo != "All") {
     data <- data[data$EvolutionPips == input$evo,]
   }
   if (input$battack != "All") {
    data <- data[data$BaseAttack == input$battack,]
   }
   data
   }))
 ########### Data table above ##############
}
shinyApp(server = server.interface, ui = ui.interface)

Answer 1

看来您的问题与此相似。如上链接中所述，可以通过将options = list(scrollX = TRUE)参数添加到RenderDatabable函数（>（）（和之前），可以添加水平滚动条。/div>