R/zzz.R

Defines functions global_variables .onLoad

all_opts_funs <- NULL

.onLoad <- function(libname, pkgname) {
  ns <- asNamespace(pkgname)
  all_opts_funs_chr <- ls(ns, all.names = TRUE, pattern = "^opts_")
  all_opts_funs <<- mget(all_opts_funs_chr, ns)
  s3_register("roxygen2::roxy_tag_parse", "roxy_tag_enumerateOptFunctions")
  s3_register("roxygen2::roxy_tag_rd", "roxy_tag_enumerateOptFunctions")
}

global_variables <- function() {
  files <- list.files(system.file("R", package = "constructive"), full.names = TRUE)
  nms <-
    sort(unique(unlist(
      lapply(files, function(file) all.names(parse(file = file), unique = TRUE))
    )))
  utils::globalVariables(nms)
}

global_variables()
rm(global_variables)

Try the constructive package in your browser

Any scripts or data that you put into this service are public.

constructive documentation built on April 3, 2025, 9:39 p.m.