withSpinner prevents appendTab from working correctly

[AzlinII]

Here is an example

library(shiny)
library(DT)
library(shinycssloaders)

ui <- 
    fluidPage(
        actionButton("new_tab", label = "New Tab"),
        tabsetPanel(id = "test",
                    tabPanel("Test1", withSpinner(DTOutput("table"))))
    )

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

    data <- reactive({
        Sys.sleep(1)
        iris
    })

    output$table <- renderDT({
        datatable(data())
    })

    observeEvent(input$new_tab, {
        id <- Sys.time()
        appendTab("test", tab = tabPanel(id, id), select = TRUE)
    })

}
shinyApp(ui, server)

Click on the "New Tab" button creates a new tab but the content is the same as what's in the first tab. After clicking "New Tab" a second is when it actually creates the tabs.

Removing the withSpinner call allows for normal tab creation.

Here is my sessionInfo()

``` R version 3.6.1 (2019-07-05) Platform: x86_64-w64-mingw32/x64 (64-bit) Running under: Windows 10 x64 (build 17763) Matrix products: default locale: [1] LC_COLLATE=English_United States.1252 LC_CTYPE=English_United States.1252 [3] LC_MONETARY=English_United States.1252 LC_NUMERIC=C [5] LC_TIME=English_United States.1252 attached base packages: [1] stats graphics grDevices utils datasets methods base other attached packages: [1] shinycssloaders_0.3 DT_0.11 shiny_1.4.0 loaded via a namespace (and not attached): [1] Rcpp_1.0.3 rstudioapi_0.10 magrittr_1.5 xtable_1.8-4 R6_2.4.1 [6] rlang_0.4.3 fastmap_1.0.1 fansi_0.4.1 tools_3.6.1 sessioninfo_1.1.1 [11] cli_2.0.1 withr_2.1.2 htmltools_0.4.0 crosstalk_1.0.0 yaml_2.2.0 [16] digest_0.6.23 assertthat_0.2.1 crayon_1.3.4 later_1.0.0 htmlwidgets_1.5.1 [21] promises_1.1.0 glue_1.3.1 mime_0.8 compiler_3.6.1 jsonlite_1.6 [26] httpuv_1.5.2 ```

[daattali]

Please verify this is now fixed

[AzlinII]

Thanks for the quick reply! It's working now with the github version.