obtain list of names of a set of ancestors
ancestors_names(anclist)
output of `ancestors`
list of vectors of character()
non-entities are removed and names are extracted
pa = get_ordo_owl_path()
orde = setup_entities(pa)
al = ancestors(orde[1001:1002])
ancestors_names(al)
#> $Orphanet_146
#> [1] "Orphanet_146" "Orphanet_C001" "Orphanet_557493" "Orphanet_377788"
#> [5] "Thing"
#>
#> $Orphanet_251576
#> [1] "Orphanet_251576" "Orphanet_557494" "Thing" "Orphanet_C001"
#>