#
# getVersionInfo
# retrieves the black list / latest version info for the R client, using a cache to avoid repeated web calls
#
#
getVersionInfo<-function(logErrorsToSynapse=TRUE) {
cacheTimestampName<-"versionsInfoTimestamp"
cacheVersionInfoName<-"versionsInfo"
cacheRefreshSeconds<-300 # 5 minutes
now<-Sys.time()
cacheTimestamp<-.getCache(cacheTimestampName)
versionInfo<-.getCache(cacheVersionInfoName)
if (is.null(versionInfo) || is.null(cacheTimestamp) || Sys.time()-now>cacheRefreshSeconds) {
response<-getURLWithRetries(.getVersionsEndpoint(), opts=.getCache("curlOpts"), logErrorsToSynapse=logErrorsToSynapse)
versionInfo <- synFromJson(response$body)
.setCache(cacheTimestampName, now)
.setCache(cacheVersionInfoName, versionInfo)
}
versionInfo
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.