Source specific container script.

It is probably not worth the effort of making this general.
labels
junos 2021-11-29 18:19:47 +01:00
parent da5ff0f36e
commit 04ad2d0b81
1 changed files with 2 additions and 1 deletions

View File

@ -1,4 +1,5 @@
source("renv/activate.R") source("renv/activate.R")
source("src/data/streams/aware_postgresql/container.R")
library(RPostgres) library(RPostgres)
library(magrittr) library(magrittr)
@ -23,7 +24,7 @@ prepare_participants_file <- function() {
participant_data <- read_csv(username_list_csv_location, col_types = "c", progress = FALSE) participant_data <- read_csv(username_list_csv_location, col_types = "c", progress = FALSE)
usernames <- participant_data$label usernames <- participant_data$label
participant_ids <- pull_participants_ids("whatever", usernames, participants_container) participant_ids <- pull_participants_ids(data_configuration, usernames, participants_container)
participant_data %<>% participant_data %<>%
left_join(participant_ids, by = c("label" = "username")) %>% left_join(participant_ids, by = c("label" = "username")) %>%
rename(participant_id = id) rename(participant_id = id)