fix styler

Author: lorenzwalthert

inst/hooks/exported/style-files.R

@@ -46,8 +46,8 @@ if (packageVersion("styler") < "1.3.2") {
 } else {
   precommit::may_require_permanent_cache(arguments$no_warn_cache)
 }
-options('styler.cache_root' = arguments$cache_root)
-print(c('cache root set to ', arguments$cache_root))
+options("styler.cache_root" = arguments$cache_root)
+print(c("cache root set to ", arguments$cache_root))
 
 style <- eval(parse(text = paste(arguments$style_pkg, "::", arguments$style_fun)))
 tryCatch(

tests/testthat/test-hooks.R

@@ -8,34 +8,37 @@ run_test("use-tidy-description", "DESCRIPTION", suffix = "")
 ### style-files                                                             ####
 
 # success
-run_test("style-files", 
-         suffix = "-success.R", cmd_args = c('--cache-root=styler')
+run_test("style-files",
+  suffix = "-success.R", cmd_args = c("--cache-root=styler")
 )
 # fail
 run_test("style-files",
-         suffix = "-fail-changed.R", cmd_args = c('--cache-root=styler'), 
-         error_msg = NA)
+  suffix = "-fail-changed.R", cmd_args = c("--cache-root=styler"),
+  error_msg = NA
+)
 
-run_test("style-files", suffix = "-fail-parse.R", cmd_args = c('--cache-root=styler'), 
-         error_msg = "unexpected")
+run_test("style-files",
+  suffix = "-fail-parse.R", cmd_args = c("--cache-root=styler"),
+  error_msg = "unexpected"
+)
 
 # success with cmd args
 run_test("style-files",
   file_name = "style-files-cmd",
   suffix = "-success.R",
-  cmd_args = c("--style_pkg=styler", "--style_fun=tidyverse_style", '--cache-root=styler')
+  cmd_args = c("--style_pkg=styler", "--style_fun=tidyverse_style", "--cache-root=styler")
 )
 
 run_test("style-files",
   file_name = "style-files-cmd",
   suffix = "-success.R",
-  cmd_args = c("--scope=spaces", '--cache-root=styler')
+  cmd_args = c("--scope=spaces", "--cache-root=styler")
 )
 
 run_test("style-files",
   file_name = "style-files-cmd",
   suffix = "-success.R",
-  cmd_args = c('--scope="I(\'spaces\')"', '--cache-root=styler')
+  cmd_args = c('--scope="I(\'spaces\')"', "--cache-root=styler")
 )
 
 run_test("style-files",
@@ -44,8 +47,8 @@ run_test("style-files",
   cmd_args = c(
     '--scope="I(\'spaces\')"',
     "--base_indention=0",
-    "--include_roxygen_examples=TRUE", 
-    '--cache-root=styler'
+    "--include_roxygen_examples=TRUE",
+    "--cache-root=styler"
   )
 )
 
@@ -56,37 +59,37 @@ run_test("style-files",
     '--scope="I(\'spaces\')"',
     "--base_indention=0",
     "--include_roxygen_examples=TRUE",
-    '--reindention="specify_reindention(\'#\')"', 
-    '--cache-root=styler'
+    '--reindention="specify_reindention(\'#\')"',
+    "--cache-root=styler"
   )
 )
 
 run_test("style-files",
   file_name = "style-files",
   suffix = "-base-indention-success.R",
-  cmd_args = c("--base_indention=4", '--cache-root=styler') 
+  cmd_args = c("--base_indention=4", "--cache-root=styler")
 )
 
 run_test("style-files",
   file_name = "style-files",
   suffix = "-roxygen-success.R",
-  cmd_args = c("--include_roxygen_examples=FALSE", '--cache-root=styler')
+  cmd_args = c("--include_roxygen_examples=FALSE", "--cache-root=styler")
 )
 
 # fail with cmd args
 run_test("style-files",
   file_name = "style-files-cmd",
   suffix = "-success.R",
   error_msg = "scope must be one",
-  cmd_args = c("--scope=space", '--cache-root=styler')
+  cmd_args = c("--scope=space", "--cache-root=styler")
 )
 
 run_test("style-files",
   file_name = "style-files-cmd",
   suffix = "-fail.R",
   error_msg = NA,
   cmd_args = c(
-    "--style_pkg=styler", "--style_fun=tidyverse_style", '--cache-root=styler'
+    "--style_pkg=styler", "--style_fun=tidyverse_style", "--cache-root=styler"
   )
 )
 

tests/testthat/test-zzz.R

@@ -1,7 +1,6 @@
 test_that("tests don't write to styler-perm", {
   skip_on_cran()
   expect_false(fs::file_exists(
-      fs::path(R.cache::getCacheRootPath(), "styler-perm")
-    )
-  )
+    fs::path(R.cache::getCacheRootPath(), "styler-perm")
+  ))
 })