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

Question

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

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

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

任何帮助表示赞赏！

Answer 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)
    )
  }
)