R/utils.R

In ROCnGO: Fast Analysis of ROC Curves

Defines functions mask_name pronoun_var_name

pronoun_var_name <- function(expr) {
  expr_args <- call_args(expr)
  expr_args[[2]]
}


mask_name <- function(expr) {
  if (quo_is_call(expr)) {
    pronoun_var_name(expr)
  } else {
    as_name(expr)
  }
}

Try the ROCnGO package in your browser