suppress package startup messages in tests

using: ``` r_files <- list.files(path = "tests/testthat", pattern = "\\.R$", full.names = TRUE) process_file <- function(file_path) { lines <- readLines(file_path) modified_lines <- sapply(lines, function(line) { if (grepl("^\\s*library\\(", line)) { pkg <- gsub("library(", "", line, fixed = TRUE) pkg <- gsub(")", "", pkg, fixed = TRUE) if (pkg %in% c("modeltests", tidyverse::tidyverse_packages(), tidymodels::tidymodels_packages())) { return(line) } return(paste0("suppressPackageStartupMessages(", line, ")")) } else { return(line) } }) writeLines(modified_lines, file_path) } lapply(r_files, process_file) ``
tidymodels · Oct 21, 2024 · 2c32738 · 2c32738
1 parent 7128251
commit 2c32738
Show file tree

Hide file tree

Showing 59 changed files with 67 additions and 67 deletions.
diff --git a/tests/testthat/test-aer.R b/tests/testthat/test-aer.R
@@ -4,7 +4,7 @@ skip_if_not_installed("modeltests")
 library(modeltests)
 
 skip_if_not_installed("AER")
-library(AER)
+suppressPackageStartupMessages(library(AER))
 library(dplyr)
 library(modeltests)
 

diff --git a/tests/testthat/test-betareg.R b/tests/testthat/test-betareg.R
@@ -5,7 +5,7 @@ library(modeltests)
 
 skip_if_not_installed("betareg")
 
-library(betareg)
+suppressPackageStartupMessages(library(betareg))
 data("GasolineYield")
 
 fit1 <- betareg(yield ~ batch + temp, data = GasolineYield)

diff --git a/tests/testthat/test-biglm.R b/tests/testthat/test-biglm.R
@@ -4,7 +4,7 @@ skip_if_not_installed("modeltests")
 library(modeltests)
 
 skip_if_not_installed("biglm")
-library(biglm)
+suppressPackageStartupMessages(library(biglm))
 
 fit <- biglm(mpg ~ wt + disp, mtcars)
 fit2 <- bigglm(am ~ mpg, mtcars, family = binomial())

diff --git a/tests/testthat/test-bingroup.R b/tests/testthat/test-bingroup.R
@@ -4,7 +4,7 @@ skip_if_not_installed("modeltests")
 library(modeltests)
 
 skip_if_not_installed("binGroup")
-library(binGroup)
+suppressPackageStartupMessages(library(binGroup))
 
 bw <- binWidth(100, .1)
 bd <- binDesign(nmax = 300, delta = 0.06, p.hyp = 0.1, power = .8)

diff --git a/tests/testthat/test-boot.R b/tests/testthat/test-boot.R
@@ -4,7 +4,7 @@ skip_if_not_installed("modeltests")
 library(modeltests)
 
 skip_if_not_installed("boot")
-library(boot)
+suppressPackageStartupMessages(library(boot))
 
 test_that("boot tidier arguments", {
   check_arguments(tidy.boot)

diff --git a/tests/testthat/test-car.R b/tests/testthat/test-car.R
@@ -4,7 +4,7 @@ skip_if_not_installed("modeltests")
 library(modeltests)
 
 skip_if_not_installed("survival")
-library(survival)
+suppressPackageStartupMessages(library(survival))
 
 skip_if_not_installed("car")
 

diff --git a/tests/testthat/test-cluster.R b/tests/testthat/test-cluster.R
@@ -4,7 +4,7 @@ skip_if_not_installed("modeltests")
 library(modeltests)
 
 skip_if_not_installed("cluster")
-library(cluster)
+suppressPackageStartupMessages(library(cluster))
 
 skip_if_not_installed("modeldata")
 library(modeldata)

diff --git a/tests/testthat/test-cmprsk.R b/tests/testthat/test-cmprsk.R
@@ -4,7 +4,7 @@ skip_if_not_installed("modeltests")
 library(modeltests)
 
 skip_if_not_installed("cmprsk")
-library(cmprsk)
+suppressPackageStartupMessages(library(cmprsk))
 set.seed(2)
 
 # simulate data

diff --git a/tests/testthat/test-drc.R b/tests/testthat/test-drc.R
@@ -4,7 +4,7 @@ skip_if_not_installed("modeltests")
 library(modeltests)
 
 skip_if_not_installed("drc")
-library(drc)
+suppressPackageStartupMessages(library(drc))
 
 mod <- drm(dead / total ~ conc, type,
   weights = total, data = selenium, fct = LL.2(), type = "binomial"

diff --git a/tests/testthat/test-emmeans.R b/tests/testthat/test-emmeans.R
@@ -7,10 +7,10 @@ skip_if_not_installed("modeltests")
 library(modeltests)
 
 skip_if_not_installed("lsmeans")
-library(lsmeans)
+suppressPackageStartupMessages(library(lsmeans))
 
 skip_if_not_installed("lme4")
-library(lme4)
+suppressPackageStartupMessages(library(lme4))
 
 fit <- lm(sales1 ~ price1 + price2 + day + store, data = oranges)
 rg <- ref.grid(fit)

diff --git a/tests/testthat/test-epiR.R b/tests/testthat/test-epiR.R
@@ -7,7 +7,7 @@ rownames(dat) <- c("DF+", "DF-")
 colnames(dat) <- c("FUS+", "FUS-")
 
 skip_if_not_installed("MASS")
-library(MASS)
+suppressPackageStartupMessages(library(MASS))
 birthwt <- MASS::birthwt
 
 birthwt$low <- factor(birthwt$low, levels = c(1, 0))
@@ -18,7 +18,7 @@ tab2 <- table(birthwt$smoke, birthwt$low, birthwt$race,
   dnn = c("Smoke", "Low BW", "Race")
 )
 
-library(epiR)
+suppressPackageStartupMessages(library(epiR))
 fit1 <- epi.2by2(
   dat = as.table(dat), method = "cross.sectional",
   conf.level = 0.95, units = 100, outcome = "as.columns"

diff --git a/tests/testthat/test-ergm.R b/tests/testthat/test-ergm.R
@@ -4,7 +4,7 @@ skip_if_not_installed("modeltests")
 library(modeltests)
 
 skip_if_not_installed("ergm")
-library(ergm)
+suppressPackageStartupMessages(library(ergm))
 
 data(florentine)
 data(faux.mesa.high)

diff --git a/tests/testthat/test-geepack.R b/tests/testthat/test-geepack.R
@@ -4,7 +4,7 @@ skip_if_not_installed("modeltests")
 library(modeltests)
 
 skip_if_not_installed("geepack")
-library(geepack)
+suppressPackageStartupMessages(library(geepack))
 
 dat <- data.frame(state.region, state.x77)
 

diff --git a/tests/testthat/test-glmnet.R b/tests/testthat/test-glmnet.R
@@ -2,7 +2,7 @@ skip_if_not_installed("modeltests")
 library(modeltests)
 
 skip_if_not_installed("glmnet")
-library(glmnet)
+suppressPackageStartupMessages(library(glmnet))
 
 set.seed(27)
 

diff --git a/tests/testthat/test-glmnetUtils.R b/tests/testthat/test-glmnetUtils.R
@@ -4,7 +4,7 @@ skip_if_not_installed("modeltests")
 library(modeltests)
 
 skip_if_not_installed("glmnetUtils")
-library(glmnetUtils)
+suppressPackageStartupMessages(library(glmnetUtils))
 
 set.seed(27)
 

diff --git a/tests/testthat/test-gmm.R b/tests/testthat/test-gmm.R
@@ -4,7 +4,7 @@ skip_if_not_installed("modeltests")
 library(modeltests)
 
 skip_if_not_installed("gmm")
-library(gmm)
+suppressPackageStartupMessages(library(gmm))
 
 data(Finance)
 

diff --git a/tests/testthat/test-joineRML.R b/tests/testthat/test-joineRML.R
@@ -7,7 +7,7 @@ skip_if_not_installed("modeltests")
 library(modeltests)
 
 skip_if_not_installed("joineRML")
-library(joineRML)
+suppressPackageStartupMessages(library(joineRML))
 
 # NOTE: the models used in these tests are created in
 # `data-raw/fit_and_save_long_running_models.R`, and then are saved to

diff --git a/tests/testthat/test-kendall.R b/tests/testthat/test-kendall.R
@@ -4,7 +4,7 @@ skip_if_not_installed("modeltests")
 library(modeltests)
 
 skip_if_not_installed("Kendall")
-library(Kendall)
+suppressPackageStartupMessages(library(Kendall))
 
 a <- c(2.5, 2.5, 2.5, 2.5, 5, 6.5, 6.5, 10, 10, 10, 10, 10, 14, 14, 14, 16, 17)
 b <- c(1, 1, 1, 1, 2, 1, 1, 2, 1, 1, 1, 1, 1, 1, 2, 2, 2)

diff --git a/tests/testthat/test-lavaan.R b/tests/testthat/test-lavaan.R
@@ -4,7 +4,7 @@ skip_if_not_installed("modeltests")
 library(modeltests)
 
 skip_if_not_installed("lavaan")
-library(lavaan)
+suppressPackageStartupMessages(library(lavaan))
 
 fit <- sem("mpg ~ wt", data = mtcars)
 form <- paste("F =~", paste0("x", 1:9, collapse = " + "))

diff --git a/tests/testthat/test-lmbeta-lm-beta.R b/tests/testthat/test-lmbeta-lm-beta.R
@@ -4,7 +4,7 @@ skip_if_not_installed("modeltests")
 library(modeltests)
 
 skip_if_not_installed("lm.beta")
-library(lm.beta)
+suppressPackageStartupMessages(library(lm.beta))
 
 test_that("lm.beta tidier arguments", {
   check_arguments(tidy.lm.beta)

diff --git a/tests/testthat/test-lmodel2.R b/tests/testthat/test-lmodel2.R
@@ -4,7 +4,7 @@ skip_if_not_installed("modeltests")
 library(modeltests)
 
 skip_if_not_installed("lmodel2")
-library(lmodel2)
+suppressPackageStartupMessages(library(lmodel2))
 
 data("mod2ex2")
 fit <- lmodel2(Prey ~ Predators, data = mod2ex2, "relative", "relative", 99)

diff --git a/tests/testthat/test-lmtest.R b/tests/testthat/test-lmtest.R
@@ -4,10 +4,10 @@ skip_if_not_installed("modeltests")
 library(modeltests)
 
 skip_if_not_installed("lmtest")
-library(lmtest)
+suppressPackageStartupMessages(library(lmtest))
 
 skip_if_not_installed("sandwich")
-library(sandwich)
+suppressPackageStartupMessages(library(sandwich))
 
 m <- lm(dist ~ speed, data = cars)
 ct <- lmtest::coeftest(m)

diff --git a/tests/testthat/test-margins.R b/tests/testthat/test-margins.R
@@ -4,7 +4,7 @@ skip_if_not_installed("modeltests")
 library(modeltests)
 
 skip_if_not_installed("margins")
-library(margins)
+suppressPackageStartupMessages(library(margins))
 
 fit1 <- glm(am ~ cyl + hp + wt, data = mtcars, family = binomial)
 marg1 <- margins(fit1)

diff --git a/tests/testthat/test-mass-negbin.R b/tests/testthat/test-mass-negbin.R
@@ -2,7 +2,7 @@ skip_if_not_installed("modeltests")
 library(modeltests)
 
 skip_if_not_installed("MASS")
-library(MASS)
+suppressPackageStartupMessages(library(MASS))
 
 fit <- glm.nb(Days ~ Sex / (Age + Eth * Lrn), data = MASS::quine)
 

diff --git a/tests/testthat/test-mass-polr.R b/tests/testthat/test-mass-polr.R
@@ -4,7 +4,7 @@ skip_if_not_installed("modeltests")
 library(modeltests)
 
 skip_if_not_installed("MASS")
-library(MASS)
+suppressPackageStartupMessages(library(MASS))
 
 fit <- polr(
   Sat ~ Infl + Type + Cont,

diff --git a/tests/testthat/test-mass-rlm.R b/tests/testthat/test-mass-rlm.R
@@ -4,7 +4,7 @@ skip_if_not_installed("modeltests")
 library(modeltests)
 
 skip_if_not_installed("MASS")
-library(MASS)
+suppressPackageStartupMessages(library(MASS))
 
 fit <- rlm(stack.loss ~ ., stackloss)
 

diff --git a/tests/testthat/test-mclust.R b/tests/testthat/test-mclust.R
@@ -7,7 +7,7 @@ skip_if_not_installed("modeltests")
 library(modeltests)
 
 skip_if_not_installed("mclust")
-library(mclust)
+suppressPackageStartupMessages(library(mclust))
 
 skip_if_not_installed("modeldata")
 library(modeldata)

diff --git a/tests/testthat/test-mediation.R b/tests/testthat/test-mediation.R
@@ -4,7 +4,7 @@ skip_if_not_installed("modeltests")
 library(modeltests)
 
 skip_if_not_installed("mediation")
-library(mediation)
+suppressPackageStartupMessages(library(mediation))
 
 data(jobs)
 b <- lm(job_seek ~ treat + econ_hard + sex + age, data = jobs)

diff --git a/tests/testthat/test-metafor.R b/tests/testthat/test-metafor.R
@@ -7,10 +7,10 @@ skip_if_not_installed("modeltests")
 library(modeltests)
 
 skip_if_not_installed("metafor")
-library(metafor)
+suppressPackageStartupMessages(library(metafor))
 
 skip_if_not_installed("lme4")
-library(lme4)
+suppressPackageStartupMessages(library(lme4))
 
 # check arguments ---------------------------------------------------------
 

diff --git a/tests/testthat/test-mfx.R b/tests/testthat/test-mfx.R
@@ -4,7 +4,7 @@ skip_if_not_installed("modeltests")
 library(modeltests)
 
 skip_if_not_installed("mfx")
-library(mfx)
+suppressPackageStartupMessages(library(mfx))
 
 # simulate data
 set.seed(12345)

diff --git a/tests/testthat/test-mlogit.R b/tests/testthat/test-mlogit.R
@@ -5,8 +5,8 @@ library(modeltests)
 
 skip_if_not_installed("mlogit")
 skip_if_not_installed("AER")
-library(mlogit)
-library(AER)
+suppressPackageStartupMessages(library(mlogit))
+suppressPackageStartupMessages(library(AER))
 library(dplyr)
 
 data("Fishing", package = "mlogit")

diff --git a/tests/testthat/test-muhaz.R b/tests/testthat/test-muhaz.R
@@ -6,7 +6,7 @@ library(modeltests)
 skip_if_not_installed("muhaz")
 skip_if_not_installed("survival") # does this skip with base R?
 
-library(muhaz)
+suppressPackageStartupMessages(library(muhaz))
 
 # load the ovarian data
 data(cancer, package = "survival")

diff --git a/tests/testthat/test-multcomp.R b/tests/testthat/test-multcomp.R
@@ -4,7 +4,7 @@ skip_if_not_installed("modeltests")
 library(modeltests)
 
 skip_if_not_installed("multcomp")
-library(multcomp)
+suppressPackageStartupMessages(library(multcomp))
 
 amod <- aov(breaks ~ wool + tension, data = warpbreaks)
 wht <- glht(amod, linfct = mcp(tension = "Tukey"))

diff --git a/tests/testthat/test-nnet.R b/tests/testthat/test-nnet.R
@@ -4,7 +4,7 @@ skip_if_not_installed("modeltests")
 library(modeltests)
 
 skip_if_not_installed("nnet")
-library(nnet)
+suppressPackageStartupMessages(library(nnet))
 
 fit <- multinom(gear ~ mpg + factor(am), data = mtcars, trace = FALSE)
 

diff --git a/tests/testthat/test-ordinal.R b/tests/testthat/test-ordinal.R
@@ -4,7 +4,7 @@ skip_if_not_installed("modeltests")
 library(modeltests)
 
 skip_if_not_installed("ordinal")
-library(ordinal)
+suppressPackageStartupMessages(library(ordinal))
 
 fit <- clm(rating ~ temp * contact, data = wine)
 

diff --git a/tests/testthat/test-plm.R b/tests/testthat/test-plm.R
@@ -4,7 +4,7 @@ skip_if_not_installed("modeltests")
 library(modeltests)
 
 skip_if_not_installed("plm")
-library(plm)
+suppressPackageStartupMessages(library(plm))
 
 data(Produc, package = "plm")
 fit <- plm(

diff --git a/tests/testthat/test-polca.R b/tests/testthat/test-polca.R
@@ -5,7 +5,7 @@ library(modeltests)
 
 skip_if_not_installed("poLCA")
 skip_if_not_installed("MASS")
-library(poLCA)
+suppressPackageStartupMessages(library(poLCA))
 
 data(values)
 fit <- poLCA(cbind(A, B, C, D) ~ 1, values, nclass = 2, verbose = FALSE)

diff --git a/tests/testthat/test-quantreg-nlrq.R b/tests/testthat/test-quantreg-nlrq.R
@@ -4,7 +4,7 @@ skip_if_not_installed("modeltests")
 library(modeltests)
 
 skip_if_not_installed("quantreg")
-library(quantreg)
+suppressPackageStartupMessages(library(quantreg))
 
 set.seed(27)
 

diff --git a/tests/testthat/test-quantreg-rq.R b/tests/testthat/test-quantreg-rq.R
@@ -4,7 +4,7 @@ skip_if_not_installed("modeltests")
 library(modeltests)
 
 skip_if_not_installed("quantreg")
-library(quantreg)
+suppressPackageStartupMessages(library(quantreg))
 
 data(stackloss)
 

diff --git a/tests/testthat/test-quantreg-rqs.R b/tests/testthat/test-quantreg-rqs.R
@@ -4,7 +4,7 @@ skip_if_not_installed("modeltests")
 library(modeltests)
 
 skip_if_not_installed("quantreg")
-library(quantreg)
+suppressPackageStartupMessages(library(quantreg))
 
 airquality <- na.omit(airquality)
 

diff --git a/tests/testthat/test-robust.R b/tests/testthat/test-robust.R
@@ -4,7 +4,7 @@ skip_if_not_installed("modeltests")
 library(modeltests)
 
 skip_if_not_installed("robust")
-library(robust)
+suppressPackageStartupMessages(library(robust))
 
 fit <- lmRob(mpg ~ wt, data = mtcars)
 fit2 <- glmRob(am ~ wt, data = mtcars, family = "binomial")