2  collect_all_metadata()

Diagram

Code

collect_all_metadata <- function (out_name = "quarto") {
  tmp1 <- list.files(here::here(out_name, "results"),
                     pattern = "*.rds",
                     recursive = TRUE,
                     full.names = TRUE)
  tmp2 <- setNames(tmp1, basename(dirname(tmp1)))
  purrr::map(tmp2, ~readr::read_rds(.x))
}