A leaflet interactive map for the Griffith Observatory in LA

setwd("~/Desktop/coursera/Developing Data Products")
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
GO<- data.frame(lat = 34.1184, lng = -118.3004)
GOIcon<- makeIcon(iconUrl = "https://www.myiconstory.com/wp-content/uploads/2018/07/Los-Angeles-Griffith-Observatory-.png", iconWidth = 31*215/230, iconHeight = 31, iconAnchorX = 31*215/230/2)
GO %>% leaflet() %>% addTiles()%>% addMarkers(icon = GOIcon, popup = "<a href = 'https://griffithobservatory.org/'>Griffith Observatory</a>")%>% addRectangles(lat1 = 34.119, lat2 = 34.117, lng1 = -118.305, lng2 = -118.295)