From d8871239d0db2a4cb086e43b087aeaf2a6e415ba Mon Sep 17 00:00:00 2001
From: Martin Chan <martinchan53@gmail.com>
Date: Fri, 15 Oct 2021 13:44:27 +0100
Subject: [PATCH] fix: update examples

Reduce the size of data used in `workpatterns_area()` to enable examples to run faster
---
 R/workpatterns_area.R | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/R/workpatterns_area.R b/R/workpatterns_area.R
index f6bdfafa..f8ae8e9e 100644
--- a/R/workpatterns_area.R
+++ b/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")
 #'