1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
|
loadRData = function(.self, fn) {
ee = new.env(parent = emptyenv(), hash = FALSE)
ns = load(fn, envir = ee)
if (.self$simplify && length(ns) == 1L)
return(ee[[ns]])
return(as.list(ee))
}
saveRData = function(.self, fn, key, value) {
ee = new.env(parent = emptyenv(), hash = FALSE)
assign(key, value, envir = ee)
save(list = key, envir = ee, file = fn)
return(invisible(key))
}
loadR = function(.self, fn) {
ee = new.env(parent = .GlobalEnv)
wrap = if (.self$suppressMessages)
function(expr) suppressMessages(suppressPackageStartupMessages(expr))
else
identity
wrap(sys.source(fn, ee, chdir = TRUE))
ns = ls(ee, all.names = TRUE)
if (.self$simplify && length(ns) == 1L)
return(ee[[ns]])
return(as.list(ee))
}
saveR = function(.self, fn, key, value) {
ee = new.env(parent = emptyenv(), hash = FALSE)
assign(key, value, envir = ee)
dump(key, file = fn, envir = ee)
}
|
