diff --git a/tests/testthat/test-lda.R b/tests/testthat/test-lda.R index 9cfaf736..fb896721 100644 --- a/tests/testthat/test-lda.R +++ b/tests/testthat/test-lda.R @@ -9,6 +9,8 @@ rec <- recipe(~ medium + artist, data = tate_text[seq_len(n_rows), ]) test_that("step_lda works as intended", { skip_if_not_installed("text2vec") + skip_on_cran() # because data.table uses all cores by default + n_top <- 10 rec1 <- rec %>% step_tokenize(medium) %>% @@ -25,6 +27,8 @@ test_that("step_lda works as intended", { test_that("step_lda works with num_topics argument", { skip_if_not_installed("text2vec") + skip_on_cran() # because data.table uses all cores by default + n_top <- 100 rec1 <- rec %>% step_tokenize(medium) %>% @@ -38,6 +42,8 @@ test_that("step_lda works with num_topics argument", { test_that("check_name() is used", { skip_if_not_installed("text2vec") + skip_on_cran() # because data.table uses all cores by default + dat <- tate_text[seq_len(100), ] dat$text <- dat$medium dat$lda_text_1 <- dat$text @@ -56,6 +62,8 @@ test_that("check_name() is used", { test_that("bake method errors when needed non-standard role columns are missing", { skip_if_not_installed("text2vec") + skip_on_cran() # because data.table uses all cores by default + tokenized_test_data <- rec %>% step_tokenize(medium) %>% prep() %>% @@ -118,6 +126,7 @@ test_that("empty selection tidy method works", { test_that("keep_original_cols works", { skip_if_not_installed("text2vec") + skip_on_cran() # because data.table uses all cores by default new_names <- paste0("lda_medium_", 1:10) @@ -148,6 +157,7 @@ test_that("keep_original_cols works", { test_that("keep_original_cols - can prep recipes with it missing", { skip_if_not_installed("text2vec") + skip_on_cran() # because data.table uses all cores by default rec <- recipe(~ medium, data = tate_text[seq_len(n_rows), ]) %>% step_tokenize(medium) %>% @@ -168,6 +178,8 @@ test_that("keep_original_cols - can prep recipes with it missing", { test_that("printing", { skip_if_not_installed("text2vec") + skip_on_cran() # because data.table uses all cores by default + rec <- rec %>% step_tokenize(medium) %>% step_lda(medium) diff --git a/tests/testthat/test-texthash.R b/tests/testthat/test-texthash.R index c4ba6769..73d38b71 100644 --- a/tests/testthat/test-texthash.R +++ b/tests/testthat/test-texthash.R @@ -12,6 +12,8 @@ rec <- recipe(~., data = test_data) test_that("hashing gives double outputs", { skip_if_not_installed("text2vec") + skip_on_cran() # because data.table uses all cores by default + rec <- rec %>% step_tokenize(text) %>% step_texthash(text) @@ -33,6 +35,8 @@ test_that("hashing gives double outputs", { test_that("hashing output width changes accordingly with num_terms", { skip_if_not_installed("text2vec") + skip_on_cran() # because data.table uses all cores by default + rec <- rec %>% step_tokenize(text) %>% step_texthash(text, num_terms = 256) %>% @@ -48,6 +52,7 @@ test_that("hashing output width changes accordingly with num_terms", { test_that("hashing output width changes accordingly with num_terms", { skip_if_not_installed("text2vec") + skip_on_cran() # because data.table uses all cores by default signed <- recipe(~., data = test_data) %>% step_tokenize(all_predictors()) %>% @@ -68,6 +73,9 @@ test_that("hashing output width changes accordingly with num_terms", { }) test_that("check_name() is used", { + skip_if_not_installed("text2vec") + skip_on_cran() # because data.table uses all cores by default + dat <- test_data dat$texthash_text_0001 <- dat$text @@ -161,6 +169,9 @@ test_that("empty selection tidy method works", { }) test_that("keep_original_cols works", { + skip_if_not_installed("text2vec") + skip_on_cran() # because data.table uses all cores by default + new_names <- paste0("texthash_text_", 1:5) rec <- recipe(~text, data = test_data) %>% @@ -207,6 +218,8 @@ test_that("keep_original_cols - can prep recipes with it missing", { test_that("printing", { skip_if_not_installed("text2vec") + skip_on_cran() # because data.table uses all cores by default + rec <- rec %>% step_tokenize(text) %>% step_texthash(text)