24 lines
821 B
R

## -*- mode: R -*-
## loading code which is first sent to R on remote sessions
local({
curver <- '%s'
## MM: ok for Windows?
## VS: Should be fine (who is using win remote anyways?)
.c.dir <- '~/.config/ESSR'
verfile <- file.path(.c.dir, 'VERSION')
envfile <- file.path(.c.dir, 'ESSR.rda')
ver <- if(file.exists(verfile)) scan(verfile, what = "string") else "0.0"
tryCatch({
if(ver < curver) {
url <- paste('https://vitalie.spinu.info/ESSR/ESSR_', curver, '.rda', sep = '')
if(!file.exists(.c.dir))
dir.create(.c.dir, recursive = TRUE)
utils::download.file(url, envfile)
cat(curver, file = verfile)
}
load(envfile)
attach(ESSR)
print(TRUE)
} , error = function(e) print(FALSE))
})