R Shiny and Leaflet # 3 - Demo of different types of base map tiles

server.r

library(shiny)
library(leaflet)
shinyServer(function(input, output) {

    output$mymap <- renderLeaflet({
      input$update   # catching the action button event
      isolate(leaflet() %>%
                      addProviderTiles(input$bmap))


      })
           

})

ui.r

library(shiny)
library(leaflet)
shinyUI(bootstrapPage(
  leafletOutput("mymap"),
  absolutePanel(top = 25, right = 20, width = 150, draggable = TRUE,
                selectInput("bmap", "Base map tile provider", choices = c("Stamen.Toner", 
                                                                          "CartoDB.Positron",
                                                                          "Esri.WorldImagery",
                                                                          "MapQuestOpen.OSM",
                                                                          "Stamen.Watercolor"), 
                            selected = "CartoDB.Positron"),
                actionButton("update", "Update Map!"))
  
))