forked from remindmodel/remind
-
Notifications
You must be signed in to change notification settings - Fork 0
/
.snapshot.Rprofile
28 lines (22 loc) · 1.19 KB
/
.snapshot.Rprofile
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
# This profile can be used to link the model to a specified library snapshot
# (e.g. if your model version is from an older date and does not work with the
# newest libraries anymore). By default it is not active.
local({ # prevent variables defined here from ending up in the global env
# Set the snapshot path to a path of your choice.
# Snapshots must be compatible to the R version used. If you are using R 4.1
# make sure the selected snapshot's name ends with '_R4'.
snapshot <- "/p/projects/rd3mod/R/libraries/snapshots/2023_04_12_R4"
activateSnapshot <- function(snapshot) {
stopifnot(file.exists(snapshot))
if (R.version$major <= 3) { # include.site is not available before R 4.0
if (endsWith(snapshot, "_R4")) stop("Your R version is ", R.version$major, ", but your library snapshot is for 4.0 or later")
.libPaths(snapshot)
} else {
if (!endsWith(snapshot, "_R4")) stop("Your R version is ", R.version$major, ", but your library snapshot is for < 4.0.")
# setting include.site to FALSE makes sure that only the snapshot and system libraries are used
.libPaths(snapshot, include.site = FALSE)
}
message("libPaths was set to: ", snapshot)
}
activateSnapshot(snapshot)
})