R/is_spec__and__is_ref.R

In Matherion/justifier: Human and Machine-Readable Justifications and Justified Decisions Based on 'YAML'

Defines functions is_nested is_ref is_spec

is_spec <- function(x) {
  return(("justifierSpec" %in% class(x)) || length(names(x)) > 1);
}

is_ref <- function(x) {
  return(("justifierRef" %in% class(x)) || ((length(names(x)) == 0) && (is.character(x))));
}

is_nested <- function(x) {
  return(is.list(x) && any(unlist(lapply(x, is.list))));
}