R/get_cardinality.R

In emjun/tisaner: Authoring Statistical Models from Conceptual Models

#' Method to get cardinality
#'
#' Method for getting the cardinality of an AbstractVariable
#' @param variable AbstractVariable to inspect
# get_cardinality()
setGeneric("get_cardinality", function(variable) standardGeneric("get_cardinality"))
setMethod("get_cardinality", signature("AbstractVariable"), function(variable)
{
  if (class(variable) == "Time") {
    var <- variable@variable
    var@cardinality
  } else {
    variable@cardinality
  }
})