Interactive Map (Course Project 1- DDP)

knitr::opts_chunk$set(echo = TRUE)
library(knitr)
library(leaflet)

## Warning: package 'leaflet' was built under R version 4.0.2

library(dplyr)

## Warning: package 'dplyr' was built under R version 4.0.2

## 
## Attaching package: 'dplyr'

## The following objects are masked from 'package:stats':
## 
##     filter, lag

## The following objects are masked from 'package:base':
## 
##     intersect, setdiff, setequal, union

map <- leaflet() %>%
  addTiles() %>%  # Add default OpenStreetMap map tiles
  addMarkers(lat=18.9220, lng=72.8347, popup="Gateway of India, Mumbai") %>%
  addMarkers(lat=18.9426,lng=72.8311, popup="St.Xavier's College, Mumbai") %>%
  addMarkers(lat=19.0168,lng=72.8302, popup="Siddhivinayak Mandir, Mumbai") %>%
  addMarkers(lat=18.9908,lng=72.8189, popup="Nehru Science Centre, Mumbai") %>%
  addMarkers(lat=18.9842,lng=72.8201, popup="Mahalakshmi Race Course, Mumbai") %>%
  addMarkers(lat=19.2285,lng=72.8059, popup="Global Vipassana Pagoda, Mumbai")
  
  
map  # Print the map