R/eval_.R

In GegznaV/spMisc: Infix Operators, Convenience and Other Kind of Miscellaneous Functions

#' [!] Parse and evaluate expression in a string
#'
#' A wrapper function to parse a string and evaluate it as an expression.
#' \code{eval_(X)} is a wrapper for \code{eval(parse(text = X))}.
#'
#' @param X A string to be evaluated as an expression.
#' @inheritParams base::eval
#' @param ... Further parameters to be passed to \code{\link[base]{eval}}.
#' @return Evaluated expression
#' @export
#' @seealso Evaluate an (unevaluated) expression (\code{\link[base]{eval}}),
#'          Parse expressions (\code{\link[base]{parse}})
#' @examples
#' if (any(ls() == "A")) rm(A)
#' any(ls() == "A")
#' #> [1] FALSE
#'
#' eval_("A <- 3")
#' any(ls() == "A")
#' #> TRUE
#'
eval_ <- function(X, envir = parent.frame(), ...) {
    eval(parse(text = X), envir = envir, ...)
}