microsoft
/
wpa
зеркало из https://github.com/microsoft/wpa.git
1
0
Форкнуть 0
Код Задачи Пакеты Проекты Релизы Вики Активность

feat: add group Id

This commit is contained in:
Martin Chan 2022-06-10 17:03:50 +01:00
Родитель eb4e6781b9
Коммит bf9c9cde85
1 изменённых файлов: 3 добавлений и 2 удалений
Показать статистику Скачать Patch файл Скачать Diff файл Показать все файлы Свернуть все файлы

5
R/workpatterns_rank.R
Просмотреть файл

@ -119,7 +119,7 @@ workpatterns_rank <- function(data,
## This is run on `signals_df` ## This is run on `signals_df`
num_cols <- names(which(sapply(signals_df, is.numeric))) # Get numeric columns num_cols <- names(which(sapply(signals_df, is.numeric))) # Get numeric columns
## Save original `signals_df` before manipulating ## Save original `signals_df` before manipulating ------------------------
## Rename `Signals_sent` columns to prevent conflict ## Rename `Signals_sent` columns to prevent conflict
signals_df_o <- signals_df %>% signals_df_o <- signals_df %>%
set_names( set_names(
@ -133,7 +133,8 @@ workpatterns_rank <- function(data,
.[, (num_cols) := lapply(.SD, function(x) ifelse(x > 0, 1, 0)), .SDcols = num_cols] %>% .[, (num_cols) := lapply(.SD, function(x) ifelse(x > 0, 1, 0)), .SDcols = num_cols] %>%
# Use `mutate()` method # Use `mutate()` method
.[, `:=`(WeekCount = .N, .[, `:=`(WeekCount = .N,
PersonCount = dplyr::n_distinct(PersonId)), PersonCount = dplyr::n_distinct(PersonId),
Id = .GRP), # group id assignment
by = num_cols] by = num_cols]