# NOT RUN {
# download data
it <- italy()
# add label
it$label <- factor(it$confirmed)
# map
geomap(it,
map = "italy",
value = "confirmed",
label = "label",
title = "Coronavirus: {closest_state}",
caption = "Data source: ...",
legend.title = "Total cases",
nframes = 30+(2*length(unique(it$date))),
end_pause = 30)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab