R/classes-04_omop.graph.R

In meerapatelmd/chariotViz: Visualize the OMOP Vocabularies

setOldClass("dgr_graph")
omop.graph <-
  setRefClass("omop.graph",
           fields    = list(graph = "dgr_graph",
                        src   = "nodes.and.edges",
                        has_example_concepts = "logical"),
           methods    = list(show = print_graph))


setOldClass("dgr_graph")
complete.omop.graph <-
  setRefClass("complete.omop.graph",
           fields    = c(graph = "dgr_graph",
                        src   = "complete.nodes.and.edges",
                        has_example_concepts = "logical"),
           methods    = list(show = print_graph))

setOldClass("dgr_graph")
ancestor.omop.graph <-
  setRefClass("ancestor.omop.graph",
           fields    = c(graph = "dgr_graph",
                        src   = "ancestor.nodes.and.edges",
                        has_example_concepts = "logical"),
           methods    = list(show = print_graph))