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
34
35
36
37
38
39
40
41
42
43
44
45
|
#' Load data.
#'
#' Loads all `.RData` files in the data subdirectory.
#'
#' @inheritParams load_all
#' @keywords programming
#' @export
load_data <- function(path = ".") {
# Note that this simulates normal R package loading by placing the data sets
# in the .__NAMESPACE__.$lazydata environment, but unlike with proper lazy
# loading via lazyLoad(), we'll need to manually copy these objects over to
# the package environment later.
path <- pkg_path(path)
nsenv <- ns_env(pkg_name(path))
lazydata_env <- nsenv$.__NAMESPACE__.$lazydata
objs <- character()
sysdata <- package_file("R", "sysdata.rda", path = path)
if (file.exists(sysdata)) {
objs <- c(objs, load(sysdata, envir = nsenv))
}
path_data <- package_file("data", path = path)
if (file.exists(path_data)) {
paths <- dir(path_data, "\\.[rR][dD]a(ta)?$", full.names = TRUE)
paths <- changed_files(paths)
objs <- c(objs, unlist(lapply(paths, load, envir = lazydata_env)))
paths <- dir(path_data, "\\.[rR]$", full.names = TRUE)
paths <- changed_files(paths)
objs <- c(
objs,
unlist(lapply(
paths,
sys.source,
envir = lazydata_env,
chdir = TRUE,
keep.source = TRUE
))
)
}
invisible(objs)
}
|
