updateProgressBar shows [object Object] when title is of class shiny.tag

[jpdugo]

I am using progressSweetAlert and passing a shiny.tag into the title. That works because progressSweetAlert actually calls sendSweetAlert and uses insertUI to display the progressBar. The thing is that when I try to pass another shiny.tag in the title parameter of the updateProgressBar function, the messageHandler tries to parse it as a literal character so [object Object] is displayed.
I know that there are alternative solutions to achieve this, but I wanted to ask the following questions:

• Should updateProgress throw an error when shiny.tags are used in its arguments?
• It's feasible to implement an html argument like the one sendSweetAlert has?
• What are your thoughts about this?

Here's a reprex:

box::use(
  shiny[...],
  shinyWidgets[
    progressSweetAlert, closeSweetAlert, useSweetAlert, updateProgressBar
  ]
)

ui <- fluidPage(
  useSweetAlert(),
  actionButton("btn", "Click me")
)

server <- function(input, output, session) {
  observeEvent(input$btn, {
    progressSweetAlert(
      id = "progress",
      title = tagList("Progress", icon("spinner", class = "fa-spin")),
      value = 0
    )

    Sys.sleep(1)
    
    updateProgressBar(
      id = "progress",
      value = 50,
      title = tagList("Progress 2", icon("check", class = "fa-spin")),
    )

    Sys.sleep(2)
    closeSweetAlert(session)
  })
}

shinyApp(ui, server)

sessionInfo

R version 4.3.2 (2023-10-31)
Platform: aarch64-unknown-linux-gnu (64-bit)
Running under: Ubuntu 22.04.3 LTS

Matrix products: default
BLAS:   /usr/lib/aarch64-linux-gnu/openblas-pthread/libblas.so.3 
LAPACK: /usr/lib/aarch64-linux-gnu/openblas-pthread/libopenblasp-r0.3.20.so;  LAPACK version 3.10.0

locale:
 [1] LC_CTYPE=en_US.UTF-8       LC_NUMERIC=C              
 [3] LC_TIME=en_US.UTF-8        LC_COLLATE=en_US.UTF-8    
 [5] LC_MONETARY=en_US.UTF-8    LC_MESSAGES=en_US.UTF-8   
 [7] LC_PAPER=en_US.UTF-8       LC_NAME=C                 
 [9] LC_ADDRESS=C               LC_TELEPHONE=C            
[11] LC_MEASUREMENT=en_US.UTF-8 LC_IDENTIFICATION=C       

time zone: Etc/UTC
tzcode source: system (glibc)

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

other attached packages:
[1] shiny_1.8.0

loaded via a namespace (and not attached):
 [1] digest_0.6.33      shinyWidgets_0.8.0 later_1.3.2       
 [4] R6_2.5.1           httpuv_1.6.13      fastmap_1.1.1     
 [7] fontawesome_0.5.2  magrittr_2.0.3     cachem_1.0.8      
[10] memoise_2.0.1      htmltools_0.5.7    lifecycle_1.0.4   
[13] promises_1.2.1     cli_3.6.2          xtable_1.8-4      
[16] sass_0.4.8         jquerylib_0.1.4    renv_1.0.3        
[19] compiler_4.3.2     tools_4.3.2        bslib_0.6.1       
[22] ellipsis_0.3.2     mime_0.12          Rcpp_1.0.11       
[25] rlang_1.1.2        jsonlite_1.8.8     box_1.1.3 

Thanks

[pvictor]

Hello,
I've updated updateProgressBar() so it accepts HTML in the title, if you re-install from GitHub, it should work fine.

Victor