## Method for getting parent entity
##
## Author: Matthew D. Furia <matt.furia@sagebase.org>
###############################################################################
setMethod(
f = "getParentEntity",
signature = "SynapseEntity",
definition = function(entity){
if(is.null(entityId <- propertyValue(entity, "parentId")))
return(NULL)
parent <- tryCatch(
getEntity(entityId),
error = function(e){
warning(as.character(e))
NULL
}
)
parent
}
)
setMethod(
f = "getParentEntity",
signature = "numeric",
definition = function(entity){
getParentEntity(as.character(entity))
}
)
setMethod(
f = "getParentEntity",
signature = "character",
definition = function(entity){
entity <- getEntity(entity)
getEntity(propertyValue(entity, "parentId"))
}
)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.