if(interactive()){
library(shiny)
library(toro)
ui <- fluidPage(
tagList(
mapOutput("map"),
actionButton("remove_draw_control", "Remove draw control")
)
)
server <- function(input, output, session) {
output$map <- renderMap({
map() |>
add_draw_control()
})
observe({
req(input$map_loaded)
mapProxy("map") |>
remove_draw_control()
}) |>
bindEvent(input$remove_draw_control)
}
}
Run the code above in your browser using DataLab