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

@ -144,7 +144,7 @@ pull_participants_ids <- function(stream_parameters, usernames, participants_con
pull_participants_device_ids <- function(stream_parameters, participants_ids, device_id_container) { pull_participants_device_ids <- function(stream_parameters, participants_ids, device_id_container) {
dbEngine <- get_db_engine(stream_parameters$DATABASE_GROUP) dbEngine <- get_db_engine(stream_parameters$DATABASE_GROUP)
query_device_id <- tbl(dbEngine, device_id_container) %>% query_device_id <- tbl(dbEngine, device_id_container) %>%
filter(participant_id %in% !!participants_ids) %>% filter(participant_id %in% !!participants_ids) %>%
group_by(participant_id) %>% group_by(participant_id) %>%
distinct(device_id, .keep_all = FALSE) distinct(device_id, .keep_all = FALSE)
@ -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(