agregar popovers a la aplicación brillante?
Me gustaría agregar un (?) Al lado del título de un widget para que el usuario pueda desplazarse o hacer clic en él y obtener información adicional y un enlace en el que pueden hacer clic.
Esto es lo que tengo ahora:
## 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)
Pero está lejos de ser perfecto. Por ejemplo, la ubicación de (?) No está al lado de "Entrada de archivo" y para cerrar el popover debe hacer clic en el signo de interrogación nuevamente en lugar de tener una (x) en el popover.