Nothing
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)
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.