Nothing
.pkgenv <- new.env(parent=emptyenv())
.onLoad <- function(libname, pkgname) {
has_data <- requireNamespace("ExactData", quietly = TRUE)
.pkgenv[["has_data"]] <- has_data
}
.onAttach <- function(libname, pkgname) {
if (!.pkgenv$has_data) {
msg <- paste("To use this package, you must install the",
"ExactData package. To install that package,",
"run `install.packages('ExactData',",
"repos='https://pcalhoun1.github.io/drat/', type='source')`.")
msg <- paste(strwrap(msg), collapse="\n")
packageStartupMessage(msg)
}
}
hasData <- function(has_data = .pkgenv$has_data) {
if (!has_data) {
msg <- paste("To use this function, you must have the",
"`ExactData` package installed")
msg <- paste(strwrap(msg), collapse="\n")
stop(msg)
}
}
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.