if(interactive()){
library(shiny)
library(toro)
all_tiles <- get_tile_options()
ui <- fluidPage(
tagList(
mapOutput("map"),
selectInput("tile_layer", "Select Tile Layer", choices = all_tiles)
)
)
server <- function(input, output, session) {
output$map <- renderMap({
map(loadedTiles = all_tiles)
})
observe({
mapProxy("map") |>
set_tile_layer(tiles = input$tile_layer)
}) |>
bindEvent(input$tile_layer)
}
}
Run the code above in your browser using DataLab