inst/run.R

In tjmahr/adventofcode21:

# Run every file
create_result_df <- function(x) {
  data.frame(
    file = x$command[2],
    status = x$status
  )
}

to_run <- list.files(
  path = "./inst/",
  pattern = "run-day",
  full.names = TRUE
)

results <- lapply(to_run, callr::rscript, fail_on_status = FALSE)

do_call_rbind <- function(...) {
  do.call(rbind, ...)
}

results |>
  lapply(create_result_df)  |>
  do_call_rbind()