Nesting tooltips and popovers breaks placement of outer overlay

[gadenbuie]

Screen.Recording.2026-01-16.at.12.10.07.PM.mov

library(shiny)
library(bslib)

ui <- page_fluid(
  class = "p-5",
  tooltip(
    popover(
      actionButton("settings", "tooltip > popover"),
      radioButtons(
        inputId = "color_scheme",
        label = NULL,
        choices = c("Light", "Dark", "Colorblind Friendly"),
        selected = "Light",
        inline = TRUE
      ),
      title = "Chart Color Scheme"
    ),
    "Settings"
  ),
  popover(
    tooltip(
      actionButton("more_settings", "popover > tooltip"),
      "More Settings"
    ),
    radioButtons(
      inputId = "more_color_scheme",
      label = NULL,
      choices = c("Light", "Dark", "Colorblind Friendly"),
      selected = "Light",
      inline = TRUE
    ),
    title = "More Chart Color Scheme"
  )
)

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

shinyApp(ui, server)