# knitr::opts_chunk$set(echo = FALSE)

library(leaflet)
library(sp)

# Read in test data
mydata <- read.csv('unesco_data.csv') 

# delete NA cases (non complete cases)
mydata <- mydata[complete.cases(mydata),]

# change var type to numeric (in case it is wrong format)
mydata$long <- as.numeric(mydata$long)
mydata$lat <- as.numeric(mydata$lat)

# spatial points DF is unused here at first
mydata.SP <- SpatialPointsDataFrame(mydata[,c(1,2)],mydata[-c(1,2)])

# create interactive leaflet map, with markers 
m <- leaflet() %>% 
  addTiles() %>% 
  addMarkers(data=mydata,lng=~long,lat=~lat,popup = ~paste("<h3>",site_name,"</h3>","Location: ",location ,"<br/>","<br/><i><small>Learn more about this UNESCO site<a href=",url,"> here</a></small></i><br/>"))

Final Map