exclude hidden folders

NEWS.md

@@ -1,5 +1,12 @@
 # findInFiles 0.5.0
 
+* Files without base name (such as `.gitignore`) were excluded from the search. 
+This is no longer the case.
+
+* Hidden folders were not excluded from the search when running a recursive 
+search (i.e. `depth` is `NULL` or a negative integer). Now they are always 
+excluded.
+
 * The argument `ext` of the `findInFiles` function has been renamed to 
 `extensions` and it can be a vector of file extensions now.
 

R/grepInFiles.R

@@ -1,8 +1,11 @@
 getFiles <- function(extensions, depth){
   stopifnot(isPositiveInteger(depth))
+  extensions <- do.call(c, lapply(extensions, function(ext) {
+    paste0(c(".", "*."), ext)
+  }))
   wildcards <- do.call(c, lapply(extensions, function(ext) {
     Reduce(
-      file.path, x = rep("*", depth), init = paste0("*.", ext),
+      file.path, x = rep("*", depth), init = ext,
       right = TRUE, accumulate = TRUE
     )
   }))
@@ -99,7 +102,9 @@ grepInFiles <- function(
     suppressWarnings(system2(
       command,
       args = c(
-        paste0("--include=\\*\\.", ext), opts, "-r", "-e", shQuote(pattern)
+        paste0("--include=\\*\\.", ext),
+        paste0("--exclude-dir=", shQuote(".*")),
+        opts, "-r", "-e", shQuote(pattern)
       ),
       stdout = TRUE, stderr = TRUE
     ))