Tengo información sobre herramientas que funciona en mi aplicación brillante usando solo HTML puro. Pero, la ubicación de la información sobre herramientas no se cierne sobre el botón como intento. Mi código para reproducir esto está abajo. Pensé que colocar el botón en un div haría que la información sobre herramientas se desplazara sobre el botón, pero claramente eso no es correcto.

¿Alguna sugerencia sobre cómo hacer que la información sobre herramientas se desplace directamente sobre el botón cuando paso el mouse sobre el botón?

Código a continuación y no que el archivo .js viva en el subdirectorio www de la aplicación.

Editar

Descubrí que si uso lo siguiente, se desplaza como se esperaba sobre el botón. No estoy seguro de si este es el mejor enfoque, pero parece funcionar.

 tags$a(href = "#", `data-toggle`="tooltip", `data-placement`="top", title="Is this over my button", actionButton('button', 'Button'))

ui.R

 library(shiny) library(bslib) library(shinyWidgets) ui <- fluidPage( tags$head( tags$script(src = "myscript.js") ), navbarPage( theme = bs_theme(bootswatch = "litera"), title = 'Methods', tabPanel('One'), ), sidebarLayout( sidebarPanel( fileInput('input0', 'Browse'), uiOutput("input1"), ), mainPanel( h1('Hello World!'), tags$div(class = "header", `data-toggle`="tooltip", `data-placement`="top", title="Tooltip on top", actionButton('button', 'Button') ) ), ) )

servidor.R

 server <- function(input, output) { output$input1 <- renderUI({ selectInput("input1", "Choose:", letters[1:5]) }) }

miscript.js

 $(function () { $('[data-toggle="tooltip"]').tooltip() })