Добавьте загрузочный счетчик с пакетом 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)
    )
  }
)