R/benchmark-frontend.R

In ewarchul/cecb: CEC benchmark

#' Benchmark frontend
#'
#' @description
#' Function takes configuration of benchmark list and runs benchmark.
#' @param config a list written by user or read from YAML configuration file.
#' @export

run_benchmark <- function(config) {
  parsed_config <-
    parse_config(config)
  tibble::tibble(
    solver = parsed_config$methods_sym,
    id = parsed_config$ids
  ) %>%
    purrr::pmap(function(solver, id) {
      benchmark_parallel(
                     solver = solver,
                     probnum = parsed_config$probnum,
                     cec = parsed_config$cec,
                     dims = parsed_config$dims,
                     rep = parsed_config$repnum,
                     suite = parsed_config$suite,
                     cpupc = parsed_config$cpu,
                     benchmark_id = id,
                     dest = parsed_config$dest,
      )
    })
}