R/utils.R

In statgenQTLxT: Multi-Trait and Multi-Trial Genome Wide Association Studies

#' Helper function for accessing parallel computing functions.
#'
#' @noRd
#' @keywords interanal
getOper <- function(x) {
  if (x) {
    `%dopar%`
  } else {
    `%do%`
  }
}