if(interactive()){
library(shiny)
library(toro)
ui <- fluidPage(
tagList(
mapOutput("map"),
actionButton("remove_controls", "Remove controls")
)
)
server <- function(input, output, session) {
output$map <- renderMap({
map() |>
add_zoom_control() |>
add_custom_control(
id = "custom_control",
html = "I am a custom control"
)
})
observe({
req(input$map_loaded)
mapProxy("map") |>
remove_control("zoom_control") |>
remove_control("custom_control")
}) |>
bindEvent(input$remove_controls)
}
}
Run the code above in your browser using DataLab