Start preparing the true usernames CSV file.
parent
0be4cd5a8f
commit
22f9e0722d
|
@ -121,7 +121,7 @@ pull_participants_ids <- function(stream_parameters, usernames, participants_con
|
||||||
filter(username %in% usernames) %>%
|
filter(username %in% usernames) %>%
|
||||||
select(username, id)
|
select(username, id)
|
||||||
|
|
||||||
message(paste0("Executing the following query to get the participant's id: \n", sql_render(query_participant_id)))
|
message(paste0("Executing the following query to get participants' IDs: \n", sql_render(query_participant_id)))
|
||||||
|
|
||||||
participant_data <- query_participant_id %>% collect()
|
participant_data <- query_participant_id %>% collect()
|
||||||
|
|
||||||
|
@ -149,7 +149,13 @@ pull_participants_device_ids <- function(stream_parameters, participants_ids, de
|
||||||
group_by(participant_id) %>%
|
group_by(participant_id) %>%
|
||||||
distinct(device_id, .keep_all = FALSE)
|
distinct(device_id, .keep_all = FALSE)
|
||||||
|
|
||||||
message(paste0("Executing the following query to get the distinct device IDs: \n", sql_render(query_device_id)))
|
message(
|
||||||
|
paste0(
|
||||||
|
"Executing the following query to get the distinct device IDs: \n",
|
||||||
|
sql_render(query_device_id),
|
||||||
|
"\n NOTE: This might take a long time."
|
||||||
|
)
|
||||||
|
)
|
||||||
|
|
||||||
device_ids <- query_device_id %>% collect()
|
device_ids <- query_device_id %>% collect()
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue