Nothing
# Copyright (C) 2014 - 2015 James Balamuta, Stephane Guerrier, Roberto Molinari
#
# This file is part of GMWM R Methods Package
#
# The `gmwm` R package is free software: you can redistribute it and/or modify it
# under the terms of the Attribution-NonCommercial-ShareAlike 4.0 International (CC BY-NC-SA 4.0)
# included within the packages source as the LICENSE file.
#
# The `gmwm` R package is distributed in the hope that it will be useful, but
# WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
#
# You should have received a copy of the Attribution-NonCommercial-ShareAlike 4.0 International
# (CC BY-NC-SA 4.0) along with `gmwm`. If not, see <http://www.smac-group.com/licensing/>.
.onAttach <- function(...){
if (!interactive()) return()
local_version = utils::packageDescription('gmwm')
cran_version = packageVersionCRAN("gmwm")
if(!is.null(cran_version) && length(cran_version) != 0L){
latest_version = utils::compareVersion(cran_version[1],local_version$Version)
d = if(latest_version == 0){
'CURRENT'
}else if(latest_version == 1){
'OUT OF DATE'
}else{
'DEVELOPMENT'
}
}else{ # Gracefully fail.
d = "ERROR IN OBTAINING REMOTE VERSION INFO"
latest_version = 0
}
packageStartupMessage('Version: ', local_version$Version, ' (', d,') built on ', local_version$Date)
if(latest_version == 1){
packageStartupMessage('\n!!! NEW VERSION ', cran_version[1] ,' RELEASED ON ', cran_version[2],' !!!')
packageStartupMessage('Download the latest version: ',cran_version[1],' from CRAN via `install.packages("gmwm")`\n')
}
packageStartupMessage('Check for updates and report bugs at https://github.com/SMAC-Group/gmwm')
packageStartupMessage('To see the user guides use browseVignettes("gmwm").')
}
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.