Datensatz-Ausgabe in Shinyapp in R mit DT-Paket zeigt nicht die vollständigen Daten

Question

Ich möchte meine vollständigen Daten auf dem shinyapp-Ausgang anzeigen. Meine Datenmenge ist 31 Spalten breit, aber mit DT :: renderDataTable bekomme ich nur maximal 17 Spalten. Ich muss sehen oder zumindest in der Lage sein, nach rechts und links zu blättern, um die gesamte Datentabelle auf meiner glänzenden App zu sehen. Hier ist der UI- und SERVER-Code unten.

Meine Frage: Ist das möglich? Oder gibt es eine Begrenzung für die Anzahl der Spalten, die das DT-Paket in der glänzenden App anzeigen kann?

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 ############## 
      ) 
) 

Unten ist mein Server-Code ...

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

Es scheint, um Ihre Frage zu this one ähnlich ist. Wie in der Verbindung oben beschrieben, ist es möglich, durch Zugabe von options = list(scrollX = TRUE) Parameter an die Funktion renderDataTable eine horizontale Bildlaufleiste hinzuzufügen (nach ( und vor {).