Commit 93bdf6b0 authored by Marek Ostaszewski's avatar Marek Ostaszewski
Browse files

get_annotations updated

parent 6f7a8560
Pipeline #39606 passed with stages
in 1 minute and 3 seconds
......@@ -40,7 +40,7 @@ get_reactome_pathway_contents <- function(reactome_path_id) {
get_mnv_refs <- function(fcomponents) {
### Get MINERVA HGNCs as a named list
message("Retrieving MINERVA HGNCs collection")
mnv_refs <- sapply(fcomponents$map_elements, function(x) get_annotation(x$references, "HGNC_SYMBOL"))
mnv_refs <- sapply(fcomponents$map_elements, function(x) sapply(x$references, get_annotation, "HGNC_SYMBOL") )
names(mnv_refs) <- fcomponents$models$name
return(mnv_refs)
}
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment