R/b_eval.R

In global-trade-alert/gtabastiat:

# Roxygen documentation

#' Bastiat, evaluate this pasted command.
#'
#' Shortcut for "eval(parse(text=paste(x)))".
#'
#' @return Whatever you sought to evaluate/execute.
#' @references www.globaltradealert.org
#' @author Johannes Fritz for GTA


# Function infos and parameters  --------------------------------------------

b_eval = function(x) {
  if(grepl("=",x)){
    return(eval(parse(text=gsub("(^[A-Za-z\\(\\[0-9\\s !\\.\\$]*?)=([A-Za-z\\(\\[0-9\\s !\\.])","\\1<<-\\2",x))))
  } else {
    return(eval(parse(text=x)))
  }
}