R/zzz.R

In GGIR: Raw Accelerometer Data Analysis

.onAttach <- function(...) {
  if (!interactive()) return()
  pkgs <- available.packages()
  cran_version <- package_version(pkgs[which(pkgs[,1] == "GGIR"),"Version"])
  local_version <- packageVersion("GGIR")
  behind_cran <- cran_version > local_version
  if (interactive()) {
    if (behind_cran) {
      msg <- paste0("A newer version of GGIR is available with bug fixes and new features. [", local_version," --> ", cran_version, "]")
      packageStartupMessage(msg)
    }
  }
}