24 lines
821 B
R
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))
|
|
})
|