Opening the right sidebar doesn't trigger resize event (regression)

[ismirsehregal]

The same issue got fixed a few years ago and now it is back:

I'm not sure why - example code:

library(shiny)
library(shinydashboard)
library(shinydashboardPlus)

shinyApp(
  ui = dashboardPage(
    dashboardHeader(title = "Resize Demo"),
    dashboardSidebar(),
    dashboardBody(fluidPage(
      plotOutput("scatter",
                 height = "400px",
                 width = "100%")
    )),
    controlbar = dashboardControlbar(id = "controlbar")
  ),
  server = function(input, output, session) {
    output$scatter <- renderPlot({
      plot(1:10)
    })
  }
)

> sessionInfo()
R version 4.3.2 (2023-10-31 ucrt)
Platform: x86_64-w64-mingw32/x64 (64-bit)
Running under: Windows 10 x64 (build 19045)

Matrix products: default

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

other attached packages:
[1] shinydashboardPlus_2.0.3 shinydashboard_0.7.2     shiny_1.8.0             

loaded via a namespace (and not attached):
 [1] vctrs_0.6.5       cli_3.6.2         rlang_1.1.2       purrr_1.0.2       promises_1.2.1    textshaping_0.3.7 jsonlite_1.8.8   
 [8] xtable_1.8-4      htmltools_0.5.7   httpuv_1.6.13     ragg_1.2.7        sass_0.4.8        jquerylib_0.1.4   ellipsis_0.3.2   
[15] fontawesome_0.5.2 fastmap_1.1.1     lifecycle_1.0.4   memoise_2.0.1     compiler_4.3.2    Rcpp_1.0.11       rstudioapi_0.15.0
[22] later_1.3.2       systemfonts_1.0.5 digest_0.6.33     R6_2.5.1          magrittr_2.0.3    bslib_0.6.1       tools_4.3.2      
[29] mime_0.12         cachem_1.0.8     
>