2017-04-11 134 views
0

我在新的閃亮的R中,並且遇到水平滾動問題。這是我的代碼。閃亮的水平滾動問題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列,我有我想要多少要顯示的列選項。前兩列(DISEASE和PRODUCT)應該是固定的,如果你只顯示3列,表格看起來像這樣。但是,如果我選擇適合屏幕的幾列,它沒有問題。

症積症積2010-11 Disease1產品1 Disease1產品1 25000 Disease1產品2產品2 Disease1 15000 Disease1產品3 Disease1產品3 5000

有沒有辦法解決這個問題任何選項?

感謝您的時間和幫助。

回答

3

它看起來就像是爲糾正你的選項聲明並指定缺少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) 

enter image description here

+0

你好mlegge。感謝您的時間。我已經運行了你的代碼,它只在我的結尾顯示了9行。當我向下滾動時,不再顯示更多行。但是,如果上下滾動滾動箭頭。它顯示了其餘的行。我將你的代碼應用到我的最後。它確實解決了我遇到的問題,但它只顯示一定數量的行。儘管它在底部說明了不止需要顯示的條目數量。 – aotearoa

+0

只需禁用滾動摺疊(見編輯),你應該有你想要的功能 – mlegge

+0

非常感謝!由於我是R和Shiny的新手,你的幫助對我來說意義重大。祝你有美好的一天! – aotearoa