10/20/2020, Assignment for Data Product Development

#10/20/2020 ## Hi There #### Let me take the coordinates of the favourite city in which I lived. It’s a little hamlet in England called Ipswich in Suffolk, East Anglia.

library(knitr)
library(leaflet)
library(dplyr)

## 
## 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

chan <- leaflet() %>%
  addTiles() %>%
  addMarkers(lat=52.071836, lng=1.180465, popup="Northgate High School") %>%
  addMarkers(lat=52.052084,lng=1.164354, popup="Neptune Marina") %>%
  addMarkers(lat=52.052453,lng=1.163431, popup="University of Suffolk") %>%
  addMarkers(lat=52.047850,lng=1.170896, popup="Hollywells Park") %>%
  addMarkers(lat=52.060611,lng=1.157950, popup="Christchurch Mansion") %>%
  addMarkers(lat=52.058831,lng=1.152802, popup="Debenhams") %>%
  addMarkers(lat=52.056884,lng=1.153469, popup="Buttermarket Centre") #%>%
chan

I hope you like this beautiful city, Ipswich, of ours.