R Shiny and Leaflet # 5 - Mapping my birth location - Demo addMarkers() with minimal reproducible example

server.r

library(shiny)
library(leaflet)
# we use the renderLeaflet() at the server side for leaflet maps.


shinyServer(function(input, output) {
  output$mymap <- renderLeaflet({
    # define the leaflet map object
    leaflet() %>%
    
      addTiles() %>% # default OSM base map tile
      
      # Define lat , long and zoom level. Pass them into setView as arguments
      setView(lng = 82.9739144,lat = 25.3176452, zoom = 2) %>%
      
      # Add location marker to map using addMarkers() function  
      addMarkers(lng = 82.9739144, lat = 25.3176452, popup = "Varanasi - My Birth Place")

  })
  
})

ui.r

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