R/helper.R

In bettermc: Enhanced Fork-Based Parallelization

`%\\%` <- function(x, y) {
  paste(x, y)
}

`%+%` <- function(x, y) {
  paste0(x, y)
}

is.uneval.promise <- function(name, env) {
  .Call(C_is_uneval_promise, name = name, env = env)
}

is.eval.promise2missing.arg <- function(name, env) {
  .Call(C_is_eval_promise_to_missing_arg, name = name, env = env)
}

is.missing.arg <- function(name, env) {
  penv <- parent.env(env)
  on.exit(parent.env(env) <- penv)
  parent.env(env) <- baseenv()
  eval(parse(text = paste0("base::missing(`", name, "`)")), env)
}

make_root_stop <- function(call = sys.call(-1L)) {
  force(call)
  function(...) stop(simpleError(paste0(..., collapse = ""), call = call))
}

make_root_warning <- function(call = sys.call(-1L)) {
  force(call)
  function(...) warning(simpleWarning(paste0(..., collapse = ""), call = call))
}