fix: update examples

Reduce the size of data used in `workpatterns_area()` to enable examples to run faster

R/workpatterns_area.R

@@ -59,6 +59,10 @@
 #' @family Working Patterns
 #'
 #' @examples
+#'
+#' # Create a sample small dataset
+#' em_data <- em_data[em_data$Date == as.Date("2020-01-19", "%Y-%m-%d"), ]
+#'
 #' # Return visualization of percentage distribution
 #' workpatterns_area(em_data, return = "plot", values = "percent")
 #'