#' @importFrom utils packageVersion
.onLoad <- function(libname = find.package("baytrends"), pkgname = "baytrends"){
repos <- getOption("repos")
repos["USGS"] <- "http://owi.usgs.gov/R"
options(repos = repos)
invisible(repos)
# declaration of global variables (http://stackoverflow.com/questions/9439256)
if(getRversion() >= "2.15.1")
utils::globalVariables(c("begin", "methodsList", "figNum"))
invisible()
}
.onAttach <- function(libname = find.package("baytrends")
, pkgname = "baytrends"){
# packageStartupMessage(paste0("**baytrends v",packageVersion("baytrends")
#," Notice.** This software program is preliminary or provisional and is
# subject to revision. This software program is for testing only, no warranty
# , expressed or implied, is made as to the accuracy and functioning of the
# program and related program material nor shall the fact of distribution
# constitute any such warranty, and no responsibility is assumed in connection
# therewith. This software is provided 'AS IS.' "))
packageStartupMessage(paste0("Loading:baytrends v"
,packageVersion("baytrends")))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.