R Shiny and Leaflet # 2 - Demo addTiles() function code snippet

server.r

library(shiny)
library(leaflet)
shinyServer(function(input, output) {
  output$mymap <- renderLeaflet({
    # define the leaflet map object
    leaflet() %>%
      addTiles() # this adds the base map tile - OSM (by default)
    
  })

})

ui.r

library(shiny)
library(leaflet)
shinyUI(fluidPage(
  leafletOutput("mymap")

))