R/flatten_results.R

Defines functions flatten_results

#' @importFrom purrr flatten map
flatten_results <- function(sim) {
  sim <- purrr::flatten(sim)
  sim <- purrr::map(sim, ~ `[[`(., "results"))
  purrr::flatten(sim)
}
MarselScheer/simTool documentation built on Sept. 8, 2021, 5:55 a.m.