R/guide.R

In epicentre-msf/covid19: Epidemiological covid-19 analysis and visualisation

# 
# guide <- cicerone::Cicerone$
#   new(opacity = .2)$
#   step(
#     "map_1-region",
#     "Region focus",
#     "Focus analysis on worldwide, continent, regional levels"
#   )$
#   step(
#     "map_1-source",
#     "Data source",
#     "Use data from the European Centre for Disease Prevention and Control or World Health Organisation"
#   )$
#   step(
#     "map_1-indicator",
#     "Indicator",
#     "Visualise confirmed cases or deaths"
#   )$
#   step(
#     "map_1-time_period",
#     "Time period",
#     "Filter data all data to a defined period"
#   )$
#   step(
#     "map_1-intervention",
#     "Government interventions",
#     "Highlight a selected intervention on the map and filter the table"
#   )