R/onAttach.R

In phenology: Tools to Manage a Parametric Function that Describes Phenology and More

.onAttach <- function(libname, pkgname) {
    actual <- utils::packageDescription(pkgname)[["Version"]]

    packageStartupMessage(paste("Welcome in package", pkgname, "version", actual))
    
    conn <- url("https://hebergement.universite-paris-saclay.fr/marcgirondot/CRAN/phenology/version.txt")
    
    version_get <- try(suppressWarnings(
      readLines(con=conn)), silent = TRUE
    )
    close(con=conn)
    if (!(is.null(version_get)) & (!inherits(version_get, "try-error"))) {
      if (package_version(actual, strict = TRUE) < package_version(version_get, strict = TRUE)) {
        packageStartupMessage('An update is available; use:\ninstall.packages("https://hebergement.universite-paris-saclay.fr/marcgirondot/CRAN/phenology.tar.gz", repos=NULL, type="source")')
      } else {
        packageStartupMessage("No update is available")
      }
    } else {
      packageStartupMessage("No internet connection is available to check for presence of update")
    }
    
}