Merge branch 'repo_update' of https://git-r3lab.uni.lu/covid/models into repo_update

Resources/Crosstalks/find_crosstalks.R

@@ -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)
 }