R/attributes-logic.R

In OHDSI/Capr: Cohort Definition Application Programming

# Classes ----------------------------

## Logic Attribute -----
#' An S4 class for a logical attribute
#' @description
#' with a logic attribute if it is specified than we assume it is true
#' @slot
#' name the name of the attribute
setClass("logicAttribute", slots = c(name = "character"), prototype = list(name = NA_character_))
# Constructors -----------
#' Add first occurrence attribute
#' @return
#' An attribute that can be used in a query function
#' @export
firstOccurrence <- function() {
  res <- methods::new("logicAttribute", name = "First")
  return(res)
}

# Coercion ------------------

setMethod("as.list", "logicAttribute", function(x) {

  tibble::lst(`:=`(!!x@name, TRUE))
})