R/rhooks.R

In SantanderMetGroup/convertR: A climate4R Package for Unit Conversion and Variable Derivation

#' @importFrom utils packageDescription

.onAttach <- function(...) {
    pkgname <- "convertR"
    ver <- packageDescription(pkgname)$Version
    builddate <- packageDescription(pkgname)$Date
    mess <- paste(pkgname, " version ", ver, " (", builddate,") is loaded", sep = "")
    packageStartupMessage(mess)
    url <- paste0("https://raw.githubusercontent.com/SantanderMetGroup/", pkgname, "/master/DESCRIPTION")
    b <- tryCatch(suppressWarnings(readLines(url)), error = function(er) {
        er <- NULL
        return(er)
    })
    if (!is.null(b)) {
        latest.ver <- package_version(gsub("Version: ", "", b[grep("^Version", b)]))
        if (ver < latest.ver) {
            ver.mess1 <- paste0("WARNING: Your current version of ", pkgname, " (v", ver, ") is not up-to-date")
            ver.mess <- paste0("Get the latest stable version (", latest.ver,
                               ") using <devtools::install_github('SantanderMetGroup/", pkgname, "')>")
            packageStartupMessage(ver.mess1)
            packageStartupMessage(ver.mess)
        } else if (ver > latest.ver) {
            ver.mess1 <- paste0("WARNING: Your current version of ", pkgname, " (v", ver,
                                ") is ahead of the master branch version (", latest.ver, ")")
            ver.mess <- paste0("Development version may have an unexpected behaviour")
            packageStartupMessage(ver.mess1)
            packageStartupMessage(ver.mess)
        }
    }
    packageStartupMessage("  More information about the \'climate4R\' ecosystem in: http://meteo.unican.es/climate4R")
}
# End



#' @importFrom utils globalVariables

if (getRversion() >= "3.1.0") utils::globalVariables(c("Rv", "Rd", "epsilon", "T0", "es0", "GammaST", "g"))