diff --git a/src/data/translate_usernames_into_participants_data.R b/src/data/translate_usernames_into_participants_data.R index dab89f94..d6350673 100644 --- a/src/data/translate_usernames_into_participants_data.R +++ b/src/data/translate_usernames_into_participants_data.R @@ -21,7 +21,7 @@ prepare_participants_file <- function() { pid_format <- "p%03d" datetime_format <- "%Y-%m-%d %H:%M:%S" - participant_data <- read_csv(username_list_csv_location, col_types = "c", progress = FALSE) + participant_data <- read_csv(username_list_csv_location, col_types = "cc", progress = FALSE) usernames <- participant_data$label participant_ids <- pull_participants_ids(data_configuration, usernames, participants_container) @@ -45,7 +45,6 @@ prepare_participants_file <- function() { pid = sprintf(pid_format, participant_id), start_date = strftime(datetime_start, format=datetime_format, tz = "UTC", usetz = FALSE), #TODO Check what timezone is expected end_date = strftime(datetime_end, format=datetime_format, tz = "UTC", usetz = FALSE), - empatica_id = "placeholder", #TODO Provide in file? device_id = map_chr(device_ids, str_c, collapse = ";"), number_of_devices = map_int(device_ids, length), fitbit_id = ""