another try with tibble

imbs-hl · Aug 6, 2018 · 082024b · 082024b
1 parent 5b59bf6
commit 082024b
Showing 1 changed file with 1 addition and 6 deletions.
diff --git a/tests/testthat/test_interface.R b/tests/testthat/test_interface.R
@@ -59,12 +59,10 @@ test_that("Error if interaction of factor variable included", {
 
 # Tibbles
 if (requireNamespace("tibble", quietly = TRUE)) {
-  library(tibble)
+  tb <- tibble::as_tibble(iris)
 }
-
 test_that("Training works with tibbles, formula interface", {
   skip_if_not_installed("tibble")
-  tb <- as_tibble(iris)
   set.seed(1000)
   rf1 <- ranger(Species ~ ., tb, num.trees = 5)
 
@@ -80,7 +78,6 @@ test_that("Training works with tibbles, formula interface", {
 
 test_that("Training works with tibbles, alternative interface", {
   skip_if_not_installed("tibble")
-  tb <- as_tibble(iris)
   set.seed(1000)
   rf1 <- ranger(dependent.variable.name = "Species", data = tb, num.trees = 5)
 
@@ -96,7 +93,6 @@ test_that("Training works with tibbles, alternative interface", {
 
 test_that("Prediction works with tibbles, formula interface", {
   skip_if_not_installed("tibble")
-  tb <- as_tibble(iris)
   set.seed(1000)
   rf1 <- ranger(Species ~ ., tb, num.trees = 5)
 
@@ -119,7 +115,6 @@ test_that("Prediction works with tibbles, formula interface", {
 
 test_that("Prediction works with tibbles, alternative interface", {
   skip_if_not_installed("tibble")
-  tb <- as_tibble(iris)
   set.seed(1000)
   rf1 <- ranger(dependent.variable.name = "Species", data = tb, num.trees = 5)