R/onAttach.R

In MarcusKlik/fstquery: A fst implementation of the rquery interface

#  fstquery - A fst implementation of the rquery interface.
#
#  Copyright (C) 2018-present, Mark AJ Klik
#
#  This file is part of the fstquery R package.
#
#  The fstquery R package is free software: you can redistribute it and/or modify it
#  under the terms of the GNU Affero General Public License version 3 as
#  published by the Free Software Foundation.
#
#  The fstquery 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. See the GNU Affero General Public License
#  for more details.
#
#  You should have received a copy of the GNU Affero General Public License along
#  with the fstquery R package. If not, see <http://www.gnu.org/licenses/>.
#
#  You can contact the author at:
#  - fstquery R package source repository : https://github.com/marcusklik/fstquery


.onAttach <- function(libname, pkgname) {
  # Runs when attached to search() path such as by library() or require()
  if (interactive()) {
    v <- packageVersion("fstquery")
    d <- read.dcf(system.file("DESCRIPTION", package = "fstquery"), fields = c("Packaged", "Built"))

    if (is.na(d[1])) {
      if (is.na(d[2])) {
        return() # neither field exists
      } else {
        d <- unlist(strsplit(d[2], split = "; "))[3]
      }
    } else {
      d <- d[1]
    }

    # version number odd => dev
    dev <- as.integer(v[1, 3]) %% 2 == 1

    packageStartupMessage("fstquery package v", v, if (dev) paste0(" IN DEVELOPMENT built ", d))

    # Check for old version
    if (dev && (Sys.Date() - as.Date(d)) > 28)
        packageStartupMessage("\n!!! This development version of the package is rather old, please update !!!")
  }
}