Я хотел бы добавить (?) Рядом с заголовком виджета, чтобы пользователь мог навести на него курсор или щелкнуть по нему и получить дополнительную информацию и ссылку, по которой он может щелкнуть.

Это то, что я имею сейчас:

## 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)

Но это далеко не идеально. Например, расположение (?) Находится не рядом с «Вводом файла», и чтобы закрыть всплывающее окно, нужно снова щелкнуть знак вопроса вместо того, чтобы иметь (x) в всплывающем окне.