Description Usage Arguments Value Examples
Get all of the children of a given source item.
1 | get_all_children(source, id)
|
source |
The source vocabulary. |
id |
The internal source ID. |
A data.tree
which contains the tree of children.
1 2 3 4 5 | # Get all the CPT codes that are children of the CUI \code{C0519273}.
conceptAtoms <- get_concept_atoms("C0519273")
cptCodes <- conceptAtoms %>% list.filter(rootSource == 'CPT') %>% list.select(code) %>% list.apply(function(x) rev(str_split(x, "/")[[1]])[[1]])
cptKids <- cptCodes %>% list.apply(function(x) get_all_children("CPT", x))
cptLeaves <- cptKids %>% list.apply(function(x) x$Get('desc', filterFun = isLeaf)) %>% list.apply(function(x) data.frame(proc_code = names(x), desc = x )) %>% bind_rows()
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.