Adj to tests to improve passing

ngreifer · Jul 27, 2024 · 5945481 · 5945481
1 parent dd69ea4
commit 5945481
Show file tree

Hide file tree

Showing 5 changed files with 25 additions and 3 deletions.
diff --git a/tests/testthat/test-glm_weightit.R b/tests/testthat/test-glm_weightit.R
@@ -1,4 +1,7 @@
 test_that("No weights", {
+  skip_if_not_installed("sandwich")
+  skip_if_not_installed("brglm2")
+
   eps <- if (capabilities("long.double")) 1e-5 else 1e-1
 
   test_data <- readRDS(test_path("fixtures", "test_data.rds"))
@@ -71,6 +74,8 @@ test_that("No weights", {
 })
 
 test_that("Binary treatment", {
+  skip_if_not_installed("fwb")
+
   eps <- if (capabilities("long.double")) 1e-5 else 1e-1
 
   test_data <- readRDS(test_path("fixtures", "test_data.rds"))
@@ -81,8 +86,6 @@ test_that("Binary treatment", {
                    include.obj = TRUE)
   })
 
-  expect_M_parts_okay(W)
-
   expect_no_condition({
     fit0 <- glm_weightit(Y_C ~ A * (X1 + X2 + X3 + X4 + X5 + X6 + X7 + X8 + X9),
                         data = test_data, weightit = W)

diff --git a/tests/testthat/test-method_glm.R b/tests/testthat/test-method_glm.R
@@ -1,4 +1,9 @@
 test_that("Binary treatment", {
+  skip_if_not_installed("rootSolve")
+  skip_if_not_installed("cobalt")
+  skip_if_not_installed("brglm2")
+  skip_if_not_installed("logistf")
+
   eps <- if (capabilities("long.double")) 1e-5 else 1e-1
 
   test_data <- readRDS(test_path("fixtures", "test_data.rds"))
@@ -210,6 +215,8 @@ test_that("Binary treatment", {
 })
 
 test_that("Ordinal treatment", {
+  skip_if_not_installed("rootSolve")
+
   eps <- if (capabilities("long.double")) 1e-5 else 1e-1
 
   test_data <- readRDS(test_path("fixtures", "test_data.rds"))

diff --git a/tests/testthat/test-multinom_weightit.R b/tests/testthat/test-multinom_weightit.R
@@ -1,4 +1,8 @@
 test_that("No weights", {
+  skip_if_not_installed("sandwich")
+  skip_if_not_installed("mlogit")
+  skip_if_not_installed("dfidx")
+
   eps <- if (capabilities("long.double")) 1e-5 else 1e-1
 
   test_data <- readRDS(test_path("fixtures", "test_data.rds"))
@@ -56,6 +60,9 @@ test_that("No weights", {
 })
 
 test_that("Binary treatment", {
+  skip_if_not_installed("mlogit")
+  skip_if_not_installed("dfidx")
+
   eps <- if (capabilities("long.double")) 1e-5 else 1e-1
 
   test_data <- readRDS(test_path("fixtures", "test_data.rds"))

diff --git a/tests/testthat/test-ordinal_weightit.R b/tests/testthat/test-ordinal_weightit.R
@@ -1,4 +1,7 @@
 test_that("No weights", {
+  skip_if_not_installed("MASS")
+  skip_if_not_installed("sandwich")
+
   eps <- if (capabilities("long.double")) 1e-5 else 1e-1
 
   test_data <- readRDS(test_path("fixtures", "test_data.rds"))
@@ -85,6 +88,8 @@ test_that("No weights", {
 })
 
 test_that("Binary treatment", {
+  skip_if_not_installed("MASS")
+
   eps <- if (capabilities("long.double")) 1e-5 else 1e-1
 
   test_data <- readRDS(test_path("fixtures", "test_data.rds"))

diff --git a/vignettes/estimating-effects.Rmd b/vignettes/estimating-effects.Rmd
@@ -26,7 +26,7 @@ pre code {
 </style>
 ```
 ```{r, include = FALSE}
-knitr::opts_chunk$set(echo = TRUE, eval=T)
+knitr::opts_chunk$set(echo = TRUE, eval = TRUE)
 options(width = 200, digits= 4)
 
 me_ok <- requireNamespace("marginaleffects", quietly = TRUE)