Exclude R/import-standalone.+R files from restyling.

Author: olivroy

R/ui-styling.R

@@ -69,7 +69,7 @@ style_pkg <- function(pkg = ".",
                       style = tidyverse_style,
                       transformers = style(...),
                       filetype = c("R", "Rprofile", "Rmd", "Rmarkdown", "Rnw", "Qmd"),
-                      exclude_files = c("R/RcppExports.R", "R/cpp11.R"),
+                      exclude_files = c("R/RcppExports.R", "R/cpp11.R", "R/import-standalone.+R"),
                       exclude_dirs = c("packrat", "renv"),
                       include_roxygen_examples = TRUE,
                       base_indention = 0L,
@@ -91,8 +91,8 @@ style_pkg <- function(pkg = ".",
 #'   ".Rmd")`, or `c("r", "rmd")`. Supported values (after standardization) are:
 #'   "r", "rprofile", "rmd", "rmarkdown", "rnw", "qmd". Rmarkdown is treated as
 #'   Rmd.
-#' @param exclude_files Character vector with paths to files that should be
-#'   excluded from styling.
+#' @param exclude_files Character vector with paths or regular expressions to files
+#'   that should be excluded from styling.
 #' @param exclude_dirs Character vector with directories to exclude
 #'   (recursively). Note that the default values were set for consistency with
 #'   [style_dir()] and as these directories are anyways not styled.
@@ -107,8 +107,10 @@ prettify_pkg <- function(transformers,
                          dry) {
   filetype_ <- set_and_assert_arg_filetype(filetype)
   r_files <- rprofile_files <- vignette_files <- readme <- NULL
+  exclude_files <- set_arg_paths(exclude_files)
+  exclude_files_regex <- paste0(exclude_files[!file.exists(exclude_files)], collapse = "|")
   exclude_files <- c(
-    set_arg_paths(exclude_files),
+    exclude_files,
     dir_without_.(exclude_dirs, pattern = map_filetype_to_pattern(filetype))
   )
   if ("\\.r" %in% filetype_) {
@@ -171,6 +173,8 @@ prettify_pkg <- function(transformers,
     c(r_files, rprofile_files, vignette_files, readme),
     exclude_files
   )
+  # Remove the regex.
+  files <- files[!grepl(exclude_files_regex, files)]
   transform_files(files,
     transformers = transformers,
     include_roxygen_examples = include_roxygen_examples,