From 8b5b778dac3137ec476c31541acac45bcf7d08dd Mon Sep 17 00:00:00 2001 From: Teun van den Brand Date: Wed, 4 Dec 2024 13:45:04 +0100 Subject: [PATCH] delete test-data.R --- tests/testthat/test-data.R | 25 ------------------------- 1 file changed, 25 deletions(-) delete mode 100644 tests/testthat/test-data.R diff --git a/tests/testthat/test-data.R b/tests/testthat/test-data.R deleted file mode 100644 index 57acb22544..0000000000 --- a/tests/testthat/test-data.R +++ /dev/null @@ -1,25 +0,0 @@ -test_that("stringsAsFactors doesn't affect results", { - skip_if(as.integer(R.Version()$major) >= 4L, "stringsAsFactors only affects R <4.0") - - old <- getOption("stringsAsFactors") - on.exit(options(stringsAsFactors = old), add = TRUE) - - dat.character <- data_frame(x = letters[5:1], y = 1:5) - dat.factor <- data_frame(x = letters[5:1], y = 1:5) - - base <- ggplot(mapping = aes(x, y)) + geom_point() - xlabels <- function(x) x$layout$panel_params[[1]]$x$get_labels() - - options(stringsAsFactors = TRUE) - char_true <- ggplot_build(base %+% dat.character) - factor_true <- ggplot_build(base %+% dat.factor) - - options(stringsAsFactors = FALSE) - char_false <- ggplot_build(base %+% dat.character) - factor_false <- ggplot_build(base %+% dat.factor) - - expect_equal(xlabels(char_true), letters[1:5]) - expect_equal(xlabels(char_false), letters[1:5]) - expect_equal(xlabels(factor_true), letters[1:5]) - expect_equal(xlabels(factor_false), letters[1:5]) -})