在Shiny dataTableOutput中控制表格寬度

Question

我無法控制使用dataTableOutput()函數添加到閃亮應用程序的數據表的寬度。 我試圖在函數中使用width參數，但是它在輸出中什么都沒有改變，也沒有錯誤〜這並不是在告訴我它忽略了width參數。

library(shiny)
library(shinythemes)

ui <- fluidPage(theme = shinytheme("Spacelab"),
            fluidRow(
              column(6,dataTableOutput(outputId = "table")),
              column(6,p(textOutput("para")))
  )
)

server <- function(input, output){

  df <- as.data.frame(matrix(0, ncol = 15, nrow = 20))

  output$table <- renderDataTable({df})

  output$para <- renderText({
    text <- rep(x = "Hello World",1000)
  })
}
shinyApp(ui = ui,server = server)

Answer 1

dataTableOutput沒有參數寬度。 可以使用column一個內fluidRow帶有參數的寬度，1和12之間供給的整數。

library(shinythemes)
ui <- fluidPage(theme = shinytheme("Spacelab"),
    fluidRow(
        column(
            dataTableOutput(outputId = "table"), width = 6)
    )
)

server <- function(input, output){
    df <- as.data.frame(matrix(0, ncol = 20, nrow = 5))
    output$table <- renderDataTable({df}, 
        options = list(scrollX = TRUE))
}
shinyApp(ui = ui,server = server)

JavaScript庫DataTable中的選項可以直接通過renderDataTable參數選項傳遞。 例如，將scrollX設置為true可以使表滾動。

Answer 2

如果使用“ DT” R包以及相應的DT::dataTableOutput和DT::renderDataTable ，則可以在這些調用中使用“ width”選項，這些選項顯然可以是％（例如width =“ 100％” ）或像素（寬度= 300），可以為您提供所需的控件。

參見： https : //rstudio.github.io/DT/shiny.html

從該頁面注意：

重要說明：在調用dataTableOutput和renderDataTable時，請確保使用DT ::前綴，以確保可以調用這些函數的DT版本，而不是已棄用的Shiny版本。 如果您確定先將庫（DT）放在庫（shiny）之后，則通常情況下，如果不使用DT ::前綴，則DT版本應僅覆蓋閃亮的版本（如有疑問，請使用此前綴，直到我們完全刪除這些功能為止）從閃亮）