R/utils.R

In r-hub/cranlike: Tools for 'CRAN'-Like Repositories

format_iso_8601 <- function (date) {
  format(as.POSIXlt(date, tz = "UTC"), "%Y-%m-%dT%H:%M:%S+00:00")
}

pkgname_from_filename <- function(files) {
  vapply(strsplit(basename(files), "_", fixed = TRUE), "[[", "", 1)
}

#' @importFrom utils getFromNamespace

`%:::%` <- function(pkg, fun) {
  getFromNamespace(fun, asNamespace(pkg))
}

check_existing_files <- function(files) {

  miss <- ! file.exists(files)

  if (sum(miss) == 1) {
    stop("File does not exist: ", files[miss])

  } else if (sum(miss) > 1) {
    stop("Files do not exist: ", paste(files[miss], collapse = ", "))
  }
}

drop_nulls <- function(l) {
  l[ ! vapply(l, is.null, TRUE) ]
}

str_trim <- function(x) {
  sub("\\s+$", "", sub("^\\s+", "", x))
}