#' Evaluate character strings as an expression
#'
#' Evaluate character strings as an expression in the appropriate frame so the function can be
#' used in a function and use variables in the environment of the function.
#'
#' @param ... expressions that can evaluate to character strings to paste.
#' @param envir (default = parent.frame()) see \code{\link{eval}}.
#' @param enclos (default same as \code{\link{eval}})
#' @param try (default: TRUE) enclose the expression in \code{\link{try}}.
#' @return the result of evaluating \code{paste0(...)} as an expression
#' @examples
#' run('ls()')
#' for(nam in c('ls','search')) print(run(nam,"()")) # very unimaginative example
#' @export
run <- function(..., envir = parent.frame(),
enclos = if(is.list(envir) || is.pairlist(envir)) parent.frame()
else baseenv(),
try = TRUE) {
if (try) try(eval(parse(text = paste0(...)), envir = envir, enclos = enclos))
else eval(parse(text = paste0(...)), envir = envir, enclos = enclos)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.