Refactor some more common code

Author: benjaminysmith

R-notebooks/dashboard_functions.R

@@ -1,9 +1,28 @@
-plot_28_day_frequency <- function(df_to_plot, geo_type) {
-  # These are all required for rendering using covidcast.plot
-  df_to_plot$time_value = "2020-04-15"
-  df_to_plot$issue = "2020-04-15"
-  attributes(df_to_plot)$geo_type = geo_type
-  class(df_to_plot) = c("covidcast_signal", "data.frame")
-  
-  plot(df_to_plot, range=c(0,28))
-}
+make_covidcast_signal <- function(destination, source, geo_type) {
+  destination$time_value = source$time_value[1]
+  destination$issue = source$issue[1]
+  attributes(destination)$geo_type = geo_type
+  class(destination) = c("covidcast_signal", "data.frame")
+  return(destination)
+}
+
+plot_28_day_frequency_state  <- function(df_to_plot) {
+  states_present = df_to_plot %>%
+    group_by(geo_value) %>%
+    summarize(value = n())
+  
+  covidcast_signal_to_plot = make_covidcast_signal(states_present, df_to_plot, "state")
+  
+  plot(covidcast_signal_to_plot, range=c(0,28))
+}
+
+plot_28_day_frequency_county  <- function(df_to_plot) {
+  counties_present = df_to_plot %>%
+    group_by(geo_value) %>%
+    summarize(value = n()) %>% ungroup() %>%
+    filter(substr(geo_value, 3, 5) != "000")
+  
+  covidcast_signal_to_plot = make_covidcast_signal(counties_present, df_to_plot, "county")
+  
+  plot(covidcast_signal_to_plot, range=c(0,28))
+}

R-notebooks/doctor_visits_dashboard.Rmd

@@ -54,11 +54,6 @@ This visualizes the county coverage -- how frequently does each county show up i
 
 ```{r, fig.width = 10, fig.height = 8}
 
-counties_present = df_doctor_visits_counties %>%
-  group_by(geo_value) %>%
-  summarize(value = n()) %>% ungroup() %>%
-  filter(substr(geo_value, 3, 5) != "000")
-
 source("dashboard_functions.R")
-plot_28_day_frequency(counties_present, "county")
+plot_28_day_frequency_county(df_doctor_visits_counties)
 ```

R-notebooks/ght_dashboard.Rmd

@@ -83,10 +83,6 @@ This visualizes the state coverage -- how frequently does each state show up in
 
 ```{r, fig.width = 10, fig.height = 8}
 
-states_present = df_ght_states %>%
-group_by(geo_value) %>%
-summarize(value = n())
-
 source("dashboard_functions.R")
-plot_28_day_frequency(states_present, "state")
+plot_28_day_frequency_state(df_ght_states)
 ```

R-notebooks/hospital_admissions_dashboard.Rmd

@@ -61,11 +61,6 @@ This visualizes the county coverage -- how frequently does each county show up i
 
 ```{r, fig.width = 10, fig.height = 8}
 
-counties_present = df_hospital_admissions_counties %>%
-  group_by(geo_value) %>%
-  summarize(value = n()) %>% ungroup() %>%
-  filter(substr(geo_value, 3, 5) != "000")
-
 source("dashboard_functions.R")
-plot_28_day_frequency(counties_present, "county")
+plot_28_day_frequency_county(df_hospital_admissions_counties)
 ```

R-notebooks/quidel_dashboard.Rmd

@@ -83,10 +83,6 @@ This visualizes the state coverage -- how frequently does each state show up in
 
 ```{r, fig.width = 10, fig.height = 8}
 
-states_present = df_quidel_states %>%
-  group_by(geo_value) %>%
-  summarize(value = n())
-
 source("dashboard_functions.R")
-plot_28_day_frequency(states_present, "state")
+plot_28_day_frequency_state(df_quidel_states)
 ```