R/zzz_constants.R

In rtables: Reporting Tables

# nocov start

## Empty default objects to avoid repeated calls
.onLoad <- function(libname, pkgname) {
    ns <- asNamespace(pkgname)
    delayedAssign("EmptyColInfo", InstantiatedColumnInfo(),
                  assign.env = ns)
    delayedAssign("EmptyElTable", ElementaryTable(),
                  assign.env = ns)
    delayedAssign("empty_table", rtable(" "),
                  assign.env = ns)
    delayedAssign("EmptyRootSplit", RootSplit(),
                  assign.env = ns) ## is this used?
    delayedAssign("EmptyAllSplit", AllSplit(),
                  assign.env = ns) ## is this used?
    namespaceExport(ns, c("EmptyColInfo", "EmptyElTable"))
}

#' Empty table, column, split objects
#' @name EmptyColInfo
#' @aliases EmptyElTable EmptyRootSplit EmptyAllSplit
#' @description Empty objects of various types to compare against efficiently.
NULL

# nocov end