R/assert_known_binary.R

Defines functions assert_known_binary

assert_known_binary <- function(adj){
  assert_known_standard(adj)
  if(!attr(adj, "known_binary")){
    stop(deparse(substitute(adj)), " must be known to be binary")
  }
  invisible(NULL)
}
drostlab/edgynode documentation built on March 29, 2024, 10:36 a.m.