COVID-19 Educator Deaths

library(leaflet)

covid <- read.csv("covid_teachers.csv")

covid_map <- leaflet(covid) %>%
  addProviderTiles(providers$Stamen.Toner,
                   options = providerTileOptions(opacity=0.5)) %>%
  addCircleMarkers(~lon,~lat,popup=~as.character(location)) %>%
  setView(lng=-99.9018,lat=41.4925,zoom=3.5) 

covid_map