Fix small mistakes.

labels
junos 2021-11-24 19:01:30 +01:00
parent c1f56c61e8
commit f9863ec622
1 changed files with 3 additions and 3 deletions

View File

@ -174,7 +174,7 @@ pull_participants_start_end_dates <- function(stream_parameters, participants_id
query_timestamps <- tbl(dbEngine, start_end_date_container) %>% query_timestamps <- tbl(dbEngine, start_end_date_container) %>%
filter( filter(
participant_id %in% !!participant_data$id, participant_id %in% !!participants_ids,
double_esm_user_answer_timestamp > 0 double_esm_user_answer_timestamp > 0
) %>% ) %>%
group_by(participant_id) %>% group_by(participant_id) %>%
@ -189,7 +189,7 @@ pull_participants_start_end_dates <- function(stream_parameters, participants_id
start_end_timestamps <- query_timestamps %>% collect() start_end_timestamps <- query_timestamps %>% collect()
if(nrow(start_end_timestamps) == 0) 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 %>% start_end_times <- start_end_timestamps %>%
mutate( mutate(