## Send a post request to Synapse
##
## Author: Matthew D. Furia <matt.furia@sagebase.org>
###############################################################################
synapsePost <-
function(uri,
entity,
endpoint=synapseServiceEndpoint("REPO"),
curlHandle=getCurlHandle(),
anonymous = FALSE,
opts = .getCache("curlOpts"),
checkHttpStatus=TRUE,
logErrorsToSynapse=TRUE,
extraRetryStatusCodes=NULL
)
{
## constants
kMethod <- "POST"
## end constants
.synapsePostPut(uri = uri,
entity = entity,
endpoint = endpoint,
requestMethod = kMethod,
curlHandle = curlHandle,
anonymous = anonymous,
opts = opts,
checkHttpStatus=checkHttpStatus,
logErrorsToSynapse=logErrorsToSynapse,
extraRetryStatusCodes=extraRetryStatusCodes
)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.