Skip to content

Commit

Permalink
712 - {shinytest2} for tm_g_scatterplot (#724)
Browse files Browse the repository at this point in the history 
Part of #712

---------

Signed-off-by: André Veríssimo <211358+averissimo@users.noreply.github.com>
Co-authored-by: 27856297+dependabot-preview[bot]@users.noreply.github.com <27856297+dependabot-preview[bot]@users.noreply.github.com>
Co-authored-by: André Veríssimo <211358+averissimo@users.noreply.github.com>
Co-authored-by: Marcin <133694481+m7pr@users.noreply.github.com>
  • Loading branch information
@vedhav @dependabot-preview
@averissimo @m7pr
4 people authored Apr 19, 2024
1 parent b538799 commit 17d9a37
Showing 1 changed file with 203 additions and 0 deletions.
203 changes: 203 additions & 0 deletions tests/testthat/test-shinytest2-tm_g_scatterplot.R
View file
Original file line number Diff line number Diff line change
@@ -0,0 +1,203 @@
app_driver_tm_g_scatterplot <- function() {
data <- teal.data::teal_data()
data <- within(data, {
require(nestcolor)
ADSL <- rADSL
})
teal.data::datanames(data) <- c("ADSL")
teal.data::join_keys(data) <- teal.data::default_cdisc_join_keys[teal.data::datanames(data)]

init_teal_app_driver(
data = data,
modules = tm_g_scatterplot(
label = "Scatterplot Choices",
x = teal.transform::data_extract_spec(
dataname = "ADSL",
select = teal.transform::select_spec(
label = "Select variable:",
choices = teal.transform::variable_choices(data[["ADSL"]], c("AGE", "BMRKR1", "BMRKR2")),
selected = "AGE",
multiple = FALSE,
fixed = FALSE
)
),
y = teal.transform::data_extract_spec(
dataname = "ADSL",
select = teal.transform::select_spec(
label = "Select variable:",
choices = teal.transform::variable_choices(data[["ADSL"]], c("AGE", "BMRKR1", "BMRKR2")),
selected = "BMRKR1",
multiple = FALSE,
fixed = FALSE
)
),
color_by = data_extract_spec(
dataname = "ADSL",
select = teal.transform::select_spec(
label = "Select variable:",
choices = teal.transform::variable_choices(
data[["ADSL"]],
c("AGE", "BMRKR1", "BMRKR2", "RACE", "REGION1")
),
selected = NULL,
multiple = FALSE,
fixed = FALSE
)
),
size_by = data_extract_spec(
dataname = "ADSL",
select = teal.transform::select_spec(
label = "Select variable:",
choices = teal.transform::variable_choices(data[["ADSL"]], c("AGE", "BMRKR1")),
selected = "AGE",
multiple = FALSE,
fixed = FALSE
)
),
row_facet = data_extract_spec(
dataname = "ADSL",
select = teal.transform::select_spec(
label = "Select variable:",
choices = teal.transform::variable_choices(data[["ADSL"]], c("BMRKR2", "RACE", "REGION1")),
selected = NULL,
multiple = FALSE,
fixed = FALSE
)
),
col_facet = data_extract_spec(
dataname = "ADSL",
select = teal.transform::select_spec(
label = "Select variable:",
choices = teal.transform::variable_choices(data[["ADSL"]], c("BMRKR2", "RACE", "REGION1")),
selected = NULL,
multiple = FALSE,
fixed = FALSE
)
),
ggplot2_args = teal.widgets::ggplot2_args(
labs = list(subtitle = "Plot generated by Scatterplot Module")
),
rotate_xaxis_labels = TRUE,
ggtheme = "classic",
max_deg = 6
)
)
}

testthat::test_that("e2e - tm_g_scatterplot: module is initialised with the specified defaults", {
skip_if_too_deep(5)

app <- app_driver_tm_g_scatterplot()

app$expect_no_shiny_error()

testthat::expect_equal(app$get_active_module_input("x-dataset_ADSL_singleextract-select"), "AGE")
testthat::expect_equal(app$get_active_module_input("y-dataset_ADSL_singleextract-select"), "BMRKR1")
testthat::expect_false(app$get_active_module_input("log_x"))
testthat::expect_false(app$get_active_module_input("log_y"))
testthat::expect_null(app$get_active_module_input("color_by-dataset_ADSL_singleextract-select"))
testthat::expect_equal(app$get_active_module_input("size_by-dataset_ADSL_singleextract-select"), "AGE")
testthat::expect_null(app$get_active_module_input("row_facet-dataset_ADSL_singleextract-select"))
testthat::expect_null(app$get_active_module_input("col_facet-dataset_ADSL_singleextract-select"))
testthat::expect_equal(app$get_active_module_input("alpha"), 1)
testthat::expect_equal(app$get_active_module_input("shape"), "circle")
testthat::expect_equal(app$get_active_module_input("color"), "#000000")
testthat::expect_equal(app$get_active_module_input("size"), 5)
testthat::expect_true(app$get_active_module_input("rotate_xaxis_labels"))
testthat::expect_null(app$get_active_module_input("smoothing_degree"))
testthat::expect_equal(app$get_active_module_input("ggtheme"), "classic")

app$stop()
})

testthat::test_that("e2e - tm_g_scatterplot: base for the log transformation can be applied", {
skip_if_too_deep(5)

app <- app_driver_tm_g_scatterplot()

app$set_active_module_input("log_x", TRUE)
app$expect_no_validation_error()

app$set_active_module_input("log_x_base", "log2")
app$expect_no_validation_error()

app$set_active_module_input("log_y", TRUE)
app$expect_no_validation_error()

app$set_active_module_input("log_y_base", "log10")
app$expect_no_validation_error()

app$stop()
})

testthat::test_that("e2e - tm_g_scatterplot: log transform is only possible for positive numeric vars", {
skip_if_too_deep(5)

app <- app_driver_tm_g_scatterplot()

app$set_active_module_input("x-dataset_ADSL_singleextract-select", "BMRKR2")
app$set_active_module_input("log_x", TRUE)
app$expect_validation_error()

app$set_active_module_input("x-dataset_ADSL_singleextract-select", "BMRKR1")
app$expect_no_validation_error()

app$set_active_module_input("y-dataset_ADSL_singleextract-select", "BMRKR2")
app$set_active_module_input("log_y", TRUE)
app$expect_validation_error()

app$stop()
})

testthat::test_that("e2e - tm_g_scatterplot: get validation error when facetting with the same row & col variable", {
skip_if_too_deep(5)

app <- app_driver_tm_g_scatterplot()

app$set_active_module_input("row_facet-dataset_ADSL_singleextract-select", "RACE")
app$set_active_module_input("col_facet-dataset_ADSL_singleextract-select", "RACE")
app$expect_validation_error()

app$stop()
})

testthat::test_that("e2e - tm_g_scatterplot: encoding inputs produce output without validation errors", {
skip_if_too_deep(5)

app <- app_driver_tm_g_scatterplot()

app$set_active_module_input("color_by-dataset_ADSL_singleextract-select", "REGION1")
app$expect_no_validation_error()

app$set_active_module_input("size_by-dataset_ADSL_singleextract-select", "BMRKR1")
app$expect_no_validation_error()

app$set_active_module_input("row_facet-dataset_ADSL_singleextract-select", "RACE")
app$expect_no_validation_error()

app$set_active_module_input("col_facet-dataset_ADSL_singleextract-select", "BMRKR2")
app$expect_no_validation_error()

app$set_active_module_input("alpha", 0.5)
app$expect_no_validation_error()

app$set_active_module_input("shape", "square")
app$expect_no_validation_error()

app$set_active_module_input("size", 8)
app$expect_no_validation_error()

app$set_active_module_input("rotate_xaxis_labels", TRUE)
app$expect_no_validation_error()

app$set_active_module_input("rug_plot", TRUE)
app$expect_no_validation_error()

app$set_active_module_input("show_count", TRUE)
app$expect_no_validation_error()

app$set_active_module_input("ggtheme", "light")
app$expect_no_validation_error()

app$stop()
})

0 comments on commit 17d9a37

Please sign in to comment.