From 4c9535a1f6d74f1f2d3268ac1e1181f2530f96fa Mon Sep 17 00:00:00 2001 From: Martin Chan Date: Tue, 2 Feb 2021 16:27:49 +0000 Subject: [PATCH] feat: allow meetings for workpatterns_hclust() --- R/workpatterns_hclust.R | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/R/workpatterns_hclust.R b/R/workpatterns_hclust.R index fe2bfcb7..c984a35c 100644 --- a/R/workpatterns_hclust.R +++ b/R/workpatterns_hclust.R @@ -83,7 +83,7 @@ workpatterns_hclust <- function(data, # Text replacement only for allowed values - if(any(signals %in% c("email", "IM", "unscheduled_calls"))){ + if(any(signals %in% c("email", "IM", "unscheduled_calls", "meetings"))){ signal_set <- gsub(pattern = "email", replacement = "Emails_sent", x = signals) # case-sensitive signal_set <- gsub(pattern = "IM", replacement = "IMs_sent", x = signal_set)