R/eval_with.R

Defines functions eval_with_q eval_with

eval_with <- function(statement, data){
  stmnt_capture <- substitute(statement)
  eval_with_q(stmnt_capture, data = data, env = parent.frame())
}

eval_with_q <- function(statement, data, env = parent.frame()){
  statement_envir <- new.env(parent = env)
  tryCatch({
    res <- eval(statement, envir = as.list(data), enclos = statement_envir)
    if(! is.numeric(res)){
      if(is.character(res) && length(res) == 1){
        # If contrast was a string, eval will just spit it out the same way
        res <- eval(parse(text = res), envir= as.list(data), enclos = statement_envir)
      }
    }
  }, error = function(e){
    # Try to extract text from error message
    match <- regmatches(e$message, regexec("object '(.+)' not found", e$message))[[1]]
    if(length(match) == 2){
      stop("Object '", match[2], "' not found. Allowed variables are:\n",
           paste0(names(df), collapse = ", "))
    }else{
      stop(e$message)
    }
  })
  res
}

Try the glmGamPoi package in your browser

Any scripts or data that you put into this service are public.

glmGamPoi documentation built on Nov. 8, 2020, 7:14 p.m.