feat: allow meetings for workpatterns_hclust()

This commit is contained in:
Martin Chan 2021-02-02 16:27:49 +00:00
Родитель a29e320046
Коммит 4c9535a1f6
1 изменённых файлов: 1 добавлений и 1 удалений

Просмотреть файл

@ -83,7 +83,7 @@ workpatterns_hclust <- function(data,
# Text replacement only for allowed values # 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 = "email", replacement = "Emails_sent", x = signals) # case-sensitive
signal_set <- gsub(pattern = "IM", replacement = "IMs_sent", x = signal_set) signal_set <- gsub(pattern = "IM", replacement = "IMs_sent", x = signal_set)