#' @importFrom abind abind
#' @importFrom dplyr %>% arrange filter group_by left_join mutate select summarize
#' @importFrom ggplot2 aes element_blank expand_limits facet_wrap geom_boxplot ggplot ggplotGrob geom_rect geom_point labs theme theme_classic xlim ylim xlab ylab
#' @importFrom graphics abline arrows axis axTicks barplot boxplot contour hist identify layout legend
#' lines matplot mtext par plot plot.new points polygon segments text title text
#' @importFrom grDevices col2rgb colorRampPalette dev.off jpeg rainbow rgb xy.coords
#' @importFrom grid unit.c unit grid.newpage grid.draw
#' @importFrom methods getClassDef getSlots .hasSlot new show slot slot<- slotNames
#' @importFrom parallel detectCores
#' @importFrom snowfall sfClusterEval sfInit sfExportAll sfIsRunning sfExport sfSapply sfLibrary
#' @importFrom stats acf approx coef cor dbeta density dnorm dlnorm lm loess loess.smooth nls setNames SSasympOff
#' median nlm optim optimise optimize plogis pnorm predict qlnorm quantile rbeta
#' rlnorm rmultinom rnorm runif sd
#' @importFrom utils browseURL capture.output combn flush.console packageVersion ls.str lsf.str read.csv read.csv2
#'
NULL
.onUnload <- function (libpath) {
library.dynam.unload("DLMtool", libpath)
}
if(getRversion() >= "2.15.1") utils::globalVariables(Names)
# change messages to blue text instead of default red
message <- function(...) {
if (requireNamespace("crayon", quietly = TRUE)) {
x <- paste(...)
return(base::message(crayon::blue(paste(base::strwrap(x), collapes="\n"))))
} else {
return(base::message(...))
}
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.