fix: example changes to pass R CMD checks

R/flex_index.R

@@ -108,6 +108,10 @@
 #' @importFrom data.table ":=" "%like%" "%between%"
 #'
 #' @examples
+#' # Create a sample small dataset
+#' orgs <- c("Customer Service", "Financial Planning", "Biz Dev")
+#' em_data <- em_data[em_data$Organization %in% orgs, ]
+#'
 #' # Examples of how to test the plotting options individually
 #' # Sample of 10 work patterns
 #' em_data %>%

R/workpatterns_area.R

@@ -61,7 +61,8 @@
 #' @examples
 #'
 #' # Create a sample small dataset
-#' em_data <- em_data[em_data$Date == as.Date("2020-01-19", "%Y-%m-%d"), ]
+#' orgs <- c("Customer Service", "Financial Planning", "Biz Dev")
+#' em_data <- em_data[em_data$Organization %in% orgs, ]
 #'
 #' # Return visualization of percentage distribution
 #' workpatterns_area(em_data, return = "plot", values = "percent")

man/flex_index.Rd

@@ -135,6 +135,10 @@ the following:\preformatted{em_data \%>\%
 }
 
 \examples{
+# Create a sample small dataset
+orgs <- c("Customer Service", "Financial Planning", "Biz Dev")
+em_data <- em_data[em_data$Organization \%in\% orgs, ]
+
 # Examples of how to test the plotting options individually
 # Sample of 10 work patterns
 em_data \%>\%

man/workpatterns_area.Rd

@@ -70,6 +70,11 @@ Uses the Hourly Collaboration query to produce an area plot of
 Emails sent and IMs sent attended by hour of the day.
 }
 \examples{
+
+# Create a sample small dataset
+orgs <- c("Customer Service", "Financial Planning", "Biz Dev")
+em_data <- em_data[em_data$Organization \%in\% orgs, ]
+
 # Return visualization of percentage distribution
 workpatterns_area(em_data, return = "plot", values = "percent")