packrat/lib-R/x86_64-w64-mingw32/3.6.1/Matrix/data/USCounties.R

In jmcascalheira/LGMIberiaCluster: Research compendium for the paper "Human adaptations and palaeoenvironmental record during the Last Glacial Maximum in the Iberian Peninsula"

stopifnot(requireNamespace("methods", quietly = TRUE),
	  requireNamespace("Matrix" , quietly = TRUE))

USCounties <-
    local({
	load(system.file(file.path("external", "USCounties_slots.rda"),
                         package = "Matrix"))
	## -> 'L'
	r <- methods::new("dsCMatrix")
        `slot<-` <- methods::`slot<-`
	for (n in c("Dim", "i","p","x"))
	    slot(r, n) <- L[[n]]
	r
    })

## The reverse:
if(FALSE) {
 L <- list()
 for (n in c("Dim", "i","p","x"))    L[[n]] <- slot(USCounties, n)
}