Blood donation in France

Getting data

URL <- "http://api.openeventdatabase.org/event/?what=health.blood.collect&when=nextmonth&limit=1000"
download.file(URL, "./data/data.json", method="libcurl")
con <- file("./data/data.json")
data <- fromJSON(readLines(con), simplifyDataFrame = TRUE, flatten = TRUE)

## Warning in readLines(con): ligne finale incomplète trouvée dans './data/
## data.json'

close(con)

Preping data

map_data <- data.frame(lat=data$features$properties.lat,
                       lng = data$features$properties.lon,
                       label = data$features$`properties.where:name`,
                       popup = data$features$properties.star)

Preping map

my_map <- leaflet() %>%
  addTiles() %>%
  addMarkers(lat = map_data$lat, lng = map_data$lng, label = map_data$label, popup = map_data$popup)

Blood donation for the next month (20-11-2019)