diff --git a/DESCRIPTION b/DESCRIPTION index 83630d1e..33d332e3 100644 --- a/DESCRIPTION +++ b/DESCRIPTION @@ -62,7 +62,7 @@ Suggests: sandwich, scales, styler, - testthat, + testthat (>= 3.0.0), tibble, tinytex SystemRequirements: LaTeX packages: @@ -86,6 +86,7 @@ Encoding: UTF-8 LazyData: true RoxygenNote: 7.3.2 Roxygen: list(markdown = TRUE) -Depends: +Depends: R (>= 2.10) Config/testthat/edition: 3 +Config/testthat/parallel: true diff --git a/tests/testthat.R b/tests/testthat.R index 35285dad..b4c7c813 100644 --- a/tests/testthat.R +++ b/tests/testthat.R @@ -3,4 +3,4 @@ library(huxtable) we_are_in_R_CMD_check <- TRUE -test_check("huxtable") +test_check("huxtable", parallel = TRUE) diff --git a/tests/testthat/test-new-borders.R b/tests/testthat/test-new-borders.R index 08313ad4..07126a3b 100644 --- a/tests/testthat/test-new-borders.R +++ b/tests/testthat/test-new-borders.R @@ -157,9 +157,6 @@ test_that("map_left_border", { ignore_attr = TRUE ) - # ht8 <- map_left_border(ht, by_cases(. == 2 ~ brdr(1), TRUE ~ brdr(0))) - # expect_equivalent(left_border(ht8)[], matrix(c(0, 1, 1, 0), 2, 2)) - ht9 <- map_left_border(ht, by_quantiles(0.5, list(brdr(0), brdr(1)))) expect_equal( brdr_thickness(left_border(ht9)), @@ -187,6 +184,20 @@ test_that("map_left_border", { }) +test_that("map_left_border supports dplyr by_cases helper", { + skip_if_not_installed("dplyr") + + ht <- hux(1:2, 2:1) + ht2 <- map_left_border(ht, by_cases(. == 2 ~ brdr(1), TRUE ~ brdr(0))) + + expect_equal( + brdr_thickness(left_border(ht2)), + matrix(c(0, 1, 1, 0), 2, 2), + ignore_attr = TRUE + ) +}) + + test_that("map_all_borders", { ht <- hux(1:2, 2:1) ht2 <- map_all_borders(ht, by_ranges(1.5, c(0, 1)))