Tratando de replicar la acción de un botón fácil de folleto (como se muestra en el folleto para las funciones adicionales de R Github), donde el usuario hace clic en el botón fácil y se acerca a su ubicación.

Me gustaría replicar esto pero con un botón html personalizado y JS en las etiquetas $ script.

Sin suerte hasta ahora, esfuerzos hasta ahora:

 library(shiny) library(leaflet) ui <- fluidPage( leafletOutput("mymap"), absolutePanel(id = "button_1", top = "2%", right = "2%", fixed = TRUE, HTML('<p> <button class="btn btn-large btn-primary" type="button" id="button1"><i class="icon-star"></i>Large button</button></p>'), singleton(tags$script(HTML('$("button1").on("click", function(btn, map){ map.locate({setView: true}));'))) ) ) server <- function(input, output, session) { output$mymap <- renderLeaflet({ leaflet() %>% addProviderTiles(providers$Stamen.TonerLite ) }) } shinyApp(ui, server)