R/util_assert.R

assert_raw <- function(x, name = deparse(substitute(x))) {
  if (!is.raw(x)) {
    stop(sprintf("%s must be raw", name), call.=FALSE)
  }
}
richfitz/crater documentation built on May 27, 2019, 8:16 a.m.