R/refreshSessionToken.R

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

## Refresh the synapse session token
## 
## Author: Matthew D. Furia <matt.furia@sagebase.org>
##############################################################################

synapseRefreshSessionToken <- 
  function(sessionToken, host=.getAuthEndpointLocation())
{
  # constants
  kService <- "/session"
  ## end constants
  
  entity <- list()
  entity$sessionToken <- sessionToken
  
  uri <- kService
  response <- synapsePut(uri=uri, entity=entity, path=.getAuthEndpointPrefix(), host=host, anonymous=TRUE)
  .setCache("sessionTimestamp", Sys.time())
}