From 586c45156246f698cd58268628b013abab5b6edd Mon Sep 17 00:00:00 2001 From: Nicholas Tierney Date: Sun, 28 Jun 2020 23:55:16 +1000 Subject: [PATCH] related to #260 --- tests/testthat/test-impute-median.R | 4 ++++ tests/testthat/test-impute_mean.R | 4 ++++ tests/testthat/test-special-missing-values.R | 2 ++ 3 files changed, 10 insertions(+) diff --git a/tests/testthat/test-impute-median.R b/tests/testthat/test-impute-median.R index e04774b8..525ad388 100644 --- a/tests/testthat/test-impute-median.R +++ b/tests/testthat/test-impute-median.R @@ -84,11 +84,13 @@ test_that("impute_median_all works with shadow", { }) test_that("impute_median_all retains proper shadow values", { + skip_on_cran() expect_equal(unbind_data(impute_median_all(aq_shadow)), unbind_data(aq_shadow)) }) test_that("impute_median_all retains proper shadow values", { + skip_on_cran() expect_equal(unbind_data(impute_median_all(aq_shadow)), unbind_data(aq_shadow)) }) @@ -99,11 +101,13 @@ test_that("impute_median_all works with shadow", { }) test_that("impute_median_all retains proper shadow values", { + skip_on_cran() expect_equal(unbind_data(impute_median_all(aq_shadow)), unbind_data(aq_shadow)) }) test_that("impute_median_all retains proper shadow values", { + skip_on_cran() expect_equal(unbind_data(impute_median_all(aq_shadow)), unbind_data(aq_shadow)) }) diff --git a/tests/testthat/test-impute_mean.R b/tests/testthat/test-impute_mean.R index b1aa787e..10673013 100644 --- a/tests/testthat/test-impute_mean.R +++ b/tests/testthat/test-impute_mean.R @@ -75,11 +75,13 @@ test_that("impute_mean_at works with shadow", { }) test_that("impute_mean_at retains proper shadow values", { + skip_on_cran() expect_equal(unbind_data(impute_mean_at(aq_shadow, vars(Ozone))), unbind_data(aq_shadow)) }) test_that("impute_mean_at retains proper shadow values", { + skip_on_cran() expect_equal(unbind_data(impute_mean_at(aq_shadow, vars(Ozone))), unbind_data(aq_shadow)) }) @@ -95,11 +97,13 @@ test_that("impute_mean_all works with shadow", { }) test_that("impute_mean_all retains proper shadow values", { + skip_on_cran() expect_equal(unbind_data(impute_mean_all(aq_shadow)), unbind_data(aq_shadow)) }) test_that("impute_mean_all retains proper shadow values", { + skip_on_cran() expect_equal(unbind_data(impute_mean_all(aq_shadow)), unbind_data(aq_shadow)) }) diff --git a/tests/testthat/test-special-missing-values.R b/tests/testthat/test-special-missing-values.R index 8f3d67bd..852c50a5 100644 --- a/tests/testthat/test-special-missing-values.R +++ b/tests/testthat/test-special-missing-values.R @@ -40,6 +40,7 @@ df_many_recode <- df %>% new_shade_levels <- c("!NA", "NA", "NA_broken_machine", "NA_broken_temp") test_that("special missings levels are updated for many recodes", { + skip_on_cran() expect_equal(levels(df_many_recode$wind_NA), new_shade_levels) expect_equal(levels(df_many_recode$temp_NA), @@ -47,6 +48,7 @@ test_that("special missings levels are updated for many recodes", { }) test_that("special missings are put in the right place for many recodes", { + skip_on_cran() expect_equal(as.character(df_many_recode$wind_NA), c("NA_broken_temp", "!NA", "!NA")) expect_equal(as.character(df_many_recode$temp_NA),