[Bug]: Resize popover is not properly rendering with new version of `shiny`

[averissimo]

What happened?

shinytests2 tests are failing on plot_with_settings when the resize popup does not render any contents

When inspecting the DOM, the recalculating class appears on the elements, hence the contents of the resize popup is empty

pkgload::load_all("/home/averissimo/work/roche🟦/packages📦/teal.widgets")
shiny::shinyApp(
  ui = bslib::page_fluid(
    shiny::actionButton("button", "Show/Hide"),
    plot_with_settings_ui(
      id = "plot_with_settings"
    )
  ),
  server = function(input, output, session) {
    plot_r <- shiny::reactive({
      ggplot2::ggplot(data.frame(x = 1:5, y = 1:5)) +
        ggplot2::geom_point(ggplot2::aes(x = 1:5, y = 1:5))
    })

    show_hide_signal <- shiny::reactiveVal(TRUE)

    shiny::observeEvent(input$button, {
      show_hide_signal(
        !show_hide_signal()
      )
    })

    plot_data <- plot_with_settings_srv(
      id = "plot_with_settings",
      plot_r = plot_r,
      height = c(400, 100, 1200),
      width = c(500, 250, 750),
      brushing = TRUE,
      clicking = TRUE,
      dblclicking = TRUE,
      hovering = TRUE,
      show_hide_signal = show_hide_signal
    )

    shiny::exportTestValues(
      plot_r = plot_r,
      plot_data = plot_data
    )
  }
)

sessionInfo()

Relevant log output

Code of Conduct

• I agree to follow this project's Code of Conduct.

Contribution Guidelines

• I agree to follow this project's Contribution Guidelines.

Security Policy

• I agree to follow this project's Security Policy.

[averissimo]

Here's a smaller example of the problem! I'm creating an issue upstream

library(shiny)
ui <- bslib::page_fixed(
  theme = bslib::bs_theme("5"),
  bslib::card(class = "mt-5",
    bslib::card_header(
      bslib::tooltip(
        trigger = bslib::popover(
          trigger = shiny::icon("maximize"),
          id = "expbut",
          uiOutput("card_title"),
          uiOutput("card_yada")
        ),
        options = list(trigger = "hover"),
        class = "resize-button",
        "A tooltip"
      )
    ),
    "The card body..."
  )
)

server <- function(input, output) {
  default_slider_width <- reactiveVal(500)
  output$card_title <- renderUI({
    req(default_slider_width())
    shiny::tags$span("This is a new content")
  })
}

shiny::shinyApp(ui, server)

[averissimo]

Upstream bug: rstudio/bslib#1326