Start with a tibble from CSV.

labels
junos 2021-11-29 17:51:07 +01:00
parent 181e4f0118
commit 32025cbd8c
1 changed files with 4 additions and 2 deletions

View File

@ -12,10 +12,12 @@ prepare_participants_file <- function() {
device_id_container <- snakemake@params[["device_id_table"]] device_id_container <- snakemake@params[["device_id_table"]]
start_end_date_container <- snakemake@params[["start_end_date_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 %<>% participant_data %<>%
left_join(participant_ids, by = c("label" = "username")) %>%
rename(participant_id = id) rename(participant_id = id)
device_ids <- pull_participants_device_ids(data_configuration, participant_data$participant_id, device_id_container) device_ids <- pull_participants_device_ids(data_configuration, participant_data$participant_id, device_id_container)