R Shiny - Add popover to boxdropdown element

Question

Taking the example from the shinyBS website, I would like to add a boxdropdown menu with an element which - when clicked/hovered over - should display some information. I followed the example but somehow the info is not displayed.

library(shiny)
library(shinyBS)
library(shinydashboardPlus)

shinyApp(
  ui =
    fluidPage(
      sidebarLayout(
        sidebarPanel(
          sliderInput("bins",
                      "Number of bins:",
                      min = 1,
                      max = 50,
                      value = 30),
          bsTooltip("bins", "The wait times will be broken into this many equally spaced bins",
                    "right", options = list(container = "body"))
        ),
        mainPanel(
          box(
            title = "Plot",
            plotOutput("distPlot"),
            solidHeader = T,
            dropdownMenu = boxDropdown(
              boxDropdownItem(id = "showDescription", "Description", icon = icon("info-circle")),
              icon = icon("bars")
            )
          )
        )
      )
    ),

  server =
    function(input, output, session) {
      output$distPlot <- renderPlot({
        
        # generate bins based on input$bins from ui.R
        x    <- faithful[, 2]
        bins <- seq(min(x), max(x), length.out = input$bins + 1)
        
        # draw the histogram with the specified number of bins
        hist(x, breaks = bins, col = 'darkgray', border = 'white')
        
      })
      addPopover(session, "showDescription", "Data", content = paste0("blablabla"), trigger = 'click')
    }
)