Commit f9540beb authored by Marek Ostaszewski's avatar Marek Ostaszewski
Browse files

model updates

parent 2b614cee
Pipeline #39224 passed with stages
in 36 seconds
This diff is collapsed.
...@@ -62,9 +62,7 @@ get_map_components <- function(map_api, project_id = NULL, ...@@ -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 of a given type, from element/reaction references
get_annotation <- function(freferences, ftype) { get_annotation <- function(references, selected_type) {
sapply(freferences, if(length(references) == 0) { return(NA) }
function(x) { with(data.frame(references), resource[type == selected_type])
ifelse(any(x$type == ftype), x$resource[x$type == ftype], NA)
})
} }
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