diff --git a/src/data/translate_usernames_into_participants_data.R b/src/data/translate_usernames_into_participants_data.R index cc19f1a8..2dc638ca 100644 --- a/src/data/translate_usernames_into_participants_data.R +++ b/src/data/translate_usernames_into_participants_data.R @@ -12,10 +12,12 @@ prepare_participants_file <- function() { device_id_container <- snakemake@params[["device_id_table"]] start_end_date_container <- snakemake@params[["start_end_date_table"]] - usernames <- read_csv(username_list_csv_location, col_types = "c", progress = FALSE) + participant_data <- read_csv(username_list_csv_location, col_types = "c", progress = FALSE) + usernames <- participant_data$label - participant_data <- pull_participants_ids(data_configuration, usernames, participants_container) + participant_ids <- pull_participants_ids("whatever", usernames, participants_container) participant_data %<>% + left_join(participant_ids, by = c("label" = "username")) %>% rename(participant_id = id) device_ids <- pull_participants_device_ids(data_configuration, participant_data$participant_id, device_id_container)