R/isAbsolutePath.R

In HenrikBengtsson/R.utils: Various Programming Utilities

###########################################################################/**
# @RdocDefault isAbsolutePath
#
# @title "Checks if this pathname is absolute"
#
# \description{
#   @get "title".
# }
#
# @synopsis
#
# \arguments{
#   \item{pathname}{A @character string of the pathname to be checked.}
#   \item{...}{Not used.}
# }
#
# \value{
#  Returns a @TRUE if the pathname is absolute, otherwise @FALSE.
# }
#
#
#
# @author
#
# @keyword IO
# @keyword programming
#*/###########################################################################
setMethodS3("isAbsolutePath", "default", function(pathname, ...) {
  # Argument 'pathname':
  pathname <- as.character(pathname)
  # BACKWARD COMPATIBILITY: Treat empty path specially?
  pathname <- .getPathIfEmpty(pathname, where="isAbsolutePath")

  nPathnames <- length(pathname)

  # Nothing to do?
  if (nPathnames == 0L) return(logical(0L))

  # Multiple path to be checked?
  if (nPathnames > 1L) {
    res <- sapply(pathname, FUN=isAbsolutePath, ...)
    return(res)
  }

  # A missing pathname?
  if (is.na(pathname)) return(FALSE)

  # Recognize '~' paths
  if (regexpr("^~", pathname) != -1L)
    return(TRUE)

  # Windows paths
  if (regexpr("^.:(/|\\\\)", pathname) != -1L)
    return(TRUE)

  # Split pathname...
  components <- strsplit(pathname, split="[/\\]")[[1L]]
  if (length(components) == 0L)
    return(FALSE)

  (components[1L] == "")
})