125 lines
4 KiB
R
125 lines
4 KiB
R
# testthat::test_that("bar() function handles various edge cases", {
|
|
# # Setup minimal test data
|
|
# test_df <- data.frame(
|
|
# category =c("A", "B", "C"),
|
|
# value = c(10, 20, 30),
|
|
# group = c("X", "X", "Y"),
|
|
# facet_var = c("F1", "F1", "F2")
|
|
# )
|
|
|
|
# # Test 1: Basic functionality with all parameters
|
|
# testthat::expect_s3_class({
|
|
# bar(test_df, x = "category", y = "value",
|
|
# position = "dodge", add_text = TRUE, flip = FALSE)
|
|
# }, "ggplot")
|
|
|
|
# # Test 2: Missing group parameter
|
|
# testthat::expect_s3_class({
|
|
# bar(test_df, x = "category", y = "value", facet = "facet_var")
|
|
# }, "ggplot")
|
|
|
|
# # Test 3: Missing facet parameter
|
|
# testthat::expect_s3_class({
|
|
# bar(test_df, x = "category", y = "value", group = "group")
|
|
# }, "ggplot")
|
|
|
|
# # Test 4: Identical group and facet
|
|
# testthat::expect_warning({
|
|
# bar(test_df, x = "category", y = "value", group = "facet_var", facet = "facet_var")
|
|
# }, "Using 'facet' for grouping")
|
|
|
|
# # Test 5: NA handling scenarios
|
|
# na_df <- data.table::data.table(
|
|
# category = c("A", "B", NA),
|
|
# value = c(10, NA, 30),
|
|
# group = c("X", NA, "Y")
|
|
# )
|
|
|
|
# # Test 5a: NA removal enabled
|
|
# testthat::expect_silent({
|
|
# bar(na_df, x = "category", y = "value", group = "group",
|
|
# x_rm_na = TRUE, y_rm_na = TRUE, group_rm_na = TRUE)
|
|
# })
|
|
|
|
# # Test 5b: NA removal disabled
|
|
# testthat::expect_warning({
|
|
# bar(na_df, x = "category", y = "value", group = "group",
|
|
# x_rm_na = FALSE, y_rm_na = FALSE, group_rm_na = FALSE)
|
|
# }, "Converting df to data.table")
|
|
|
|
# # Test 6: Ordering scenarios
|
|
# # Test 6a: Natural order
|
|
# testthat::expect_equal(
|
|
# levels(bar(test_df, x = "category", y = "value", order = "none")$data$category),
|
|
# c("A", "B", "C")
|
|
# )
|
|
|
|
# # Test 6b: Ordered by y
|
|
# testthat::expect_equal(
|
|
# levels(bar(test_df, x = "category", y = "value", order = "y")$data$category),
|
|
# c("A", "B", "C") # Should be ordered by value
|
|
# )
|
|
|
|
# # Test 7: Faceting edge cases
|
|
# # Test 7a: Single facet level
|
|
# single_facet <- data.table::data.table(
|
|
# category = c("A", "B"),
|
|
# value = c(10, 20),
|
|
# facet_var = c("F1", "F1")
|
|
# )
|
|
# testthat::expect_s3_class({
|
|
# bar(single_facet, x = "category", y = "value", facet = "facet_var")
|
|
# }, "ggplot")
|
|
|
|
# # Test 8: Text labeling thresholds
|
|
# small_values <- data.table::data.table(
|
|
# category = c("A", "B"),
|
|
# value = c(0.03, 0.04), # Below default 0.05 threshold
|
|
# group = c("X", "Y")
|
|
# )
|
|
# plot_data <- bar(small_values, x = "category", y = "value", group = "group", add_text = TRUE)
|
|
# testthat::expect_true(all(is.na(plot_data$layers[[2]]$data$y_threshold)))
|
|
|
|
# # Test 9: Invalid parameter combinations
|
|
# testthat::expect_error(
|
|
# bar(test_df, x = "value", y = "category"), # Reversed numeric/character
|
|
# "must be character or factor"
|
|
# )
|
|
|
|
# # Test 10: Facet/group interaction with insufficient data
|
|
# sparse_data <- data.table::data.table(
|
|
# category = "A",
|
|
# value = 10,
|
|
# group = "X",
|
|
# facet_var = "F1"
|
|
# )
|
|
# testthat::expect_s3_class({
|
|
# bar(sparse_data, x = "category", y = "value", group = "group", facet = "facet_var")
|
|
# }, "ggplot")
|
|
# })
|
|
|
|
# # Visual regression tests (requires vdiffr)
|
|
# testthat::test_that("Visual appearance remains consistent", {
|
|
# test_df <- data.table::data.table(
|
|
# category = factor(c("A", "B", "C")),
|
|
# value = c(10, 20, 30),
|
|
# group = c("X", "X", "Y"),
|
|
# facet_var = c("F1", "F1", "F2")
|
|
# )
|
|
|
|
# # Basic plot
|
|
# basic <- bar(test_df, x = "category", y = "value")
|
|
# vdiffr::expect_doppelganger("basic-bar", basic)
|
|
|
|
# # Grouped+dodged
|
|
# grouped <- bar(test_df, x = "category", y = "value", group = "group")
|
|
# vdiffr::expect_doppelganger("grouped-dodged-bar", grouped)
|
|
|
|
# # Faceted
|
|
# faceted <- bar(test_df, x = "category", y = "value", facet = "facet_var")
|
|
# vdiffr::expect_doppelganger("faceted-bar", faceted)
|
|
|
|
# # Stacked
|
|
# stacked <- bar(test_df, x = "category", y = "value", group = "group", position = "stack")
|
|
# vdiffr::expect_doppelganger("stacked-bar", stacked)
|
|
# })
|