remove many library() calls in test-*.R files

tidymodels · Jul 18, 2023 · 83c6282 · 83c6282
1 parent 7421da1
commit 83c6282
Show file tree

Hide file tree

Showing 57 changed files with 32 additions and 106 deletions.
diff --git a/tests/testthat/test-BoxCox.R b/tests/testthat/test-BoxCox.R
@@ -1,6 +1,5 @@
 library(testthat)
 library(recipes)
-library(rlang)
 
 n <- 20
 set.seed(1)

diff --git a/tests/testthat/test-arrange.R b/tests/testthat/test-arrange.R
@@ -1,6 +1,5 @@
 library(testthat)
 library(recipes)
-library(dplyr)
 
 # ------------------------------------------------------------------------------
 

diff --git a/tests/testthat/test-basics.R b/tests/testthat/test-basics.R
@@ -1,5 +1,4 @@
 library(testthat)
-library(tibble)
 library(recipes)
 
 skip_if_not_installed("modeldata")

diff --git a/tests/testthat/test-bs.R b/tests/testthat/test-bs.R
@@ -1,6 +1,6 @@
 library(testthat)
 library(recipes)
-library(splines)
+
 skip_if_not_installed("modeldata")
 data(biomass, package = "modeldata")
 
@@ -21,8 +21,8 @@ test_that("correct basis functions", {
   with_bs_pred_tr <- bake(with_bs, new_data = biomass_tr)
   with_bs_pred_te <- bake(with_bs, new_data = biomass_te)
 
-  carbon_bs_tr_exp <- bs(biomass_tr$carbon, df = 5, degree = 2)
-  hydrogen_bs_tr_exp <- bs(biomass_tr$hydrogen, df = 5, degree = 2)
+  carbon_bs_tr_exp <- splines::bs(biomass_tr$carbon, df = 5, degree = 2)
+  hydrogen_bs_tr_exp <- splines::bs(biomass_tr$hydrogen, df = 5, degree = 2)
   carbon_bs_te_exp <- predict(carbon_bs_tr_exp, biomass_te$carbon)
   hydrogen_bs_te_exp <- predict(hydrogen_bs_tr_exp, biomass_te$hydrogen)
 

diff --git a/tests/testthat/test-center.R b/tests/testthat/test-center.R
@@ -1,5 +1,4 @@
 library(testthat)
-library(rlang)
 library(recipes)
 
 skip_if_not_installed("modeldata")

diff --git a/tests/testthat/test-class.R b/tests/testthat/test-class.R
@@ -1,6 +1,5 @@
 library(testthat)
 library(recipes)
-library(dplyr)
 
 skip_if_not_installed("modeldata")
 data(Sacramento, package = "modeldata")

diff --git a/tests/testthat/test-colcheck.R b/tests/testthat/test-colcheck.R
@@ -1,7 +1,5 @@
 library(testthat)
 library(recipes)
-library(dplyr)
-library(hardhat)
 
 rp1 <- recipe(mtcars, cyl ~ .)
 rp2 <- recipe(mtcars, cyl ~ mpg + drat)

diff --git a/tests/testthat/test-column_order.R b/tests/testthat/test-column_order.R
@@ -1,5 +1,5 @@
 library(testthat)
-library(tibble)
+
 skip_if_not_installed("modeldata")
 data(biomass, package = "modeldata")
 

diff --git a/tests/testthat/test-cut.R b/tests/testthat/test-cut.R
@@ -1,5 +1,3 @@
-library(dplyr)
-
 test_that("step_cut throws error on non-numerics", {
   x <- tibble(num_var = 1:3, cat_var = c("1", "2", "3"))
   expect_error(recipe(x) %>% step_cut(num_var, breaks = 2) %>% prep(), NA)

diff --git a/tests/testthat/test-date.R b/tests/testthat/test-date.R
@@ -1,11 +1,9 @@
 library(testthat)
 library(recipes)
-library(lubridate)
-library(tibble)
 
 examples <- data.frame(
-  Dan = ymd("2002-03-04") + days(1:10),
-  Stefan = ymd("2006-01-13") + days(1:10)
+  Dan = lubridate::ymd("2002-03-04") + lubridate::days(1:10),
+  Stefan = lubridate::ymd("2006-01-13") + lubridate::days(1:10)
 )
 
 examples$Dan <- as.POSIXct(examples$Dan)

diff --git a/tests/testthat/test-filter.R b/tests/testthat/test-filter.R
@@ -1,6 +1,5 @@
 library(testthat)
 library(recipes)
-library(dplyr)
 
 # ------------------------------------------------------------------------------
 

diff --git a/tests/testthat/test-grouped_df.R b/tests/testthat/test-grouped_df.R
@@ -1,11 +1,7 @@
-library(tibble)
-library(dplyr)
-
-
 n <- 20
 ex_dat <-
   data.frame(x1 = seq(0, 1, length = n), x2 = rep(1:5, 4)) %>%
-  group_by(x1)
+  dplyr::group_by(x1)
 
 # Test fixes for Issue #125
 test_that("grouped data frames work", {

diff --git a/tests/testthat/test-holiday.R b/tests/testthat/test-holiday.R
@@ -1,14 +1,13 @@
 library(testthat)
 library(recipes)
-library(lubridate)
 
 exp_dates <- data.frame(
-  date = ymd(c("2017-12-25", "2017-05-29", "2017-04-16")),
+  date = lubridate::ymd(c("2017-12-25", "2017-05-29", "2017-04-16")),
   holiday = c("ChristmasDay", "USMemorialDay", "Easter"),
   stringsAsFactors = FALSE
 )
 test_data <- data.frame(
-  day = c(ymd("2017-01-01") + days(0:364), NA),
+  day = c(lubridate::ymd("2017-01-01") + lubridate::days(0:364), NA),
   stringsAsFactors = FALSE
 )
 
@@ -37,7 +36,7 @@ test_that("Date class", {
   )
   expect_equal(
     holiday_ind$day[is.na(test_data$day)],
-    NA_Date_
+    lubridate::NA_Date_
   )
   expect_equal(
     holiday_ind$day_ChristmasDay[is.na(test_data$day)],

diff --git a/tests/testthat/test-hyperbolic.R b/tests/testthat/test-hyperbolic.R
@@ -1,7 +1,5 @@
 library(testthat)
 library(recipes)
-library(tibble)
-
 
 n <- 20
 set.seed(1)

diff --git a/tests/testthat/test-impute_bag.R b/tests/testthat/test-impute_bag.R
@@ -1,6 +1,4 @@
 library(testthat)
-library(ipred)
-library(rpart)
 library(recipes)
 
 skip_if_not_installed("modeldata")
@@ -30,9 +28,9 @@ test_that("imputation models", {
   )
   for (i in seq_along(carb_samps)) {
     carb_data <- biomass[carb_samps[[i]], c("carbon", "hydrogen", "oxygen")]
-    carb_mod <- rpart(carbon ~ .,
+    carb_mod <- rpart::rpart(carbon ~ .,
       data = carb_data,
-      control = rpart.control(xval = 0)
+      control = rpart::rpart.control(xval = 0)
     )
     expect_equal(
       carb_mod$splits,
@@ -50,7 +48,7 @@ test_that("imputation models", {
   ## make sure we get the same trees given the same random samples
   for (i in seq_along(fac_samps)) {
     fac_data <- biomass[fac_samps[[i]], c("fac", "hydrogen", "oxygen")]
-    fac_mod <- rpart(fac ~ ., data = fac_data, control = fac_ctrl)
+    fac_mod <- rpart::rpart(fac ~ ., data = fac_data, control = fac_ctrl)
     expect_equal(
       fac_mod$splits,
       imputed_trained$steps[[1]]$models[["fac"]]$mtrees[[i]]$btree$splits

diff --git a/tests/testthat/test-impute_knn.R b/tests/testthat/test-impute_knn.R
@@ -1,7 +1,5 @@
 library(testthat)
-library(gower)
 library(recipes)
-library(dplyr)
 skip_if_not_installed("modeldata")
 data(biomass, package = "modeldata")
 

diff --git a/tests/testthat/test-impute_lower.R b/tests/testthat/test-impute_lower.R
@@ -1,6 +1,5 @@
 library(testthat)
 library(recipes)
-library(dplyr)
 
 skip_if_not_installed("modeldata")
 data(biomass, package = "modeldata")

diff --git a/tests/testthat/test-impute_roll.R b/tests/testthat/test-impute_roll.R
@@ -1,13 +1,10 @@
 library(testthat)
 library(recipes)
-library(dplyr)
-library(lubridate)
-
 
 set.seed(145)
 example_data <-
   data.frame(
-    day = ymd("2012-06-07") + days(1:12),
+    day = lubridate::ymd("2012-06-07") + lubridate::days(1:12),
     x1 = round(runif(12), 2),
     x2 = round(runif(12), 2),
     x3 = round(runif(12), 2)

diff --git a/tests/testthat/test-indicate_na.R b/tests/testthat/test-indicate_na.R
@@ -1,6 +1,5 @@
 library(testthat)
 library(recipes)
-library(tidyr)
 
 train <-
   tibble::tibble(

diff --git a/tests/testthat/test-intercept.R b/tests/testthat/test-intercept.R
@@ -1,6 +1,5 @@
 library(testthat)
 library(recipes)
-library(tibble)
 
 ex_dat <- tibble(
   cat = factor(rep(c("A", "B"), each = 5)),

diff --git a/tests/testthat/test-inverse.R b/tests/testthat/test-inverse.R
@@ -1,6 +1,5 @@
 library(testthat)
 library(recipes)
-library(tibble)
 
 n <- 20
 set.seed(1)

diff --git a/tests/testthat/test-invlogit.R b/tests/testthat/test-invlogit.R
@@ -1,6 +1,5 @@
 library(testthat)
 library(recipes)
-library(tibble)
 
 n <- 20
 set.seed(12)

diff --git a/tests/testthat/test-lag.R b/tests/testthat/test-lag.R
@@ -1,4 +1,3 @@
-library(dplyr)
 library(testthat)
 library(recipes)
 

diff --git a/tests/testthat/test-list_cols.R b/tests/testthat/test-list_cols.R
@@ -1,6 +1,5 @@
 library(testthat)
 library(recipes)
-library(dplyr)
 
 cmplt_ex_1 <-
   tibble(

diff --git a/tests/testthat/test-log.R b/tests/testthat/test-log.R
@@ -1,6 +1,5 @@
 library(testthat)
 library(recipes)
-library(tibble)
 
 n <- 20
 set.seed(1)

diff --git a/tests/testthat/test-logit.R b/tests/testthat/test-logit.R
@@ -1,6 +1,5 @@
 library(testthat)
 library(recipes)
-library(dplyr)
 
 n <- 20
 set.seed(12)

diff --git a/tests/testthat/test-missing.R b/tests/testthat/test-missing.R
@@ -1,7 +1,5 @@
 library(testthat)
 library(recipes)
-library(dplyr)
-
 
 set_with_na <- tibble(
   a = c(1, 2, NA),

diff --git a/tests/testthat/test-mutate.R b/tests/testthat/test-mutate.R
@@ -1,6 +1,5 @@
 library(testthat)
 library(recipes)
-library(dplyr)
 
 iris_rec <- recipe(~., data = iris)
 

diff --git a/tests/testthat/test-mutate_at.R b/tests/testthat/test-mutate_at.R
@@ -1,6 +1,5 @@
 library(testthat)
 library(recipes)
-library(dplyr)
 
 iris_rec <- recipe(~., data = iris)
 

diff --git a/tests/testthat/test-naomit.R b/tests/testthat/test-naomit.R
@@ -1,6 +1,5 @@
 library(testthat)
 library(recipes)
-library(tidyr)
 
 test_that("step_naomit on all columns", {
   baked <- recipe(Ozone ~ ., data = airquality) %>%

diff --git a/tests/testthat/test-nomial_types.R b/tests/testthat/test-nomial_types.R
@@ -1,5 +1,4 @@
 library(recipes)
-library(dplyr)
 library(testthat)
 
 # ----------------------------------------------------------------

diff --git a/tests/testthat/test-normalize.R b/tests/testthat/test-normalize.R
@@ -1,5 +1,4 @@
 library(testthat)
-library(rlang)
 library(recipes)
 
 skip_if_not_installed("modeldata")

diff --git a/tests/testthat/test-ns.R b/tests/testthat/test-ns.R
@@ -1,6 +1,6 @@
 library(testthat)
 library(recipes)
-library(splines)
+
 skip_if_not_installed("modeldata")
 data(biomass, package = "modeldata")
 
@@ -23,8 +23,8 @@ test_that("correct basis functions", {
   with_ns_pred_tr <- bake(with_ns, new_data = biomass_tr)
   with_ns_pred_te <- bake(with_ns, new_data = biomass_te)
 
-  carbon_ns_tr_exp <- ns(biomass_tr$carbon, df = 2)
-  hydrogen_ns_tr_exp <- ns(biomass_tr$hydrogen, df = 2)
+  carbon_ns_tr_exp <- splines::ns(biomass_tr$carbon, df = 2)
+  hydrogen_ns_tr_exp <- splines::ns(biomass_tr$hydrogen, df = 2)
   carbon_ns_te_exp <- predict(carbon_ns_tr_exp, biomass_te$carbon)
   hydrogen_ns_te_exp <- predict(hydrogen_ns_tr_exp, biomass_te$hydrogen)
 

diff --git a/tests/testthat/test-percentile.R b/tests/testthat/test-percentile.R
@@ -1,8 +1,7 @@
 library(testthat)
 library(recipes)
-library(tibble)
-skip_if_not_installed("modeldata")
 
+skip_if_not_installed("modeldata")
 data(biomass, package = "modeldata")
 
 biomass_tr <- biomass[biomass$dataset == "Training", ]

diff --git a/tests/testthat/test-pls.R b/tests/testthat/test-pls.R
@@ -1,6 +1,6 @@
 library(testthat)
 library(recipes)
-library(dplyr)
+
 skip_if_not_installed("modeldata")
 
 ## -----------------------------------------------------------------------------

diff --git a/tests/testthat/test-pls_old.R b/tests/testthat/test-pls_old.R
@@ -1,6 +1,6 @@
 library(testthat)
 library(recipes)
-library(dplyr)
+
 skip_if_not_installed("modeldata")
 
 ## -----------------------------------------------------------------------------

diff --git a/tests/testthat/test-poly_bernstein.R b/tests/testthat/test-poly_bernstein.R
@@ -1,16 +1,13 @@
 library(testthat)
 library(recipes)
-library(splines)
 
 skip_if_not_installed("modeldata")
-
 data(biomass, package = "modeldata")
 
 # ------------------------------------------------------------------------------
 
 test_that("correct nonnegative functions", {
   skip_if_not_installed("splines2")
-  library(splines2)
 
   biomass_tr <- biomass[biomass$dataset == "Training", ]
   biomass_te <- biomass[biomass$dataset == "Testing", ]
@@ -27,8 +24,8 @@ test_that("correct nonnegative functions", {
   with_ns_pred_tr <- bake(with_ns, new_data = biomass_tr)
   with_ns_pred_te <- bake(with_ns, new_data = biomass_te)
 
-  carbon_ns_tr_exp <- bernsteinPoly(biomass_tr$carbon, degree = 5)
-  hydrogen_ns_tr_exp <- bernsteinPoly(biomass_tr$hydrogen, degree = 5)
+  carbon_ns_tr_exp <- splines2::bernsteinPoly(biomass_tr$carbon, degree = 5)
+  hydrogen_ns_tr_exp <- splines2::bernsteinPoly(biomass_tr$hydrogen, degree = 5)
   carbon_ns_te_exp <- predict(carbon_ns_tr_exp, biomass_te$carbon)
   hydrogen_ns_te_exp <- predict(hydrogen_ns_tr_exp, biomass_te$hydrogen)
 

diff --git a/tests/testthat/test-ratio.R b/tests/testthat/test-ratio.R
@@ -1,7 +1,5 @@
 library(testthat)
 library(recipes)
-library(tibble)
-
 
 n <- 20
 ex_dat <- data.frame(

diff --git a/tests/testthat/test-rename.R b/tests/testthat/test-rename.R
@@ -1,6 +1,5 @@
 library(testthat)
 library(recipes)
-library(dplyr)
 
 iris_rec <- recipe(~., data = iris)
 

diff --git a/tests/testthat/test-rename_at.R b/tests/testthat/test-rename_at.R
@@ -1,6 +1,5 @@
 library(testthat)
 library(recipes)
-library(dplyr)
 
 iris_rec <- recipe(~., data = iris)
 

diff --git a/tests/testthat/test-rm.R b/tests/testthat/test-rm.R
@@ -1,6 +1,5 @@
 library(testthat)
 library(recipes)
-library(tibble)
 
 test_that("basics", {
   n <- 20