R/getParentEntity.R

In Sage-Bionetworks/rSynapseClientRewrite: Synapse R Client from Sage Bionetworks

## 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"))
  }
)