R/zzz.R

In Jiefei-Wang/AltWrapper: Create an ALTREP object by defining ALTREP functions in R

#' @useDynLib AltWrapper, .registration = TRUE
#' @importFrom Rcpp sourceCpp
#' @importFrom methods setMethod new callNextMethod
.onLoad <- function(libname, pkgname) {
    C_initial_package(altrepRegistryEnvironment)
    env <- getNamespace("AltWrapper")
    altrepSortStatus <- C_get_sortness_macro()
    altrepNAStatus <- C_get_NA_status_macro()
    assign("altrepSortStatus", altrepSortStatus, envir = env)
    assign("altrepNAStatus", altrepNAStatus, envir = env)
}

.onUnload <- function(libpath) {
    library.dynam.unload("AltWrapper", libpath)
}