upgrade pre-commit to stable release that does not contain reference to bleeding lintr

Author: lorenzwalthert

.pre-commit-config.yaml

@@ -6,7 +6,7 @@ default_language_version:
 
 repos:
   - repo: https://github.com/lorenzwalthert/precommit
-    rev: f3498c421d68a1db26de1a1fe3ecc91dd6f03b5e
+    rev: v0.3.2.9019
     hooks:
       - id: style-files
         args:

R/nest.R

@@ -343,7 +343,7 @@ nest_parse_data <- function(pd_flat) {
 
     rhs <- nest_(child, "child", setdiff(names(child), "parent_"))
 
-    nested <- left_join(internal, rhs, by = c("id" = "parent_"))
+    nested <- left_join(internal, rhs, by = c(id = "parent_"))
 
     children <- nested$child
     for (i in seq_along(children)) {

R/testing.R

@@ -327,7 +327,7 @@ local_test_setup <- function(cache = FALSE,
                              .local_envir = parent.frame()) {
   current_cache <- cache_info(format = "tabular")
   withr::local_options(
-    list("styler.quiet" = TRUE, "R.cache.rootPath" = tempfile()),
+    list(styler.quiet = TRUE, R.cache.rootPath = tempfile()),
     .local_envir = .local_envir
   )
   if (cache) {

R/ui-caching.R

@@ -138,7 +138,7 @@ cache_info <- function(cache_name = NULL, format = "both") {
 #' @export
 cache_activate <- function(cache_name = NULL,
                            verbose = !getOption("styler.quiet", FALSE)) {
-  options("styler.cache_name" = cache_name %||% styler_version)
+  options(styler.cache_name = cache_name %||% styler_version)
   path <- cache_find_path(cache_name)
 
   if (verbose) {
@@ -155,7 +155,7 @@ cache_activate <- function(cache_name = NULL,
 #' @rdname cache_activate
 #' @export
 cache_deactivate <- function(verbose = !getOption("styler.quiet", FALSE)) {
-  options("styler.cache_name" = NULL)
+  options(styler.cache_name = NULL)
 
   if (verbose) {
     cat("Deactivated cache.\n")