model updates

Integration/MINERVA_access/minerva_access_functions.R

@@ -62,9 +62,7 @@ get_map_components <- function(map_api, project_id = NULL,
 }
 
 ### Get annotation of a given type, from element/reaction references
-get_annotation <- function(freferences, ftype) {
-  sapply(freferences, 
-         function(x) {
-           ifelse(any(x$type == ftype), x$resource[x$type == ftype], NA)
-         })
+get_annotation <- function(references, selected_type) {
+  if(length(references) == 0) { return(NA) }
+  with(data.frame(references), resource[type == selected_type])
 }