Nothing
.onAttach <- function(libname, pkgname) {
# Check for updates only if interactive and once per session
if (interactive() && is.null(getOption("autoFC.update.checked"))) {
options(autoFC.update.checked = TRUE)
tryCatch({
# Fetch current version from CRAN
available <- utils::available.packages(repos = "https://cran.rstudio.com")
cran_version <- available["autoFC", "Version"]
local_version <- as.character(utils::packageVersion("autoFC"))
if (!is.na(cran_version) && cran_version > local_version) {
packageStartupMessage(
"A new version of autoFC (", cran_version,
") is available on CRAN. You have ", local_version, ".\n",
"We recommend running update.packages() to install it."
)
}
}, error = function(e) NULL)
}
}
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.