Nothing
#' sizeCheck
#'
#' Calculates expected magclass object length and checks that it stays below
#' the limit defined with magclass_sizeLimit (default = 10^9). This is useful
#' to prevent out of memory errors in case of unwanted object expansions
#' Ignored if \code{getOption("magclass_sizeLimit")} is negative.
#'
#' @param dim dimensions of the current object as returned by function \code{dim}
#' @author Jan Philipp Dietrich
#' @examples
#' pop <- maxample("pop")
#' magclass:::sizeCheck(dim(pop))
#'
#' \dontrun{
#' magclass:::sizeCheck(c(6765L, 10946L, 17711L))
#' }
sizeCheck <- function(dim) {
if (!is.vector(dim, "integer")) {
stop("Numeric vector of dimension sizes expected.")
}
if (is.null(getOption("magclass_sizeLimit"))) options(magclass_sizeLimit = 10^9) #nolint
# estimate new object size and check against size limit
if (getOption("magclass_sizeLimit") > 0) {
size <- prod(dim)
if (size > getOption("magclass_sizeLimit")) {
stop("magclass object size ",
"(", paste(dim, collapse = " x "), " = ", size, ") ",
"exceeds limit (getOption(\"magclass_sizeLimit\") = ",
getOption("magclass_sizeLimit"), ").")
}
}
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.