chore: fix some annoying formatting

Author: etiennebacher

tests/testthat/test-standardize_models.R

@@ -82,103 +82,11 @@ test_that("transformations", {
     ignore_attr = TRUE
   )
 
+  # fmt: skip
   d <- data.frame(
-    time = as.factor(c(
-      1,
-      2,
-      3,
-      4,
-      5,
-      1,
-      2,
-      3,
-      4,
-      5,
-      1,
-      2,
-      3,
-      4,
-      5,
-      1,
-      2,
-      3,
-      4,
-      5,
-      1,
-      2,
-      3,
-      4,
-      5,
-      1,
-      2,
-      3,
-      4,
-      5
-    )),
-    group = c(
-      1,
-      1,
-      1,
-      1,
-      1,
-      2,
-      2,
-      2,
-      2,
-      2,
-      1,
-      1,
-      1,
-      1,
-      1,
-      2,
-      2,
-      2,
-      2,
-      2,
-      1,
-      1,
-      1,
-      1,
-      1,
-      2,
-      2,
-      2,
-      2,
-      2
-    ),
-    sum = c(
-      0,
-      5,
-      10,
-      15,
-      20,
-      0,
-      20,
-      25,
-      45,
-      50,
-      0,
-      5,
-      10,
-      15,
-      20,
-      0,
-      20,
-      25,
-      45,
-      50,
-      0,
-      5,
-      10,
-      15,
-      20,
-      0,
-      20,
-      25,
-      45,
-      50
-    ) # nolint
+    time = factor(rep(c("1", "2", "3", "4", "5"), 6)),
+    group = rep(rep(c(1, 2), 3), each = 5L),
+    sum = rep(c(0, 5, 10, 15, 20, 0, 20, 25, 45, 50), 3)
   )
   m <- lm(log(sum + 1) ~ as.numeric(time) * group, data = d)