.onAttach <- function(...) {
pkgname <- "ecomsUDG.Raccess"
lib <- system.file(package = pkgname)
ver <- packageDescription(pkgname)$Version
builddate <- packageDescription(pkgname)$Date
mess <- paste(pkgname, " version ", ver, " (", builddate,") is loaded", sep = "")
packageStartupMessage(mess)
url <- "https://raw.githubusercontent.com/SantanderMetGroup/ecomsUDG.Raccess/master/DESCRIPTION"
con <- tryCatch(getURL(url, ssl.verifypeer = FALSE), error = function(er) {
er <- NULL
return(er)
})
if (!is.null(con)) {
b <- readLines(textConnection(con))
latest.ver <- package_version(gsub("Version: ", "", b[grep("Version", b)]))
if (ver < latest.ver) {
ver.mess1 <- "WARNING: Your current version of ecomsUDG.Raccess is not up-to-date"
ver.mess <- paste("Get the latest stable version", latest.ver, "at http://meteo.unican.es/trac/wiki/udg/ecoms/RPackage/versions#Versions")
packageStartupMessage(ver.mess1)
packageStartupMessage(ver.mess)
}
}
}
# End
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.