change all additional_metadata to list

Author: mgyliu

R/epi_df.R

@@ -251,7 +251,7 @@ new_epi_df = function(x = tibble::tibble(), geo_type, time_type, as_of,
 #'   dplyr::mutate(
 #'     state = rep("MA",6),
 #'     pol = rep(c("blue", "swing", "swing"), each = 2)) %>% # 2 extra keys
-#'   as_epi_df(additional_metadata = list(other_keys = "state", "pol")) %>%
+#'   as_epi_df(additional_metadata = list(other_keys = "state", "pol")) 
 #' 
 #' attr(ex3,"metadata")
 as_epi_df = function(x, ...) {

man/as_epi_archive.Rd

@@ -8,7 +8,7 @@ toy_epi_df <- tibble::tibble(
   ), times = 2),
   geo_value = rep(c("ca", "hi"), each = 5),
   indicator_var = as.factor(rep(1:2, times = 5)), 
-) %>% as_epi_df(additional_metadata = c(other_keys = "indicator_var"))
+) %>% as_epi_df(additional_metadata = list(other_keys = "indicator_var"))
 
 att_toy = attr(toy_epi_df, "metadata")
 

man/as_epi_df.Rd

@@ -180,7 +180,7 @@ head(ex2)
 
 ex2 <- ex2 %>% rename(geo_value = state, time_value = reported_date) %>%
   as_epi_df(geo_type = "state", as_of = "2020-06-03", 
-            additional_metadata = c(other_keys = "pol"))
+            additional_metadata = list(other_keys = "pol"))
 
 attr(ex2,"metadata")
 ```
@@ -206,7 +206,7 @@ Now we add state (MA) as a new column and a key to the metadata. Reminder that l
 ex3 <- ex3 %>% 
   as_tibble() %>% # needed to add the additional metadata
   mutate(state = rep(tolower("MA"),6)) %>%
-  as_epi_df(additional_metadata = c(other_keys = "state"))
+  as_epi_df(additional_metadata = list(other_keys = "state"))
 
 attr(ex3,"metadata")
 ```