--- title: "R Markdown and Leaflet Assignment" author: "Charlotte" date: "August 8 2021" output: html_document --- ```{r setup, include=FALSE} knitr::opts_chunk$set(echo = TRUE) ``` ##My Map ```{r, eval=FALSE} library(leaflet) my_map <- leaflet() %>% addTiles() my_map ``` ## Markers ```{r, eval=FALSE, echo=TRUE, warning=FALSE} library(leaflet) my_map <- my_map %>% addMarkers(lat=43.642567, lng=-79.387054, popup = "CN Tower") my_map <- my_map %>% addMarkers(lat = 43.6424, lng = -79.3860, popup = "Ripley's Aquarium") my_map ```