updating meningitis

Author: fgazzelloni

R/meningitis.R

@@ -13,10 +13,10 @@
 #' \describe{
 #'   \item{year}{character, metric name}
 #'   \item{location}{character, country}
-#'   \item{Deaths}{numeric, Rates}
-#'   \item{DALYs}{numeric, Rates}
-#'   \item{Smoking}{numeric, Rates}
-#'   \item{Particulate matter pollution}{PM2.5, numeric, Rates}
+#'   \item{deaths}{numeric, Rates}
+#'   \item{dalys}{numeric, Rates}
+#'   \item{smoking}{numeric, Rates}
+#'   \item{pm25}{numeric, Rates}
 #' }
 #' @source <https://vizhub.healthdata.org/gbd-results/>
 "meningitis"

data-raw/meningitis.R

@@ -8,9 +8,10 @@ sev <- readRDS("~/Documents/R/AAA_packages/hmsidwR_container/extra-files/data/ih
 meningitis <- meningitis_raw %>%
   arrange(year) %>%
   select(year, location = location_name,
-         Deaths, DALYs) %>%
+         deaths = Deaths, dalys = DALYs) %>%
   full_join(sev, by = c("location", "year"))%>%
-  filter(!is.na(DALYs))
+  filter(!is.na(dalys)) %>%
+  rename(pm25 = `Particulate matter pollution`)
 
 usethis::use_data(meningitis,
                   compress = "xz",