R/init.R

In eddelbuettel/anytime: Anything to 'POSIXct' or 'Date' Converter

## anytime: Use Boost Date_Time to convert date(time) data to POSIXt
##
## Copyright (C) 2015 - 2020  Dirk Eddelbuettel
##
## This file is part of anytime.
##
## anytime is free software: you can redistribute it and/or modify it
## under the terms of the GNU General Public License as published by
## the Free Software Foundation, either version 2 of the License, or
## (at your option) any later version.
##
## anytime 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 General Public License for more details.
##
## You should have received a copy of the GNU General Public License
## along with anytime.  If not, see <http://www.gnu.org/licenses/>.

.pkgenv <- new.env(parent = emptyenv())

.onLoad <- function(libname, pkgname) { 	#nocov start

    ## -- Task one: set a timezone value
    tz <- NULL

    ## Sys.timezone() queries enviroment variable TZ
    ## as well as per-OS system files where available
    tz <- Sys.timezone()

    ## if this didn't work (we had a case with a bad
    ## /etc/localtime) and if gettz is available, use it
    if (!isTRUE(nzchar(tz)) || is.na(tz)) {
        if (requireNamespace("gettz", quietly=TRUE)) {
            tz <- gettz::gettz()
        }
    }

    ## if there is still nothing, use UTC
    if (!isTRUE(nzchar(tz)) || is.na(tz) || is.null(tz)) {
        warning("No TZ information found. Falling back to UTC.")
        tz <- "UTC"
    }

    .pkgenv[["tz"]] <- tz
    setInitialTZ(tz)

    ## -- Task two: see if we are inside RStudio, now refined to
    ##    also check if we are behind a minimally viable version
    ##    as the daily builds with around 1.1.129 are safe due to
    ##    an internal restructuring in how RStudio is built
    isRStudio <- if (Sys.getenv("RSTUDIO", unset="0") == "1" &&
                     exists("RStudio.Version") &&
                     ## the following is evil but keeps R CMD check off our back
                     eval(parse(text=paste("RStudio.Version()$version",
                                           ">=", "\"1.1.129\"")))) TRUE else FALSE

    .pkgenv[["isRStudio"]] <- isRStudio

    ## -- Task three: CRAN tests with the two Fedora machines are
    ##    (objectively speaking) untameable (we tried at least three rounds)
    osrel <- "/etc/os-release"
    if (file.exists(osrel)) { # at least on Ubuntu, Debian, Fedora
        x <- read.table(osrel, sep="=", row.names=1, col.names=c("","Val"), header = FALSE)
        .pkgenv[["os"]] <- x["ID", "Val"]
        .pkgenv[["version"]] <- x["VERSION_ID", "Val"]
    } else {
        .pkgenv[["os"]] <- .pkgenv[["version"]] <- ""
    }

}						#nocov end

.isFedora <- function() .pkgenv[["os"]] == "fedora"
.isDebian <- function() .pkgenv[["os"]] == "debian"
.isUbuntu <- function() .pkgenv[["os"]] == "ubuntu"