Coursera Developing Data Products : Assignment 01

COVID-19 recovered cases.

library(tidyverse)

library(readr)
library(leaflet)
data1 <- read_csv("https://raw.githubusercontent.com/CSSEGISandData/COVID-19/master/csse_covid_19_data/csse_covid_19_time_series/time_series_covid19_recovered_global.csv")

df2 <- data1 %>% select(Lat,Long)
df <- data.frame(df2)
df %>% 
  leaflet() %>%
  addTiles() %>%
  addCircleMarkers()