The spinner cannot show properly in the first run

[Molaison]

I was using Waiter to show a spinner before the results were calculated. But I encountered a problem that the waiter component didn't show when the data was calculated for the first time.

The versions information of R and R packages I used are as follows:

R version 4.2.0 (2022-04-22 ucrt)
Platform: x86_64-w64-mingw32/x64 (64-bit)
Running under: Windows 10 x64 (build 19044)

Matrix products: default

locale:
[1] LC_COLLATE=Chinese (Simplified)_China.utf8 
[2] LC_CTYPE=Chinese (Simplified)_China.utf8   
[3] LC_MONETARY=Chinese (Simplified)_China.utf8
[4] LC_NUMERIC=C                               
[5] LC_TIME=Chinese (Simplified)_China.utf8    

attached base packages:
[1] parallel  stats     graphics  grDevices datasets  utils     methods   base     

other attached packages:
 [1] shinycssloaders_1.0.0 waiter_0.2.5          forcats_0.5.2        
 [4] readr_2.1.2           tidyverse_1.3.2       shinyBS_0.61.1       
 [7] shinyWidgets_0.7.5    shinyjs_2.1.0         shinyalert_3.0.0     
[10] DT_0.24               jsonlite_1.8.4        xml2_1.3.3           
[13] rvest_1.0.3           httr_1.4.4            shinydashboard_0.7.2 
[16] MantaID_1.0.2         rpart_4.1.16          xgboost_1.6.0.1      
[19] ranger_0.14.1         ggcorrplot_0.1.4      RColorBrewer_1.1-3   
[22] tidyselect_1.2.0      tidyr_1.2.0           tibble_3.1.8         
[25] stringr_1.4.1         scutr_0.1.2           reshape2_1.4.4       
[28] purrr_1.0.0           mlr3learners_0.5.1    mlr3tuning_0.13.1    
[31] paradox_0.10.0        mlr3_0.13.4           magrittr_2.0.3       
[34] keras_2.11.0          dplyr_1.0.9           data.table_1.14.2    
[37] caret_6.0-93          lattice_0.20-45       ggplot2_3.4.0        
[40] biomaRt_2.54.0        shiny_1.7.4          

loaded via a namespace (and not attached):
  [1] utf8_1.2.2             R.utils_2.12.2         reticulate_1.26       
  [4] RSQLite_2.2.20         AnnotationDbi_1.60.0   htmlwidgets_1.5.4     
  [7] grid_4.2.0             mlr3misc_0.11.0        pROC_1.18.0           
 [10] sourcetools_0.1.7      munsell_0.5.0          codetools_0.2-18      
 [13] bbotk_0.7.2            future_1.27.0          withr_2.5.0           
 [16] colorspace_2.0-3       Biobase_2.58.0         filelock_1.0.2        
 [19] uuid_1.1-0             rstudioapi_0.14        stats4_4.2.0          
 [22] tensorflow_2.11.0      listenv_0.8.0          labeling_0.4.2        
 [25] GenomeInfoDbData_1.2.9 lgr_0.4.3              farver_2.1.1          
 [28] bit64_4.0.5            rprojroot_2.0.3        parallelly_1.32.1     
 [31] vctrs_0.5.1            generics_0.1.3         ipred_0.9-13          
 [34] BiocFileCache_2.6.0    R6_2.5.1               GenomeInfoDb_1.34.6   
 [37] mlr3measures_0.5.0     bitops_1.0-7           cachem_1.0.6          
 [40] assertthat_0.2.1       promises_1.2.0.1       scales_1.2.1          
 [43] vroom_1.5.7            nnet_7.3-17            googlesheets4_1.0.1   
 [46] gtable_0.3.1           globals_0.16.1         timeDate_4021.107     
 [49] rlang_1.0.6            zeallot_0.1.0          splines_4.2.0         
 [52] ModelMetrics_1.2.2.2   gargle_1.2.0           smotefamily_1.3.1     
 [55] broom_1.0.1            checkmate_2.1.0        yaml_2.3.5            
 [58] modelr_0.1.9           crosstalk_1.2.0        backports_1.4.1       
 [61] rsconnect_0.8.28       httpuv_1.6.7           tools_4.2.0           
 [64] lava_1.7.0             ellipsis_0.3.2         jquerylib_0.1.4       
 [67] BiocGenerics_0.44.0    Rcpp_1.0.9             plyr_1.8.7            
 [70] base64enc_0.1-3        progress_1.2.2         zlibbioc_1.44.0       
 [73] RCurl_1.98-1.9         prettyunits_1.1.1      openssl_2.0.2         
 [76] S4Vectors_0.36.1       fontawesome_0.4.0      haven_2.5.1           
 [79] fs_1.5.2               here_1.0.1             reprex_2.0.2          
 [82] googledrive_2.0.0      whisker_0.4.1          R.cache_0.16.0        
 [85] hms_1.1.2              mime_0.12              xtable_1.8-4          
 [88] XML_3.99-0.13          mclust_6.0.0           readxl_1.4.1          
 [91] IRanges_2.32.0         tfruns_1.5.1           compiler_4.2.0        
 [94] crayon_1.5.2           R.oo_1.25.0            htmltools_0.5.4       
 [97] later_1.3.0            tzdb_0.3.0             lubridate_1.8.0       
[100] DBI_1.1.3              dbplyr_2.2.1           MASS_7.3-58.1         
[103] rappdirs_0.3.3         Matrix_1.4-1           cli_3.5.0             
[106] R.methodsS3_1.8.2      gower_1.0.1            pkgconfig_2.0.3       
[109] recipes_1.0.3          foreach_1.5.2          bslib_0.4.2           
[112] hardhat_1.2.0          XVector_0.38.0         prodlim_2019.11.13    
[115] digest_0.6.31          Biostrings_2.66.0      cellranger_1.1.0      
[118] curl_4.3.3             lifecycle_1.0.3        nlme_3.1-159          
[121] askpass_1.1            fansi_1.0.3            pillar_1.8.1          
[124] KEGGREST_1.38.0        fastmap_1.1.0          survival_3.4-0        
[127] glue_1.6.2             png_0.1-8              iterators_1.0.14      
[130] bit_4.0.5              class_7.3-20           stringi_1.7.8         
[133] sass_0.4.4             blob_1.2.3             palmerpenguins_0.1.1  
[136] memoise_2.0.1          renv_0.16.0            styler_1.8.1          
[139] future.apply_1.9.0 

To demonstrate the issue more clearly, I have prepared a shiny reprex below.

ui <- fluidPage(
  useWaiter(),
  actionButton("run", "RUN"),
  DTOutput("DTtest")
)

server <- function(input, output, session) {
  wtr_test <- Waiter$new(id = "DTtest", html = spin_dots())
  DT_result <- eventReactive(input$run, {
    wtr_test$show()
    on.exit({
      wtr_test$hide()
    })
    Sys.sleep(5)
    iris
  })
  output$DTtest <- renderDataTable(
    DT_result()
  )
}

shinyApp(ui, server)

[JohnCoene]

The first time you click "run" the DT is not present on screen, waiter cannot overlay anything, subsequent time it works fine.

Consider this below if you want this to show all the time.

library(DT)
library(shiny)

ui <- fluidPage(
  useWaiter(),
  actionButton("run", "RUN"),
  div(
    style = "min-height:400px",
    id = "DTtest-container",
    DTOutput("DTtest")
  )
)

server <- function(input, output, session) {
  wtr_test <- Waiter$new(id = "DTtest-container", html = spin_dots())
  DT_result <- eventReactive(input$run, {
    wtr_test$show()
    on.exit({
      wtr_test$hide()
    })
    Sys.sleep(5)
    iris
  })
  output$DTtest <- renderDT(
    DT_result()
  )
}

shinyApp(ui, server)