R/utility_functions.R

In lorecatta/DENVfoiMap: Runs the analysis of the paper on global dengue FOI mapping and prediction of intervention impact

#------------------------------------------------------------------------------

#' The function is a wrapper to lapply and parLapply.
#'
#' @title Parallel computation wrapper
#'
#' @param ... aaditional arguments passed on to lapply or parLapply.
#'
#' @param parallel logical. Is parLapply used?
#'
#' @export


loop <- function(..., parallel) {
  if (parallel) {
    parallel::parLapply(NULL, ...)
  } else {
    lapply(...)
  }
}