Se han modificado 1 ficheros con 1 adiciones y 1 borrados
+ 1
- 1
tests/testthat/test-choose_text_color.R
Ver fichero
| test_that("correct color selection", { | test_that("correct color selection", { | ||||
| colors <- c("#FFFFFF", scales::brewer_pal("seq", "Set1")(4), "#000000") | colors <- c("#FFFFFF", scales::brewer_pal("seq", "Set1")(4), "#000000") | ||||
| expect_equal(set_text_color(colors), c("#000000", rep("#FFFFFF", 5))) | |||||
| expect_equal(choose_text_color(colors), c("#000000", rep("#FFFFFF", 5))) | |||||
| }) | }) |
Cargando…