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 Oct. 25, 2018, 6:29 p.m.