DT 패키지를 사용하는 R의 Shinyapp에서 Dataset 출력에 전체 데이터가 표시되지 않습니다.

Question

shinyapp 출력에 전체 데이터를 표시하고 싶습니다. 내 데이터 세트는 31 열이지만 DT :: renderDataTable을 사용하면 최대 17 개의 열만 가져옵니다. 적어도 반짝이는 앱에서 전체 데이터 테이블을보기 위해서는 좌우로 스크롤 할 수 있어야합니다. 아래는 UI 및 SERVER 코드입니다.

내 질문 : 가능합니까? 아니면 DT 패키지가 반짝이는 앱에 표시 할 수있는 열 수에 제한이 있습니까?

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

귀하의 질문에 this one과 비슷한 것 같다 ... 내 서버 코드입니다. 상기 한 바와 같이 링크 ,합니다 (renderDataTable options = list(scrollX = TRUE) 함수 매개 변수를 추가하여 수평 스크롤을 추가 할 수있다 후 ( 및 {) 전.