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) %>%
|
||||
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()
|
||||
|
||||
|
@ -149,7 +149,13 @@ pull_participants_device_ids <- function(stream_parameters, participants_ids, de
|
|||
group_by(participant_id) %>%
|
||||
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()
|
||||
|
||||
|
|
Loading…
Reference in New Issue