R/zzz.R

In garray: Generalized Array Arithmetic for Ragged Arrays with Named Margins

# Serial definition, and they will be redefined for parallel in .onAttach()
.LAPPLY <- function(X, FUN, ...) lapply(X, FUN, ...)
# Not simply `.LAPPLY <- lapply` or it becomes .Internal()
.MAPPLY <- function(FUN, dots, MoreArgs=NULL)
	.mapply(FUN, dots, MoreArgs)
.onAttach <- function(libname, pkgname) {
	if (0L==length(getOption("mc.cores"))||2L>getOption("mc.cores")[[1]]) {
		packageStartupMessage("Running without parallel")
	} else {
		packageStartupMessage(
			'Running with parallels, check options("mc.cores")')
		utils::assignInMyNamespace(".LAPPLY",
			function(X, FUN, ...) parallel::mclapply(X, FUN, ...))
		utils::assignInMyNamespace(".MAPPLY",
			function(FUN, dots, MoreArgs=NULL) {
			if (!length(dots)) return(list())
			l <- lengths(dots)
			n <- max(l)
			if (n && min(l)==0L) stop(
				"Zero-length inputs mixed with non-zero length")
			if (n<2L) {
				.mapply(FUN, dots, MoreArgs)
			} else {
				if (any(l!=n)) dots <- lapply(dots,
					function(x) rep(x, length.out=n))
				f <- function(idx) .mapply(FUN, lapply(dots,
					function(x) x[idx]), MoreArgs)
				do.call(c, parallel::mclapply(seq_len(n), f))
			}
		})	# Simplified from parallel::mcmapply()
	}
	invisible()
}
# Error: package or namespace load failed for ‘garray’:
#  .onAttach failed in attachNamespace() for 'garray', details:
#   call: .LAPPLY <<- function(X, FUN, ...) parallel::mclapply(X, FUN, 
#   error: cannot change value of locked binding for '.LAPPLY'