Как удалить проблему с миганием приложения с помощью функции invalidatelater() в R Shiny

#r #shiny

Вопрос:

Эта проблема все еще существует с одним из наиболее часто используемых элементов в блестящих приложениях «ТАБЛИЦЫ ДАННЫХ». Конечное намерение состоит в том, чтобы извлечь таблицу данных из базы данных и отобразить ее в приложении shiny, которое обновляется каждую секунду. Вот пример кода, в котором есть аналогичная проблема,

   library(DT)

  ui <- fluidPage(
  
  tags$style(type="text/css", ".recalculating {opacity: 1.0;}"),
  
  
  h2("The mtcars data"),
  DT::dataTableOutput("mytable")
  )

  server <- function(input, output) {
  
  
  output$mytable = DT::renderDataTable({
    
    invalidateLater(1000)
    
    mtcars
  })

  
  }

shinyApp(ui, server)
 

Джо Ченг рекомендовал здесь

 tags$style(type="text/css", ".recalculating { opacity: 1.0 !important; }")
 

и это прекрасно работает, например, в диаграммах ggplot2, но не с таблицами данных и картой-листовкой.

Есть ли какой-либо обходной путь, как удалить мигание в этом приложении? Спасибо!