R/equals.R

In emjun/tisaner: Authoring Statistical Models from Conceptual Models

#' Specify an equals Compares relationship.
#'
#' Returns the Compares relationship constructed.
#' @param variable nominalORordinal The variable whose value may equal @param value.
#' @param value integerORnumericORcharacter. The value to look for/filter on in @param variable.
#' @export
# equals()
setGeneric("equals", function(variable, value) standardGeneric("equals"))
setMethod("equals", signature("Continuous", "integerORnumericORcharacter"), function(variable, value)
{
  # create condition
  if (is.numeric(value) || is.integer(value)) {
    condition = paste(c("==", value), collapse = "")
  } else {
    rhs = paste(c("\'", value, "\'"), collapse = "")
    condition = paste(c("==", rhs), collapse = "")
  }

  # create a Compares obj
  comp = Compares(variable=variable, condition=condition)

  # Return Compares obj
  comp
})
setMethod("equals", signature("OrderedCategories", "integerORnumericORcharacter"), function(variable, value)
{
  # create condition
  if (is.numeric(value) || is.integer(value)) {
    condition = paste(c("==", value), collapse = "")
  } else {
    rhs = paste(c("\'", value, "\'"), collapse = "")
    condition = paste(c("==", rhs), collapse = "")
  }

  # create a Compares obj
  comp = Compares(variable=variable, condition=condition)

  # Return Compares obj
  comp
})
setMethod("equals", signature("UnorderedCategories", "integerORnumericORcharacter"), function(variable, value)
{
  # create condition
  if (is.numeric(value) || is.integer(value)) {
    condition = paste(c("==", value), collapse = "")
  } else {
    rhs = paste(c("\'", value, "\'"), collapse = "")
    condition = paste(c("==", rhs), collapse = "")
  }

  # create a Compares obj
  comp = Compares(variable=variable, condition=condition)

  # Return Compares obj
  comp
})
# TODO: Validate that the value exists!