Merge pull request #965 from IndrajeetPatil/963_change_defaults

Default to styling all supported file formats

Author: lorenzwalthert

API

@@ -11,9 +11,9 @@ default_style_guide_attributes(pd_flat)
 specify_math_token_spacing(zero = "'^'", one = c("'+'", "'-'", "'*'", "'/'"))
 specify_reindention(regex_pattern = NULL, indention = 0, comments_only = TRUE)
 specify_transformers_drop(spaces = NULL, indention = NULL, line_breaks = NULL, tokens = NULL)
-style_dir(path = ".", ..., style = tidyverse_style, transformers = style(...), filetype = c("R", "Rprofile"), recursive = TRUE, exclude_files = NULL, exclude_dirs = c("packrat", "renv"), include_roxygen_examples = TRUE, base_indention = 0, dry = "off")
+style_dir(path = ".", ..., style = tidyverse_style, transformers = style(...), filetype = c("R", "Rprofile", "Rmd", "Rmarkdown", "Rnw", "Qmd"), recursive = TRUE, exclude_files = NULL, exclude_dirs = c("packrat", "renv"), include_roxygen_examples = TRUE, base_indention = 0, dry = "off")
 style_file(path, ..., style = tidyverse_style, transformers = style(...), include_roxygen_examples = TRUE, base_indention = 0, dry = "off")
-style_pkg(pkg = ".", ..., style = tidyverse_style, transformers = style(...), filetype = c("R", "Rprofile"), exclude_files = "R/RcppExports.R", exclude_dirs = c("packrat", "renv"), include_roxygen_examples = TRUE, base_indention = 0, dry = "off")
+style_pkg(pkg = ".", ..., style = tidyverse_style, transformers = style(...), filetype = c("R", "Rprofile", "Rmd", "Rmarkdown", "Rnw", "Qmd"), exclude_files = "R/RcppExports.R", exclude_dirs = c("packrat", "renv"), include_roxygen_examples = TRUE, base_indention = 0, dry = "off")
 style_text(text, ..., style = tidyverse_style, transformers = style(...), include_roxygen_examples = TRUE, base_indention = 0)
 tidyverse_math_token_spacing()
 tidyverse_reindention()

NEWS.md

@@ -6,6 +6,12 @@ editor_options:
 
 # styler 1.7.0.9000 (Development version)
 
+**User-facing changes**
+
+-  `style_dir()` and `style_pkg()` now default to styling all supported file 
+   formats (`.R`, `.Rmd`, `.Rmarkdown`, `.Rnw`, and `.qmd`) in the (package) 
+   directory (\@IndrajeetPatil, #965).
+
 **Features**
 
 -   `filetype` `.qmd` is now supported, but not turned on by default (#931).

R/ui-styling.R

@@ -75,7 +75,7 @@ style_pkg <- function(pkg = ".",
                       ...,
                       style = tidyverse_style,
                       transformers = style(...),
-                      filetype = c("R", "Rprofile"),
+                      filetype = c("R", "Rprofile", "Rmd", "Rmarkdown", "Rnw", "Qmd"),
                       exclude_files = "R/RcppExports.R",
                       exclude_dirs = c("packrat", "renv"),
                       include_roxygen_examples = TRUE,
@@ -255,7 +255,7 @@ style_dir <- function(path = ".",
                       ...,
                       style = tidyverse_style,
                       transformers = style(...),
-                      filetype = c("R", "Rprofile"),
+                      filetype = c("R", "Rprofile", "Rmd", "Rmarkdown", "Rnw", "Qmd"),
                       recursive = TRUE,
                       exclude_files = NULL,
                       exclude_dirs = c("packrat", "renv"),

inst/WORDLIST

@@ -148,7 +148,9 @@ prefill
 prettycode
 PRs
 purrr
+qmd
 questionr
+Qmd
 rcmdcheck
 RcppExports
 rds

man/style_dir.Rd

@@ -295,17 +295,17 @@ test_that("styler can style R and Rmd files via style_pkg()", {
   expect_false(any(grepl("RcppExports.R", msg, fixed = TRUE)))
 })
 
-test_that("style_pkg() does not style qmd files by default", {
+test_that("style_pkg() styles qmd files by default", {
   msg <- capture_output(
     style_pkg(testthat_file("public-api", "xyzpackage-qmd"))
   )
   expect_true(any(grepl("hello-world.R", msg, fixed = TRUE)))
   expect_true(any(grepl("test-package-xyz.R", msg, fixed = TRUE)))
-  expect_false(any(grepl("random.Rmd", msg, fixed = TRUE)))
-  expect_false(any(grepl("random.Rmarkdown", msg, fixed = TRUE)))
-  expect_false(any(grepl("README.Rmd", msg, fixed = TRUE)))
+  expect_true(any(grepl("random.Rmd", msg, fixed = TRUE)))
+  expect_true(any(grepl("random.Rmarkdown", msg, fixed = TRUE)))
+  expect_true(any(grepl("README.Rmd", msg, fixed = TRUE)))
   expect_false(any(grepl("RcppExports.R", msg, fixed = TRUE)))
-  expect_false(any(grepl("new.qmd", msg, fixed = TRUE)))
+  expect_true(any(grepl("new.qmd", msg, fixed = TRUE)))
 })
 
 test_that("style_pkg() can find qmd anywhere", {