R/language.R

In priscian/plinth: Provide "Keystone" Functions for Most Scripts or Packages

#' @importFrom magrittr %>%
#' @importFrom magrittr %<>%

## Evaluate a number of different types of expressions
#' @export
poly_eval <- function(expr, envir = parent.frame(), env = rlang::caller_env(), ...)
{
  if (is.null(expr))
    return (NULL)

  if (is.function(expr)) {
    #expr(...) # Change to 'do.call()' to include 'envir'
    do.call(what = expr, args = plinth::get_dots(...)$arguments, envir = envir)
  } else if (rlang::is_expression(expr)) {
    rlang::eval_tidy(expr, env = env, ...)
  } else if (is.expression(expr)) {
    eval(expr, envir = envir, ...)
  } else {
    expr
  }
}


## Simplify 'substitute()'-ing into an expression. Also see '?substitute'.
#' @export
expr_sub <- function(
  expr,
  env
)
{
  as.expression(do.call(substitute, list(expr[[1]], env)))
}