Nothing
# Taking cue from Roger Bivand's maptools:
.PBSadmbEnv <- new.env(FALSE, parent=globalenv()) # be sure to exportPattern("^\\.PBS") in NAMESPACE
.onAttach <- function(libname, pkgname)
{
.initOptions()
pkg_info <- utils::sessionInfo( package="PBSadmb" )$otherPkgs$PBSadmb
if( is.character( pkg_info$Packaged ) )
pkg_date <- strsplit( pkg_info$Packaged, " " )[[1]][1]
else
pkg_date <- date()
userguide_path <- system.file( "doc/PBSadmb-UG.pdf", package = "PBSadmb" )
year <- substring(date(),nchar(date())-3,nchar(date()))
packageStartupMessage("
-----------------------------------------------------------
PBS ADMB ", pkg_info$Version, " -- Copyright (C) 2008-",year," Fisheries and Oceans Canada
A complete user guide 'PBSadmb-UG.pdf' is located at
", userguide_path, "
Packaged on ", pkg_date, "
Pacific Biological Station, Nanaimo
All available PBS packages can be found at
https://github.com/pbs-software/pbs-admb
Type admb() to start a GUI for operating ADMB.
-----------------------------------------------------------
")
}
.onUnload <- function(libpath) {
rm(.PBSadmbEnv)
}
# No Visible Bindings
# ===================
if(getRversion() >= "2.15.1") utils::globalVariables(names=c(
".PBSadmb",".PBSadmb.pkgOptions",".PBSmod",
"add","admbpath","admbver","argvec",
"chkadmb","chkgcc",
"debugsymbols","digest","dll",
"editor",
"files",
"gccpath","gccver",
"isdir",
"logfile",
"msysbin",
"nsims","nthin",
"optfile",
"PBSadmb","pltView","prefix","pthin",
"raneff","runType",
"safe",
"toView",
"verbose"
), package="PBSadmb")
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.