R/test_ex.R

In dtkaplan/checkr: Facilities for checking R submissions in tutorials

#' Tests on expressions
#'
#' These functions can be applied to E bindings as produced by `line_where()`.
#' They calculate something about the E expression.
#'
#' @param ex A straight expression, for instance as bound to `E` in `line_where().`
#'
#' @rdname test_ex
#' @export
n_args <- function(ex) {
  length(rlang::call_args_names(ex))
}
#' @rdname test_ex
#' @export
func_of <- function(ex) {
  rlang::call_fn(ex)
}