R/standard_library_concept-class.R

In meerapatelmd/amphora: Manipulate Clinical Ontologies

#' @title
#' Standard Library Concept Class (S4)
#'
#' @description
#' This class allows to know the full Standard Library concept representation in R Studio.
#'
#' @export standard_library_concept

standard_library_concept <- setClass("standard_library_concept",
         representation(
                 concept_id = "character",
                 concept_name = "character",
                 concept_synonym_names = "character",
                 domain_id = "character",
                 vocabulary_id = "character",
                 concept_class_id = "character",
                 standard_concept = "character",
                 concept_code = "character",
                 valid_start_date = "Date",
                 valid_end_date = "Date",
                 invalid_reason = "character"),
         prototype(
                 concept_id = NA_character_,
                 concept_name = NA_character_,
                 concept_synonym_names = NA_character_,
                 domain_id = NA_character_,
                 vocabulary_id = NA_character_,
                 concept_class_id = NA_character_,
                 standard_concept = NA_character_,
                 concept_code = NA_character_,
                 valid_start_date = NA_real_,
                 valid_end_date = NA_real_,
                 invalid_reason = NA_character_))

#' @export

is.standard_library_concept <-
        function(object) {

                class(object) == "standard_library_concept"
        }