将滚动条添加到闪亮的框中

Question

我已经使用 box() 函数在 R shiny 仪表板页面上实现了一个框，它加载 table 并代表一个充满人口数字的列。然而，数字超过了 table，看起来很糟糕。我希望在框中添加一个滚动条，以便数据保留在框中，并且我可以轻松向下滚动。

box( title = "Btest", status = "primary",height = 355, solidHeader = T, 
                              tableOutput("table1"))

Answer 1

您可以使用库 (DT)。它为 JavaScript 库数据表提供了一个 R 接口。 R 数据对象（矩阵或数据框）可以在 HTML 页上显示为表格，DataTables 在表格中提供过滤、分页、排序和许多其他功能。

您的代码将如下所示：

ui.r:

box(
title = "View Data", 
width = NULL,
status = "primary", 
solidHeader = TRUE,
collapsible = TRUE,
div(style = 'overflow-x: scroll', DT::dataTableOutput('view_data'))
     )

在server.r

view_data_fun<-eventreactive/reactive/observe/observeevent({

#your table generation code

  })

output$view_data<-DT::renderDataTable({
    DT::datatable(view_data_fun(),rownames = FALSE)%>%formatStyle(columns=colnames(view_selected_data_fun()),background = 'white',color='black')
  })

您可以更改 %>%formatstyle 中的选项。更多阅读 DT information

将滚动条添加到闪亮的框中

add a scrollbar to a box in shiny

r

box

shinydashboard