光沢のある水平スクロールの問題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つの左の列（病気と製品）は固定されていなければならず、3つの列しか表示していない場合は、このような表が表示されます。しかし、画面に収まるようにいくつかの列を選択しても問題はありません。

病製品病製品2010-11 Disease1製品1製品1 Disease1 25,000 Disease1 Product2 Disease1 Product2 15,000 Disease1 Product3 Disease1 Product3 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)