Merge pull request #61 from r-lib/f-dir-exists

Author: krlmlr

R/has-file.R

@@ -22,7 +22,7 @@ has_file <- function(filepath, contents = NULL, n = -1L) {
     if (!file.exists(testfile)) {
       return(FALSE)
     }
-    if (is_dir(testfile)) {
+    if (dir.exists(testfile)) {
       return(FALSE)
     }
     match_contents(testfile, .(contents), .(n))
@@ -52,10 +52,7 @@ has_dir <- function(filepath) {
 
   testfun <- eval(bquote(function(path) {
     testfile <- file.path(path, .(filepath))
-    if (!file.exists(testfile)) {
-      return(FALSE)
-    }
-    is_dir(testfile)
+    dir.exists(testfile)
   }))
 
   desc <- paste0("contains a directory `", filepath, "`")
@@ -263,15 +260,11 @@ str.root_criteria <- function(object, ...) {
 
 list_files <- function(path, filename) {
   files <- dir(path = path, pattern = filename, all.files = TRUE, full.names = TRUE)
-  dirs <- is_dir(files)
+  dirs <- dir.exists(files)
   files <- files[!dirs]
   files
 }
 
-is_dir <- function(x) {
-  dir.exists(x)
-}
-
 match_contents <- function(f, contents, n) {
   if (is.null(contents)) {
     return(TRUE)