test interactive() before

larmarange · Sep 23, 2022 · 04b90e7 · 04b90e7
1 parent 93f390e
commit 04b90e7
Show file tree

Hide file tree

Showing 14 changed files with 14 additions and 14 deletions.
diff --git a/R/model_list_variables.R b/R/model_list_variables.R
@@ -18,7 +18,7 @@
 #'
 #' @export
 #' @family model_helpers
-#' @examplesIf .assert_package("gtsummary", boolean = TRUE) && interactive()
+#' @examplesIf interactive() && .assert_package("gtsummary", boolean = TRUE)
 #' Titanic %>%
 #'   dplyr::as_tibble() %>%
 #'   dplyr::mutate(Survived = factor(Survived, c("No", "Yes"))) %>%

diff --git a/R/tidiers.R b/R/tidiers.R
@@ -7,7 +7,7 @@
 #' interval in the tidied output
 #' @param conf.level the confidence level to use for the confidence interval
 #' @param ... additional parameters passed to `parameters::model_parameters()`
-#' @examplesIf .assert_package("parameters", boolean = TRUE)
+#' @examplesIf interactive() && .assert_package("parameters", boolean = TRUE)
 #' lm(Sepal.Length ~ Sepal.Width + Species, data = iris) %>%
 #'   tidy_parameters()
 #' @export

diff --git a/R/tidy_add_estimate_to_reference_rows.R b/R/tidy_add_estimate_to_reference_rows.R
@@ -27,7 +27,7 @@
 #' @inheritParams tidy_plus_plus
 #' @export
 #' @family tidy_helpers
-#' @examplesIf .assert_package("gtsummary", boolean = TRUE) && .assert_package("emmeans", boolean = TRUE)
+#' @examplesIf interactive() && .assert_package("gtsummary", boolean = TRUE) && .assert_package("emmeans", boolean = TRUE)
 #' df <- Titanic %>%
 #'   dplyr::as_tibble() %>%
 #'   dplyr::mutate(dplyr::across(where(is.character), factor))

diff --git a/R/tidy_add_header_rows.R b/R/tidy_add_header_rows.R
@@ -27,7 +27,7 @@
 #' @inheritParams tidy_plus_plus
 #' @export
 #' @family tidy_helpers
-#' @examplesIf .assert_package("gtsummary", boolean = TRUE) & interactive()
+#' @examplesIf interactive() && .assert_package("gtsummary", boolean = TRUE)
 #' df <- Titanic %>%
 #'   dplyr::as_tibble() %>%
 #'   dplyr::mutate(Survived = factor(Survived, c("No", "Yes")))

diff --git a/R/tidy_add_reference_rows.R b/R/tidy_add_reference_rows.R
@@ -27,7 +27,7 @@
 #' @inheritParams tidy_plus_plus
 #' @export
 #' @family tidy_helpers
-#' @examplesIf .assert_package("gtsummary", boolean = TRUE) & interactive()
+#' @examplesIf interactive() && .assert_package("gtsummary", boolean = TRUE)
 #' df <- Titanic %>%
 #'   dplyr::as_tibble() %>%
 #'   dplyr::mutate(Survived = factor(Survived, c("No", "Yes")))

diff --git a/R/tidy_disambiguate_terms.R b/R/tidy_disambiguate_terms.R
@@ -14,7 +14,7 @@
 #' @inheritParams tidy_plus_plus
 #' @export
 #' @family tidy_helpers
-#' @examplesIf .assert_package("lme4", boolean = TRUE) && .assert_package("broom.mixed", boolean = TRUE) && .assert_package("gtsummary", boolean = TRUE)
+#' @examplesIf interactive() && .assert_package("lme4", boolean = TRUE) && .assert_package("broom.mixed", boolean = TRUE) && .assert_package("gtsummary", boolean = TRUE)
 #' mod <- lme4::lmer(marker ~ stage + (1|grade) + (death|response), gtsummary::trial)
 #' mod %>% tidy_and_attach() %>% tidy_disambiguate_terms()
 

diff --git a/R/tidy_plus_plus.R b/R/tidy_plus_plus.R
@@ -49,7 +49,7 @@
 #' when requested output cannot be generated. Default is FALSE
 #' @param ... other arguments passed to `tidy_fun()`
 #' @family tidy_helpers
-#' @examplesIf .assert_package("gtsummary", boolean = TRUE)
+#' @examplesIf interactive() && .assert_package("gtsummary", boolean = TRUE)
 #' ex1 <- lm(Sepal.Length ~ Sepal.Width + Species, data = iris) %>%
 #'   tidy_plus_plus()
 #' ex1

diff --git a/man/model_list_variables.Rd b/man/model_list_variables.Rd
diff --git a/man/tidy_add_estimate_to_reference_rows.Rd b/man/tidy_add_estimate_to_reference_rows.Rd
diff --git a/man/tidy_add_header_rows.Rd b/man/tidy_add_header_rows.Rd
diff --git a/man/tidy_add_reference_rows.Rd b/man/tidy_add_reference_rows.Rd
diff --git a/man/tidy_disambiguate_terms.Rd b/man/tidy_disambiguate_terms.Rd
diff --git a/man/tidy_parameters.Rd b/man/tidy_parameters.Rd
diff --git a/man/tidy_plus_plus.Rd b/man/tidy_plus_plus.Rd