R/utils.R

Defines functions file.exists

# patch over an issue with trailing separators on Windows
file.exists <- function(...) {
  x=unlist(pairlist(...), use.names = FALSE)
  if (.Platform$OS == "windows") {
    x=sub("[/\\]$","", x)
  }
  base::file.exists(x)
}
jefferis/nat documentation built on Aug. 26, 2018, 12:13 p.m.