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) %>%
|
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(
|
||||||
|
|
Loading…
Reference in New Issue