Ich möchte ein (?) Neben dem Titel eines Widgets einfügen, damit der Benutzer den Mauszeiger darüber bewegen oder darauf klicken kann und zusätzliche Informationen und einen Link erhält, auf den er klicken kann.

Das habe ich gerade:

## app.R ##
library(shiny)
library(shinydashboard)
library(shinyBS)
# Header
header <- dashboardHeader()
# Sidebar
sidebar <- dashboardSidebar(fileInput("chosenfile", label = h4("File input"), 
                                      accept = ".csv"),
                            bsButton("q1", label = "", icon = icon("question"),
                                     style = "info", size = "extra-small"),
                            bsPopover(id = "q1", title = "Tidy data",
                                      content = paste0("You should read the ", 
                                                       a("tidy data paper", 
                                                         href = "http://vita.had.co.nz/papers/tidy-data.pdf",
                                                         target="_blank")),
                                      placement = "right", 
                                      trigger = "click", 
                                      options = list(container = "body")
                                      )
                            )
# Body
body <- dashboardBody()
# ui
ui <- dashboardPage(header, sidebar, body)
# server
server <- function(input, output) {

}
# run
shinyApp(ui, server)

Aber es ist alles andere als perfekt. Zum Beispiel steht die Platzierung des (?) Nicht neben "Dateieingabe" und um das Popover zu schließen, müssen Sie erneut auf das Fragezeichen klicken, anstatt ein (x) im Popover zu haben.