Developing Data Products : R Markdown and Leaflet

download.file(url <- 'https://drive.google.com/uc?export=download&id=1b1Qb0_8thNeSMKbkC5mt0ULc8gEdTE4_',destfile<-"mapdata.csv")

 mapdata <- read.csv("mapdata.csv")

 library(leaflet)

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

 map <- mapdata %>% leaflet() %>% addTiles() %>% addMarkers(lng=mapdata$long,lat=mapdata$lat,popup = paste0("<b>",mapdata$restaurant_name,"</b>","<br>Rating: ",mapdata$rating,"<br>Price: ",mapdata$price) )
 map