R/getServerVersion.R

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

#
# returns the version of the Synapse server
#
getServerVersion<-function(logErrorsToSynapse=TRUE) {
  cacheTimestampName<-"serverVersionTimestamp"
  cacheVersionInfoName<-"serverVersion"
  cacheRefreshSeconds<-300 # 5 minutes
  now<-Sys.time()
  cacheTimestamp<-.getCache(cacheTimestampName)
  versionInfo<-.getCache(cacheVersionInfoName)
  if (is.null(versionInfo) || is.null(cacheTimestamp) || now-cacheTimestamp>cacheRefreshSeconds) {
    versionInfo<-synapseGet("/version", anonymous=T, logErrorsToSynapse=logErrorsToSynapse)$version
    .setCache(cacheTimestampName, now)
    .setCache(cacheVersionInfoName, versionInfo)
  }
  versionInfo
}