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 source diff could not be displayed because it is too large. You can view the blob instead.
This source diff could not be displayed because it is too large. You can view the blob instead.
......@@ -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