R Shiny and Leaflet # 4 - A simple map which demos setView() and addMarkers() functions and mapping "Taj Mahal, Agra, India"

server.r

library(shiny)
library(leaflet)

## renderLeaflet() is used at server side to render the leaflet map 

shinyServer(function(input, output) {
  output$mymap <- renderLeaflet({
    # define the leaflet map object
    leaflet() %>%
      addTiles() %>%
      setView(lng = 78.0419, lat = 27.1750 , zoom = 15) %>%
      addMarkers(lng = 78.0419, lat = 27.1750, popup = "Taj Mahal, Agra, India") # uncomment following if want to have a pop up %>%
      # addPopups(lng = 78.0419, lat = 27.1750, popup = "Taj Mahal, Agra, India") 
    
  })

})

ui.r

library(shiny)
library(leaflet)
## leafletOutput is used at the ui side to display the rendered map.

shinyUI(fluidPage(
  leafletOutput("mymap")

))