使用 R 制作的渲染表的行滑块 - ShinyApp 的 DataTable答案

【问题标题】：Row-slider for the rendered table made using R - DataTable for ShinyApp使用 R 制作的渲染表的行滑块 - ShinyApp 的 DataTable
【发布时间】：2020-11-06 09:23:33
【问题描述】：

我必须在 shiny-mainPanel() 上显示一个大数据框。我将library("DT") 用于renderDT({}) 和datatable(df,rownames = FALSE) 的目的。数据框中的行具有非常长的字符串值，这会扭曲主面板上呈现的表格的形状。

这是包含所有列的扭曲表

这是列较少的 clean-table

我希望显示所有列，就像显示在 clean-table 中一样。我正在尝试制作一个用于滑过行的滑块，但找不到datatable()的任何内置选项

用户界面上的功能

mainPanel(DT::dataTableOutput("table"))

服务器上的功能

 output$table <- renderDT({datatable(df,rownames = FALSE)})

【问题讨论】：

你能提供一个使用dput()的字符串值很长的行的例子吗？

标签： r shiny dt

【解决方案1】：

您可以在 Datatable 中设置选项scrollX = TRUE。
Datatable javascript 库的所有选项，特别是 scrollX，可以使用 òptions 参数为 set in Shiny。
试试看：

ui <- fluidPage(
  title = 'DataTable Options',
  tabPanel('Display length',     DT::dataTableOutput('ex1'))
)

server <- function(input, output) {
  
  # A lot of columns
  df <- cbind(head(mtcars),head(iris)) 
  output$ex1 <- DT::renderDataTable(
    DT::datatable(df, options = list(scrollX = T))
  )
}

shinyApp(server = server,ui)

【讨论】：