R Shiny and Leaflet # 1 - Demo leaflet() function code snippet

server.r

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

output$mymap <- renderLeaflet({
# define the leaflet map object
    leaflet() # this will just define the map widget
  })
  
  })

ui.r

library(shiny)
library(leaflet)
shinyUI(fluidPage(
leafletOutput("mymap") # empty map will show up as we defined only the map widget in server side but did not add the base map tile
))