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,
}
### 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])
}
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