Update graph titles

Author: benjaminysmith

R-notebooks/dashboard_functions.R

@@ -14,7 +14,10 @@ plot_28_day_frequency_state  <- function(df_to_plot) {
   covidcast_signal_to_plot = make_covidcast_signal(states_present, df_to_plot, "state")
 
   plot(covidcast_signal_to_plot,
-       title = "State frequency in last 28 days",
+       title = sprintf(
+         "State frequency in last 28 days (start date: %s)",
+         covidcast_signal_to_plot$time_value[1]
+       ),
        range = c(0, 28))
 }
 
@@ -26,7 +29,12 @@ plot_28_day_frequency_county  <- function(df_to_plot) {
 
   covidcast_signal_to_plot = make_covidcast_signal(counties_present, df_to_plot, "county")
 
-  plot(covidcast_signal_to_plot,
-       title = "County frequency in last 28 days",
-       range = c(0, 28))
+  plot(
+    covidcast_signal_to_plot,
+    title = sprintf(
+      "County frequency in last 28 days (start date: %s)",
+      covidcast_signal_to_plot$time_value[1]
+    ),
+    range = c(0, 28)
+  )
 }