library("shiny")
numericInput(inputId = "foo", label = "Enter a number", value = 0) %>%
shinyInput_label_embed(
shiny_iconlink() %>%
bs_embed_popover(title = "Number", content = "Not a complex number")
)
Run the code above in your browser using DataLab