From 32025cbd8cafb0eaf2b6890c002111c2457f141a Mon Sep 17 00:00:00 2001 From: junos Date: Mon, 29 Nov 2021 17:51:07 +0100 Subject: [PATCH] Start with a tibble from CSV. --- src/data/translate_usernames_into_participants_data.R | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) 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)