library(shiny)
library(bsplus)
library(htmltools)
library(shinydashboard)

# UI
ui <-
  dashboardPage(
    dashboardHeader(title = "Title"),
    dashboardSidebar(
      use_bs_popover(),
        selectInput(
          inputId = "letter",
          label = "Label with popover help",
          choices = c("a", "b", "c")
        ) %>%
        shinyInput_label_embed(
          shiny_iconlink() %>%
            bs_embed_popover(
              title = "Letter", content = "Choose a favorite", placement ="right"
            )
        )
    ),
    dashboardBody(
    )
)

# Server
server <- shinyServer(function(input, output) {
})

# Run the applicationenter image description here
shinyApp(ui = ui, server = server)