R/utils-misc.r

In datetimeoffset: Datetimes with Optional UTC Offsets and/or Heterogeneous Time Zones

assert_suggested <- function(package) {
    calling_fn <- deparse(sys.calls()[[sys.nframe()-1]])
    if (!requireNamespace(package, quietly = TRUE)) {
        msg <- c(sprintf("You need to install the suggested package %s to use %s.",
                         sQuote(package), sQuote(calling_fn)),
                 i = sprintf("Use %s.", sQuote(sprintf('install.packages("%s")', package))))
        stop(msg)
    }
}

is_utc <- function(tz) {
    tz %in% c("UTC", "GMT", "Etc/UTC", "Etc/GMT", "GMT-0", "GMT+0", "GMT0")
}

`%||%` <- function(x, y) if (is.null(x)) y else x