R/deleteEntity.R

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

#
# 
# Author: mfuria
###############################################################################

setMethod(
    f = "deleteEntity",
    signature = "numeric",
    definition = function(entity) {
      deleteEntity(as.character(entity))
    }
)

setMethod(
    f = "deleteEntity",
    signature = "character",
    definition = function(entity) {
      if (isSynapseId(entity)) {
        # deleteEntitySFTPAttachments(entity) reenable once SYNR-850 is addressed
        synapseDelete(.generateEntityUri(entity))
      } else {
        stop(sprintf("%s is not a Synapse Id.", entity[1]))
      }
    }
)