only run tests when pkgs are available

Author: Daniel D. Sjoberg

R/add_vif.R

@@ -11,7 +11,7 @@
 #' @seealso Review [list, formula, and selector syntax][syntax] used throughout gtsummary
 #' @export
 #'
-#' @examplesIf (identical(Sys.getenv("NOT_CRAN"), "true") || identical(Sys.getenv("IN_PKGDOWN"), "true")) && gtsummary:::is_pkg_installed(c("cardx", "car"))
+#' @examplesIf (identical(Sys.getenv("NOT_CRAN"), "true") || identical(Sys.getenv("IN_PKGDOWN"), "true")) && gtsummary:::is_pkg_installed(c("cardx", "car", "broom.helpers"))
 #' # Example 1 ----------------------------------
 #' lm(age ~ grade + marker, trial) |>
 #'   tbl_regression() |>

man/add_vif.Rd

@@ -1,5 +1,5 @@
 skip_on_cran()
-skip_if_not(is_pkg_installed(c("cardx", "broom.helpers", "car")))
+skip_if_not(is_pkg_installed(c("cardx", "broom.helpers", "car", "parameters")))
 
 test_that("gather_ard(x) works with `tbl_*()` functions", {
   # tbl_summary()

tests/testthat/test-gather_ard.R

@@ -49,7 +49,7 @@ test_that("modify_caption() works with tbl_cross()", {
 })
 
 test_that("modify_caption() works with tbl_regression()", {
-  skip_if_not(is_pkg_installed("broom.helpers"))
+  skip_if_not(is_pkg_installed(c("cardx", "broom.helpers")))
 
   expect_equal(glm(response ~ age + grade, trial, family = binomial()) |>
                  tbl_regression(exponentiate = TRUE) |>
@@ -62,6 +62,7 @@ test_that("modify_caption() works with tbl_regression()", {
 })
 
 test_that("modify_caption() works with tbl_uvregression()", {
+  skip_if_not(is_pkg_installed(c("cardx", "broom.helpers")))
   expect_equal(tbl_uvregression(trial, method = glm, y = response, method.args = list(family = binomial),
                                 exponentiate = TRUE, include = c("age", "grade")) |>
                  modify_caption("**Adding a caption**", text_interpret = "html") |>

tests/testthat/test-modify_caption.R

@@ -160,7 +160,7 @@ test_that("modify_spanning_header() works with tbl_cross()", {
 })
 
 test_that("modify_spanning_header() works with tbl_regression()", {
-  skip_if_not(is_pkg_installed("broom.helpers"))
+  skip_if_not(is_pkg_installed(c("cardx", "broom.helpers")))
 
   expect_equal(
     glm(response ~ age + grade, trial, family = binomial()) |>
@@ -174,6 +174,7 @@ test_that("modify_spanning_header() works with tbl_regression()", {
 })
 
 test_that("modify_spanning_header() works with tbl_uvregression()", {
+  skip_if_not(is_pkg_installed(c("cardx", "broom.helpers")))
   expect_equal(
     tbl_uvregression(trial, method = glm, y = response, method.args = list(family = binomial),
                      exponentiate = TRUE, include = c("age", "grade")) |>