styler

Author: mattansb

tests/testthat/test-data.frame-with-rvar.R

@@ -45,9 +45,13 @@ test_that("data.frame w/ rvar_col descrive_posterior etc", {
   res <- eti(dfx, rvar_col = "my_rvar", ci = c(0.8, 0.95))
   res.ref <- eti(dfx$my_rvar, ci = c(0.8, 0.95))
   expect_true(all(c("mu", "sigma") %in% colnames(res)))
-  expect_identical(as.data.frame(res[c("mu", "sigma")]),
-                   data.frame(mu = c(0, 0, 0.5, 0.5, 1, 1),
-                              sigma = c(1, 1, 0.5, 0.5, 0.25, 0.25)))
+  expect_identical(
+    as.data.frame(res[c("mu", "sigma")]),
+    data.frame(
+      mu = c(0, 0, 0.5, 0.5, 1, 1),
+      sigma = c(1, 1, 0.5, 0.5, 0.25, 0.25)
+    )
+  )
   expect_identical(nrow(format(res)), 3L)
   expect_identical(ncol(format(res)), 4L)
   expect_equal(res[setdiff(colnames(res), c("mu", "sigma"))],

tests/testthat/test-emmGrid.R

@@ -33,9 +33,13 @@ test_that("emmGrid hdi", {
   expect_identical(xhdi$CI_low, xhdi2$CI_low)
 
   xhdi3 <- hdi(all_, ci = c(0.9, 0.95))
-  expect_identical(as.data.frame(xhdi3[1:2]),
-                   data.frame(group = c("1", "1", "2", "2", ".", "."),
-                              contrast = c(".", ".", ".", ".", "group1 - group2", "group1 - group2"), stringsAsFactors = FALSE))
+  expect_identical(
+    as.data.frame(xhdi3[1:2]),
+    data.frame(
+      group = c("1", "1", "2", "2", ".", "."),
+      contrast = c(".", ".", ".", ".", "group1 - group2", "group1 - group2"), stringsAsFactors = FALSE
+    )
+  )
 })
 
 test_that("emmGrid point_estimate", {

tests/testthat/test-marginaleffects.R

@@ -33,16 +33,26 @@ withr::with_environment(
 
     # multi ci levels
     res <- hdi(mfx, ci = c(0.8, 0.9))
-    expect_identical(as.data.frame(res[1:3]),
-                 data.frame(term = c("am", "am", "am", "am", "cyl", "cyl",
-                                     "cyl", "cyl", "cyl", "cyl", "cyl", "cyl",
-                                     "hp", "hp", "hp", "hp"),
-                            contrast = c("1 - 0", "1 - 0", "1 - 0", "1 - 0",
-                                         "6 - 4", "6 - 4", "8 - 4", "8 - 4",
-                                         "6 - 4", "6 - 4", "8 - 4", "8 - 4",
-                                         "dY/dX", "dY/dX", "dY/dX", "dY/dX"),
-                            am = c(0, 0, 1, 1, 0, 0, 0, 0, 1, 1, 1, 1, 0, 0,
-                                   1, 1), stringsAsFactors = FALSE))
+    expect_identical(
+      as.data.frame(res[1:3]),
+      data.frame(
+        term = c(
+          "am", "am", "am", "am", "cyl", "cyl",
+          "cyl", "cyl", "cyl", "cyl", "cyl", "cyl",
+          "hp", "hp", "hp", "hp"
+        ),
+        contrast = c(
+          "1 - 0", "1 - 0", "1 - 0", "1 - 0",
+          "6 - 4", "6 - 4", "8 - 4", "8 - 4",
+          "6 - 4", "6 - 4", "8 - 4", "8 - 4",
+          "dY/dX", "dY/dX", "dY/dX", "dY/dX"
+        ),
+        am = c(
+          0, 0, 1, 1, 0, 0, 0, 0, 1, 1, 1, 1, 0, 0,
+          1, 1
+        ), stringsAsFactors = FALSE
+      )
+    )
 
     # estimate_density
     mfx <- marginaleffects::comparisons(mod,