R/assertions.R

Defines functions tabs_ok

tabs_ok <- function(x, y) {
  total <- sum(length(x), length(y))

  total != 1
}

on_failure(tabs_ok) <- function(call, env) {
  paste0("Either do not define either", deparse(call$x), " and ", deparse(call$y), "or define both.")
}

Try the cicerone package in your browser

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

cicerone documentation built on Jan. 11, 2021, 1:35 a.m.