R/synapsePut.R

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

## Send a put request to Synapse
## 
## Author: Matthew D. Furia <matt.furia@sagebase.org>
###############################################################################

synapsePut <- 
  function(
    uri, 
    entity, 
    endpoint=synapseServiceEndpoint("REPO"), 
    curlHandle=getCurlHandle(), 
    anonymous = FALSE, 
    opts = .getCache("curlOpts"),
    checkHttpStatus=TRUE,
	logErrorsToSynapse=TRUE,
	extraRetryStatusCodes=NULL
)
{
  ## constants
  kMethod <- "PUT"
  ## end constants
  
  .synapsePostPut(uri = uri, 
    entity = entity, 
    endpoint = endpoint,
    requestMethod = kMethod,
    curlHandle = curlHandle, 
    anonymous = anonymous,  
    opts = opts,
    checkHttpStatus=checkHttpStatus,
	logErrorsToSynapse=logErrorsToSynapse,
	extraRetryStatusCodes=extraRetryStatusCodes
  )
}