# 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