Remove negative from option; add default

Author: michaelquinn32

R/testing.R

@@ -41,16 +41,16 @@ test_collection <- function(test, sub_test = NULL,
 
   out_names <- construct_out(in_names)
 
-  if (getOption("styler.test_dir_unwritable")) {
+  if (getOption("styler.test_dir_writable", TRUE)) {
+    out_items <- file.path(path, out_names)
+    in_items <- file.path(path, in_names)
+    out_trees <- construct_tree(in_items)
+  } else {
     in_items <- file.path(path, in_names)
     out_items <- file.path(tempdir(), out_names)
     ref_items <- file.path(path, out_names)
     file.copy(ref_items, out_items, overwrite = TRUE, copy.mode = FALSE)
     out_trees <- file.path(tempdir(), construct_tree(in_names))
-  } else {
-    out_items <- file.path(path, out_names)
-    in_items <- file.path(path, in_names)
-    out_trees <- construct_tree(in_items)
   }
 
   pwalk(list(in_items, out_items, in_names, out_names, out_trees),

R/zzz.R

@@ -7,7 +7,7 @@
     styler.addins_style_transformer = "styler::tidyverse_style()",
     styler.ignore_start = "# styler: off",
     styler.ignore_stop = "# styler: on",
-    styler.test_dir_unwritable = FALSE
+    styler.test_dir_writable = TRUE
   )
   toset <- !(names(op.styler) %in% names(op))
   if (any(toset)) options(op.styler[toset])