使用 R DataTable 包添加加载微调器

【问题标题】：Add loading spinner with R DataTable package使用 R DataTable 包添加加载微调器
【发布时间】：2018-08-02 17:47:24
【问题描述】：

我尝试将 cssloader 包与 DT 包一起使用，但出现错误

警告：数据表中的错误：“数据”必须是二维的（例如数据框或矩阵）

是否有另一种方法可以添加与 renderDT 一起使用的加载微调器？也许是一个隐藏/显示的条件面板？

任何帮助表示赞赏！

【问题讨论】：

请提供a reproducible example

标签： r shiny spinner dt css-loader

【解决方案1】：

这是DT 和shinycssloaders 的工作示例

library(shiny)
library(DT)
library(shinycssloaders)
shinyApp(
  ui = fluidPage(fluidRow(column(12,withSpinner(DT::DTOutput('tbl'))))),
  server = function(input, output) {
    Sys.sleep(2)
    output$tbl = renderDT(
      iris, options = list(lengthChange = FALSE)
    )
  }
)

【讨论】：

哇...几个月来我一直在寻找这个功能。感谢您为在任何 UI 元素中复制提供动态答案。