R/onload.R

In gmwm: Generalized Method of Wavelet Moments

# 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").')
}