R Markdown

library(leaflet) library(tidyverse) library(dplyr) library(rmarkdown) setwd(“C:/Users/A104090/Documents/My Received Files/GIS”) dream <- read_csv(“dream.csv”) leaflet() %>%

addTiles(group = “OSM”) %>%

addProviderTiles(“OpenStreetMap”, group=“ESRI”) %>%

addMarkers(data=dream, popup = ~as.character(Name), label = ~as.character(Name)) %>%

addLayersControl(baseGroups = c(“OSM”, “ESRI”, “CartoDB”)) %>%

setView(lat= -1.3107, lng=36.8250, zoom=6)