markers map

markersMap.R

#create map with circle markers
leaflet(world_spdf) %>% 
  addTiles()  %>% 
  setView(lat = 0, lng = 0, zoom=2) %>%
  
  addCircleMarkers(lng = ~LON,
                   lat = ~LAT,
                   radius = ~log(Cases) * 2,
                   weight = 1,
                   opacity = 1,
                   color = ~ifelse(Cases > 0, "black", "transparent"),
                   fillColor = ~ifelse(Cases > 0, colorPalette(Cases), "transparent"),
                   fillOpacity = 0.8,
                   label = ~lapply(LabelText, htmltools::HTML)) %>% 

  addLegend(pal = colorPalette, values = covidData$Cumulative_cases, opacity=0.9, title = "Cases", position = "bottomleft")