Release 1.6.2

.pre-commit-config.yaml

@@ -4,18 +4,24 @@ default_stages: [commit]
 
 repos:
 -   repo: https://github.com/lorenzwalthert/precommit
-    rev: v0.1.3.9014
+    rev: v0.1.3.9123
     hooks:
     -   id: style-files
         args: [--style_pkg=styler, --style_fun=tidyverse_style]
-        exclude: 'tests/testthat/.*/.*\.R'
+        exclude:  >
+          (?x)^(
+          tests/testthat/.*/.*\.R(md)?|
+          vignettes/customizing_styler\.Rmd|
+          tests/testthat/public-api/xyzfile-rnw/random4\.Rnw|
+          )$
     -   id: roxygenize
     -   id: use-tidy-description
     -   id: spell-check
         exclude: >
           (?x)^(
-          data/.*|
           \.github/.*\.yaml|
+          data/.*|
+          tests/testthat/.*|
           touchstone/config\.json|
           (.*/|)\.Rprofile|
           (.*/|)\.Renviron|
@@ -38,13 +44,31 @@ repos:
           )$
     -   id: readme-rmd-rendered
     -   id: parsable-R
+        exclude: >
+          (?x)^(
+          tests/testthat/public-api/xyzaddin/addin_region-.*|
+          tests/testmanual/addins/r-invalid\.R|
+          tests/testthat/escaping/basic-escape-out\.R|
+          tests/testthat/indention_operators/base_pipe_and_assignment-.*|
+          tests/testthat/exception_handling/parser-error.R|
+          )$
     -   id: no-browser-statement
+        exclude: >
+          (?x)^(
+          tests/testthat/public-api/xyzaddin/addin_region-.*|
+          tests/testmanual/addins/r-invalid\.R|
+          tests/testthat/escaping/basic-escape-out\.R|
+          tests/testthat/indention_operators/base_pipe_and_assignment-.*|
+          tests/testthat/exception_handling/parser-error.R|
+          )$
     -   id: deps-in-desc
         exclude: >
           (?x)^(
           touchstone/.*|
-          tests/testthat/.*-in\.R(md)?|
-          tests/testthat/.*-out\.R(md)?
+          tests/testmanual/addins/r-invalid\.R|
+          tests/testthat/escaping/basic-escape-out\.R|
+          tests/testthat/rnw/011-conditional-eval-out\.Rnw|
+          tests/testthat/.*\.R(md)?
           )$
 -   repo: https://github.com/pre-commit/pre-commit-hooks
     rev: v4.0.1

DESCRIPTION

@@ -1,7 +1,7 @@
 Type: Package
 Package: styler
 Title: Non-Invasive Pretty Printing of R Code
-Version: 1.6.1.9000
+Version: 1.6.2
 Authors@R: 
     c(person(given = "Kirill",
              family = "Müller",

NEWS.md

@@ -1,3 +1,8 @@
+# styler 1.6.1.9000 (Development version)
+
+* Use pre-commit.ci and improve code quality (#841).
+
+
 # styler 1.6.1
 
 * Files with `.Rmarkdown` extension are now recognized as an R markdown files in

R/nest.R

@@ -135,7 +135,7 @@ drop_cached_children <- function(pd) {
 #' @details
 #' Note that top-level comments **above** code have negative parents
 #' (the negative value of the parent of the code expression that follows after,
-#' a nother comment might be in the way though), all comments that are not top
+#' another comment might be in the way though), all comments that are not top
 #' level have positive ids. All comments for which no code follows afterwards
 #' have parent 0.
 #' @examples

R/utils-cache.R

@@ -201,7 +201,7 @@ cache_dir_default <- function() {
 
 #' Create more specs
 #'
-#' Syntactic suggar for creating more specs. This is useful when we want to add
+#' Syntactic sugar for creating more specs. This is useful when we want to add
 #' more arguments (because we can search for this function in the source code).
 #' @keywords internal
 cache_more_specs <- function(include_roxygen_examples, base_indention) {

R/zzz.R

@@ -13,49 +13,39 @@
   )
   toset <- !(names(op.styler) %in% names(op))
   if (any(toset)) options(op.styler[toset])
-  remind_removing_old_cache()
+  remove_cache_old_versions()
+  remove_old_cache_files()
   invisible()
 }
 
+remove_old_cache_files <- function() {
+  all_cached <- list.files(
+    R.cache::getCachePath(c("styler", styler_version)),
+    full.names = TRUE
+  )
+  date_boundary <- Sys.time() - 60 * 60 * 24 * 6
+  file.remove(
+    all_cached[file.info(all_cached)$mtime < date_boundary]
+  )
+}
+
 #' Ask people to remove the cache
 #'
 #' The way RStudio Startup works does not allow o read the prompt for some
 #' reasons (https://stackoverflow.com/questions/55772436/readline-does-not-prompt-user-input-from-rprofile-site-in-rstudio)
 #' So we better don't use the prompt and issue a message only.
 #' @keywords internal
-remind_removing_old_cache <- function() {
-  if (interactive() && getOption("styler.interactive_ask_remove_old_caches", TRUE)) {
-    dirs <- list.dirs(R.cache::getCachePath("styler"), recursive = FALSE)
-    if (length(dirs) < 1) {
-      return()
-    }
-    dirs <- dirs[unname(sapply(dirs, function(x) length(list.files(x)) > 0))]
-    package_versions <- package_version(basename(dirs), strict = FALSE)
-    package_versions <- package_versions[!is.na(package_versions)]
-    old_package_versions <- package_versions[package_versions < styler_version]
-    if (length(old_package_versions) < 1) {
-      return()
-    }
-
-    cmd <- glue::glue("styler::cache_clear(\"{basename(dirs)}\", ask = FALSE)") %>%
-      paste0(collapse = "\n")
-    cli::cli_alert_info(paste0(
-      "You are using {{styler}} version {styler_version} but we found ",
-      "caches for older versions of {{styler}}.\n",
-      "You can delete them with the following commands:"
-    ))
-    cat("\n")
-    cli::cli_code(cmd)
-    cat("\n")
-    cli::cli_alert_info(
-      paste(
-        "We'll remind you every time you update {{styler}}.",
-        "To suppress this prompt in the future:"
-      )
-    )
-    cat("\n")
-    cli::cli_code(
-      'options("styler.interactive_ask_remove_old_caches" = FALSE)'
-    )
+remove_cache_old_versions <- function() {
+  dirs <- list.dirs(R.cache::getCachePath("styler"), recursive = FALSE)
+  if (length(dirs) < 1) {
+    return()
+  }
+  old_package_dirs <- dirs[basename(dirs) != as.character(styler_version)]
+  if (length(old_package_dirs) < 1) {
+    return()
   }
+  purrr::walk(old_package_dirs, function(dir) {
+    cache_clear(basename(dir), ask = FALSE)
+    file.remove(dir)
+  })
 }

tests/testmanual/tests

@@ -3,7 +3,7 @@
 ## Addins
 
 * set style:
-  - test setting a valid stlye
+  - test setting a valid style
   - test setting an invalid style
 * style active file:
   - saved .R file (valid and invalid code)
@@ -23,4 +23,3 @@
   - unsaved .Rnw file
   - saved non-R file
   - unsaved R file
-