get_all_surveys.r

library("devtools")
library("here")
library("socialmixr")

redo <- FALSE
files_file <- here::here("files.rds")
dir.create(here::here("surveys"), showWarnings = FALSE)

if (!file.exists(files_file) || redo) {
  ls <- list_surveys()
  files <- list()
  for (url in ls$url) {
    files[[url]] <- download_survey(url, dir = here::here("surveys"))
    Sys.sleep(5)
  }
  saveRDS(files, files_file)
} else {
  files <- readRDS(files_file)
}

surveys <- list()
for (url in names(files)) {
  cat(url, "\n" )
  surveys[[url]] <- load_survey(files[[url]])
}

lapply(surveys, function(x) {
  message("Participants ", nrow(x$participant), ", Contacts: ", nrow(x$contact))
})