/usr/lib/R/library/Matrix/data/CAex.R is in r-cran-matrix 1.2-12-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 | stopifnot(require(Matrix), require(methods)) # Matrix classes; new, slot<-
CAex <-
local({
load(system.file(file.path("external", "CAex_slots.rda"), package = "Matrix"))
## -> 'L'
r <- new("dgCMatrix")
for (n in c("Dim", "i","p","x"))
slot(r, n) <- L[[n]]
r
})
## The reverse { CAex |--> L } is
if(FALSE) {
sNms <- c("Dim", "i", "p", "x")
L <- lapply(sNms, function(N) slot(CAex, N)); names(L) <- sNms
save(L, file = "/u/maechler/R/Pkgs/Matrix/inst/external/CAex_slots.rda")
}
|