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

server.r

library(shiny)
library(leaflet)
shinyServer(function(input, output) {
  output$mymap <- renderLeaflet({
    # define the leaflet map object
    leaflet() %>%
      addTiles() %>%
      setView(lng = 82.9739144,lat = 25.3176452, zoom = 2) %>%
      # Add a pop up to map by using addPopups() function
      addPopups(lng = 82.9739144, lat = 25.3176452, popup = "Varanasi - My Birth Place") 
  })
  
})

ui.r

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