dev/code/zzz.R

In doehm/survivoR: Data from all Seasons of Survivor (US) TV Series in Tidy Format

.onAttach <- function(lib, pkg) {
  tryCatch(
    {
      git_version <- suppressWarnings(read.table("https://raw.githubusercontent.com/doehm/survivoR/master/inst/version-git.txt")[1,1])
      # git_version <- "2.0.6"
      git <- as.numeric(strsplit(git_version, "\\.")[[1]])
      sys_version <- as.character(utils::packageVersion("survivoR"))
      sys <- as.numeric(strsplit(sys_version, "\\.")[[1]])
      if(any(git - sys > 0)) {
        msg1 <- paste0("Package version on Git (", git_version, ") is ahead of system version (", sys_version, ")\n")
        msg2 <- "Install from Git for the latest data - devtools::install_github('doehm/survivoR')"
        packageStartupMessage(paste0(msg1, msg2))
      }
    },
    error = function(e) message("Head to https://github.com/doehm/survivoR to check for the latest data")
  )
}