In d-morrison/Altamed: Provides a dashboard for COVID19 data for the Altamed group

knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>"
)

rm(list = ls())

library(Altamed)
data1 = load_data()

# use_data(data1)

plot_community_vaccination_rates(
  dataset = data1,
  community_name = "City of Bell")

plot_community_vaccination_rates(
  dataset = data1,
  community_name = "City of El Monte")

plot_community_vaccination_rates(
  dataset = data1,
  community_name = "City of Monterey Park")

run_chart(
  dataset = data1,
  community_name = "City of Bell"
)