반짝이는 가로 스크롤 문제 R

Question

새로운 반짝이는 R이 있는데 가로 스크롤 문제가 있습니다. 여기 내 코드가있다.

output$sbirx.view <- DT::renderDataTable(
{ 
    dataset.filter() 
}, options = list(
        searching = TRUE, 
        autoWidth=TRUE, 
        paging=FALSE, 
        scrollX=TRUE, 
        scrollY="500px", 
        scrollCollapse = TRUE, 
        fixedHeader=TRUE, 
        fixedColumns=list(leftColumns = 2, rightColumns = 0, 
            heightMatch = 'none') 
       ), 
      rownames=FALSE, 
      class = 'cell-border stripe', 
      extensions = c('FixedColumns',"FixedHeader") 

)

데이터는 79 열이 나는 내가 표시 할 얼마나 많은 컬럼에 대한 옵션이 있습니다. 처음 2 개의 왼쪽 열 (DISEASE 및 PRODUCT)은 고정되어야하며 3 열만 표시하는 경우 테이블은 다음과 같습니다. 그러나 화면에 맞는 열을 여러 개 선택하면 아무런 문제가 없습니다.

질병 제품 병 제품 2010-11 Disease1 제품 1 Disease1 제품 1 25,000 Disease1 제품 2 Disease1 제품 2 15,000 Disease1 제품 3 Disease1 제품 3 5000

어떤 옵션을 사용하여이 문제를 해결하는 방법이 있나요?

시간과 도움에 감사드립니다.

Answer 1

그것은이 누락 된 Scroller 확장 옵션 귀하의 선언을 수정하고 지정하는 것과 같은 간단한 것처럼 보이는 :

library("shiny") 
library("DT") 

ui <- shinyUI(
    fluidPage(
    dataTableOutput("data") 
) 
) 

server <- shinyServer(function(input, output) { 

    output$data <- renderDataTable({ 
    datatable(cbind(iris, iris, iris, iris), 
       extensions = c("FixedColumns", "FixedHeader", "Scroller"), 
       options = list(
       # dom = 't', 
       # deferRender = TRUE, 
       searching = TRUE, 
       autoWidth = TRUE, 
       # scrollCollapse = TRUE, 
       rownames = FALSE, 
       scroller = TRUE, 
       scrollX = TRUE, 
       scrollY = "500px", 
       fixedHeader = TRUE, 
       class = 'cell-border stripe', 
       fixedColumns = list(
        leftColumns = 3, 
        heightMatch = 'none' 
       ) 
       ) 
      ) 
    }) 
}) 

shinyApp(ui, server)