fix: update dates in example

R/create_period_scatter.R

@@ -48,9 +48,9 @@
 #' # Return plot
 #' create_period_scatter(sq_data,
 #'                       hrvar = "LevelDesignation",
-#'                       before_start = "2019-11-03",
-#'                       before_end = "2019-12-31",
-#'                       after_start = "2020-01-01",
+#'                       before_start = "2019-12-15",
+#'                       before_end = "2019-12-29",
+#'                       after_start = "2020-01-05",
 #'                       after_end = "2020-01-26")
 #'
 #' # Return a summary table
@@ -167,7 +167,7 @@ create_period_scatter <- function(data,
     facet_wrap(.~Period) +
     guides(size = FALSE) +
 	theme_wpa_basic() +
-    theme(legend.position = "bottom", 
+    theme(legend.position = "bottom",
 	strip.background = element_rect(color = "#1d627e",
                                           fill = "#1d627e"),
           strip.text = element_text(size = 10,
@@ -177,9 +177,9 @@ create_period_scatter <- function(data,
             subtitle = paste("Comparison of weekly averages by ", tolower(camel_clean(hrvar)))) +
     ylab(clean_y) +
     xlab(clean_x) +
-    labs(caption = date_range_str) 
-	
-	
+    labs(caption = date_range_str)
+
+
   if(return == "table"){
 
     # return(myTable_return)

man/create_period_scatter.Rd

@@ -67,9 +67,9 @@ in the package that produce faceted scatter plots.
 # Return plot
 create_period_scatter(sq_data,
                       hrvar = "LevelDesignation",
-                      before_start = "2019-11-03",
-                      before_end = "2019-12-31",
-                      after_start = "2020-01-01",
+                      before_start = "2019-12-15",
+                      before_end = "2019-12-29",
+                      after_start = "2020-01-05",
                       after_end = "2020-01-26")
 
 # Return a summary table