Fix small mistakes.
parent
c1f56c61e8
commit
f9863ec622
|
@ -174,7 +174,7 @@ pull_participants_start_end_dates <- function(stream_parameters, participants_id
|
|||
|
||||
query_timestamps <- tbl(dbEngine, start_end_date_container) %>%
|
||||
filter(
|
||||
participant_id %in% !!participant_data$id,
|
||||
participant_id %in% !!participants_ids,
|
||||
double_esm_user_answer_timestamp > 0
|
||||
) %>%
|
||||
group_by(participant_id) %>%
|
||||
|
@ -189,7 +189,7 @@ pull_participants_start_end_dates <- function(stream_parameters, participants_id
|
|||
start_end_timestamps <- query_timestamps %>% collect()
|
||||
|
||||
if(nrow(start_end_timestamps) == 0)
|
||||
warning(paste("We could not find datetimes for requested participant IDs (", participants_ids, ") in ", device_id_container))
|
||||
warning(paste("We could not find datetimes for requested participant IDs (", participants_ids, ") in ", start_end_date_container))
|
||||
|
||||
start_end_times <- start_end_timestamps %>%
|
||||
mutate(
|
||||
|
|
Loading…
Reference in New Issue