Update file_search.R

courtsbr · Feb 2, 2024 · 164a2da · 164a2da
1 parent 3b79c38
commit 164a2da
Showing 1 changed file with 7 additions and 4 deletions.
diff --git a/R/file_search.R b/R/file_search.R
@@ -12,8 +12,11 @@ file_search <- function( pattern = "", dir = "R"){
 
   a <- list.files(dir,full.names = TRUE) 
 
-  purrr::map_chr(a,~readLines(.x) %>% stringr::str_c(collapse ="\n")) %>% 
-    stringr::str_which(pattern) %>% 
-    a[.]
+ purrr::map_chr(a, ~{
+    readr::read_lines(.x) %>% 
+      stringr::str_c(collapse = "\n")
+  }) |> 
+    stringr::str_which(pattern) |> 
+    vctrs::vec_slice(a, i= _)
 
-}
+}