Fix: remove diretórios

courtsbr · Aug 23, 2024 · 7b9f084 · 7b9f084
1 parent c73db7c
commit 7b9f084
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/R/file_search.R b/R/file_search.R
@@ -10,7 +10,9 @@
 #'
 file_search <- function( pattern = "", dir = "R"){
 
-  a <- list.files(dir,full.names = TRUE) 
+a <- list.files(dir, full.names = TRUE)
+
+  a <- subset(a, subset = !dir.exists(a))
 
  purrr::map_chr(a, ~{
     readr::read_lines(.x) %>%