issue using waiter with DT

Hi John!

I try to use waiter in my app, but I have a problem when showing the DT table after a waiting screen: the scroller in the table is not working. Here is an example:

I'm using waiter 0.2.2 and DT 0.19


library(shiny)
library(waiter)

ui <- fluidPage(
  use_waiter(),
  actionButton(inputId = "proc", label = "Process"),
  actionButton(inputId = "md",label = "Show modal") 

)

server <- function(input, output, session) {

  output$dt<- renderDataTable({

    datatable( iris,
               width = '100%',rownames = FALSE,
               style="bootstrap4",
               class= "hover compact",
               escape = F,
               extensions = c("Scroller"),
               options = list(
                 fixedHeader = TRUE,
                 scrollX = T,
                 scrollY=  '38vh',
                 scrollCollapse=T,
                 scroller = TRUE,
                 initComplete = JS(
                   "function(settings, json) {",
                   "$(this.api().table().header()).css({'background-color': '#e0e0e0'});",
                   "}"
                 )
               )
    )

  })

  observeEvent(input$md, {

    showModal(

      modalDialog(title = NULL, DTOutput("dt") )

    )

  })

  observeEvent(input$proc,{

    waiter_show()

    Sys.sleep(2)

    waiter_hide()

  })

}

shinyApp(ui, server)

JohnCoene / waiter

issue using waiter with DT #106