junos
/
rapids
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Use Empatica wristband numbers as provided in CSV.

labels
junos 2021-12-01 17:20:57 +01:00
parent 22f9e0722d
commit 37b3460b76
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
src/data/translate_usernames_into_participants_data.R
View File

@ -21,7 +21,7 @@ prepare_participants_file <- function() {
pid_format <- "p%03d" pid_format <- "p%03d"
datetime_format <- "%Y-%m-%d %H:%M:%S" 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 usernames <- participant_data$label
participant_ids <- pull_participants_ids(data_configuration, usernames, participants_container) participant_ids <- pull_participants_ids(data_configuration, usernames, participants_container)
@ -45,7 +45,6 @@ prepare_participants_file <- function() {
pid = sprintf(pid_format, participant_id), pid = sprintf(pid_format, participant_id),
start_date = strftime(datetime_start, format=datetime_format, tz = "UTC", usetz = FALSE), #TODO Check what timezone is expected 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), 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 = ";"), device_id = map_chr(device_ids, str_c, collapse = ";"),
number_of_devices = map_int(device_ids, length), number_of_devices = map_int(device_ids, length),
fitbit_id = "" fitbit_id = ""