expose recursive again because it's not always TRUE

Author: lorenzwalthert

R/ui-styling.R

@@ -272,8 +272,7 @@ prettify_any <- function(transformers,
       setdiff(c("", exclude_dirs)) %>%
       dir_without_.(
         pattern = map_filetype_to_pattern(filetype),
-        ignore.case = TRUE, recursive = FALSE,
-        all.files = TRUE
+        recursive = FALSE
       )
   } else {
     files_other <- c()

R/utils-files.R

@@ -42,20 +42,20 @@ map_filetype_to_pattern <- function(filetype) {
 #' @keywords internal
 #' @examples
 #' setdiff("./file.R", "file.R") # you want to standardize first.
-dir_without_. <- function(path, ...) {
-  purrr::map(path, dir_without_._one, ...) %>%
+dir_without_. <- function(path, recursive = TRUE, ...) {
+  purrr::map(path, dir_without_._one, recursive = recursive, ...) %>%
     unlist()
 }
 
 #' `dir()`, but with full names, ignored case, and included hidden files and
 #' recursive.
 #' @keywords internal
-dir_without_._one <- function(path, ...) {
+dir_without_._one <- function(path, recursive, ...) {
   relative <- dir(
     path = path,
     full.names = FALSE,
     ignore.case = TRUE,
-    recursive = TRUE,
+    recursive = recursive,
     all.files = TRUE,
     ...
   )