test: format in files with air and write them to out files so you can see how formatting differs between air and styler

Author: lorenzwalthert

inst/air/overwrite-in-test-files-with-out-files.R

@@ -0,0 +1,31 @@
+# List all input files recursively that end with "-in.R"
+input_files <- list.files(
+  path = "tests/testthat",
+  pattern = "-in\\.R$",
+  recursive = TRUE,
+  full.names = TRUE
+)
+
+# Function to generate output filename by replacing -in.R with -out.R
+get_output_filename <- function(input_file) {
+  gsub("-in\\.R$", "-out.R", input_file)
+}
+
+# Process each file
+for (input_file in input_files) {
+  output_file <- get_output_filename(input_file)
+
+  # Create directory for output file if it doesn't exist
+  output_dir <- dirname(output_file)
+  if (!dir.exists(output_dir)) {
+    dir.create(output_dir, recursive = TRUE)
+  }
+
+  # Read input file and write to output file
+  file.copy(input_file, output_file, overwrite = TRUE)
+
+  # Print status
+  cat(sprintf("Processed: %s -> %s\n", input_file, output_file))
+}
+
+cat(sprintf("\nProcessed %d files\n", length(input_files)))

tests/testthat/alignment/cols-with-one-row-out.R

@@ -5,12 +5,12 @@ c(
 
 
 c(
-  "x", "z",
-  "cgjhg", "thi", "z"
+  "x",       "z",
+  "cgjhg",  "thi", "z"
 )
 
 
 c(
-  "x", "y", "z", "m", "n", "o", "p",
+  "x", "y", "z",  "m", "n",  "o", "p",
   "c", "d"
 )

tests/testthat/alignment/fun-decs-out.R

@@ -22,8 +22,8 @@ function(x =    2,
 
 
 # not aligned
-k <- function(x = fish,
-              aq = 21,
+k <- function(x =   fish,
+              aq =     21,
               ayz = t(322)) {}
 
 # aligned

tests/testthat/alignment/named-out.R

@@ -24,25 +24,25 @@ call(
 
 # algorithm: not aligned (spacing around =). human: aligned (fix: spacing around =).
 call(
-  x = 1, kdd = 2,
-  xy = 2, n = 33,
+  x  =1,   kdd  =  2,
+  xy =2,   n    = 33,
 )
 
 # algorithm: not aligned. human: not aligned.
 call(
-  x = 1, kdd = 2,
+  x  = 1,   kdd  =  2,
   xy = 2, n = 33,
 )
 
 # algorithm: not aligned. human: not aligned.
 call(
-  x = 1, kdd = 2,
+  x  =  1,   kdd  =  2,
   xy = 22, n = 33,
 )
 
 # algorithm: not aligned. human: not aligned.
 call(
-  x = 1, d = 2,
+  x  = 1, d = 2,
   xy = 22, n = 33,
 )
 
@@ -63,6 +63,7 @@ call(
 # algorithm: aligned. human: aligned.
 call(
   x  = 1, n = 33, z = "333",
+
   xy = 2,
 )
 
@@ -102,11 +103,12 @@ call(
 )
 
 
+
 # if all col1 arguments are named, col1 must also be aligned
 # not aligned
 fell(
-  x = 1,
-  y = 23,
+  x =   1,
+  y =  23,
   zz = NULL
 )
 
@@ -120,8 +122,8 @@ fell(
 # aligned but comma in the wrong line
 call(
   a  =  2,
-  bb =  3,
-)
+  bb =  3
+,)
 
 
 # aligned (comments)
@@ -153,15 +155,15 @@ call(
 
 # not aligned (comments)
 call(
-  a = 2, x = 111,
-  bb = 3, # hi
+  a =  2, x = 111,
+  bb =  3, # hi
 )
 
 # not aligned (comments)
 call(
   # another one
-  a = 2, x = 111,
-  bb = 3,
+  a =  2, x = 111,
+  bb =  3,
   # hi
 )
 
@@ -171,7 +173,8 @@ call(
 # the extra spaces before `=` as of 29a010064257fa1a9caf32d182e7ee62008de98a.
 call(
   x  = 95232,
-  y  = f(),
+  y  = f(
+  ),
 )
 
 
@@ -184,9 +187,9 @@ ca(
 
 # not aligned (left after `=`)
 ca(
-  x = 23200,
+  x  = 23200,
   y2 = "hi",
-  m = c(rm.na = 7)
+  m  =  c(rm.na = 7)
 )
 
 # aligned =, first all named

tests/testthat/alignment/one-col-some-named-out.R

@@ -1,14 +1,14 @@
 foo(
   img,
   pkg = "abc",
-  color = "lmn",
-  font = "xyz"
+  color       = "lmn",
+  font  = "xyz"
 )
 
 
 foo(
   img, #
   pkg = "abc",
-  color = "lmn",
-  font = "xyz"
+  color       = "lmn",
+  font  = "xyz"
 )

tests/testthat/alignment/quoted-names-out.R

@@ -1,7 +1,7 @@
 df <- dplyr::rename(df,
-  "xValues" = "Time",
+  "xValues" =   "Time",
   "xUnit" = "TimeUnit",
-  "yValues" = "simulationValues",
+  "yValues"   = "simulationValues",
   "yUnit" = "unit",
-  "yDimension" = "dimension"
+  "yDimension"  = "dimension"
 )

tests/testthat/alignment/tribble-out.R

@@ -5,22 +5,22 @@ tribble(
 )
 
 tribble(
-  ~x, ~d,
+  ~x,       ~d,
   "axa'fa", 1:6,
-  "b", 4:6
+  "b",    4:6
 )
 
 
 tribble(
-  ~x, ~d,
+  ~x,       ~d,
   "axa'fa", 1:6,
-  "b", 4:6
+"b",      4:6
 )
 
 tribble(
-  ~x, ~d,
-  "axa'fa", 1:6,
-  "b", 4:6
+  ~x,       ~d,
+"axa'fa",  1:6,
+  "b",      4:6
 )
 
 # has EQ_SUB which don't match, not tribble-like

tests/testthat/curly-curly/mixed-out.R

@@ -1,20 +1,32 @@
+
 ##  ............................................................................
 ##  line breaks                                                             ####
 # not inserting line breaks
 call({{ x }})
 
 # removing line breaks
-call({{ x }})
+call({{
+  x
+}})
 
-call({{ x }})
+call({
+  {x
+}})
 
-call({{ x }})
+call({
+  {x}}
+)
 
-call({{ x }})
+call({
+  {x}
+  })
 
 call(
-  {{ x }}
-)
+  {
+  {x
+  }
+    }
+  )
 
 ##  ............................................................................
 ##  spaces                                                                  ####
@@ -23,37 +35,33 @@ call(
 call({{ x }})
 
 # removing spaces between braces
-call({{ x }})
-call({{ x }})
-call({{ x }})
-call({{ x }})
+call({ { x }})
+call({ { x }} )
+call( { { x }})
+call( { { x } })
 
 # inserting spaces within {{
-call({{ x }})
-call({{ x }})
-call({{ x }})
+call({{x }})
+call({{x}})
+call({{ x}})
 
 # not removing spaces within {{
 call({{ x }})
 
 
 # combine spaces and line breaks
-call({{ x }})
+call({{ x}
+  })
 
-call({{ x }})
+call({
+  { x}})
 
 # not applicable when only one curly brace
 {
   y
 }
-{
-  1 + 1
-}
-{
-  {
-    1 + a
-  } + 1
-} # not curly-culry!
+{ 1 + 1}
+{{1 + a} + 1} # not curly-culry!
 
 
 ##  ............................................................................
@@ -63,39 +71,32 @@ call("test", {
 })
 
 call(
-  "test",
-  {
-    1
-  }
-)
-
-call("test", {
-  1
-})
-
-call("test", {
+  "test", {
   1
 })
 
-call(
-  {
+call("test",
+     {
     1
-  },
-  a + b,
-  {
-    33 / f(c)
-  }
+  })
+
+call("test", {
+  1 }
 )
 
-call({{ x }}, {{ y }})
-call({{ x }}, {{ y }})
+call({
+  1
+}, a + b, { 33 / f(c)})
+
+call({{ x }}, {{ y}})
+call({{ x }}, {{ y}
+  })
 call(
-  {{ x }}, {{ y }}
-)
+  {{ x }}, {{ y}})
 
 call(
   {{ x }},
-  {{ y }} := 3, f(bk)
+  {{ y}} := 3, f(bk)
 )
 
 call({{

tests/testthat/escaping/basic-escape-out.R

@@ -22,20 +22,20 @@ NULL
 #' things
 #'
 #' @examples
-#' call("\n")
+#' call('\n')
 #' ano("\\.", further = X)
 NULL
 
-"single quotes with
-embedded and \n not embedded line breaks"
+'single quotes with
+embedded and \n not embedded line breaks'
 
-x <- "	2" # there is a tab emebbed (created with writeLines("x <- '\t2'"))
+x <- '	2' # there is a tab emebbed (created with writeLines("x <- '\t2'"))
 
-x <- "\001"
-"\x01"
+x <- '\001'
+'\x01'
 
 "\001"
-"\001"
+'\001'
 
 #' things
 #'