Error in `sym(y_var) < 0`: comparison (<) is not possible for language types

test_that("plot_growth_performance() produces expected output", {
Validity = c("valid", rep("invalid", 95)),
Treatment = rep(LETTERS[1:8], each = 12),
Concentration = rep(seq(from = 80, to = 10,
# Test case 1: Display data without applying sign test
p1 <- plot_growth_performance(input_data = test_summarized_data)
p1_layers <- sapply(p1$layers, function(x) class(x$geom)[1])
expect_equal(unique(p1$data$p.signif), "") # no asterisk notation plotted
# Test case 2: Display data with sign test applied and grouping structure
p2 <- plot_growth_performance(input_data = test_summarized_data,
p2_layers <- sapply(p2$layers, function(x) class(x$geom)[1])
expect_equal(unique(p2$data$p.signif), "***") # asterisk notation plotted