tests/testthat/test-popExp_fct_scatterplot.R

In Biogen-Inc/tidyCDISC: Quick Table Generation & Exploratory Analyses on ADaM-Ish Datasets

context("Create popExp Scatter plot")


test_that("numeric x-axis and numeric y-axis", {
  plot <- app_scatterplot(tg_data, "AGE", "CHG")
  expect_equal(rlang::quo_get_expr(plot$mapping$y), rlang::sym("AGE"))
  expect_equal(rlang::quo_get_expr(plot$mapping$x), rlang::sym("CHG"))
})

test_that("PARAMCD x-axis and numeric y-axis", {
  plot <- app_scatterplot(tg_data, yvar = "AGE", xvar = "DIABP", week_x = "Week 2", value_x = "AVAL")
  expect_equal(rlang::quo_get_expr(plot$mapping$x), rlang::sym("AVAL"))
  expect_equal(rlang::quo_get_expr(plot$mapping$y), rlang::sym("AGE"))
})

test_that("numeric y-axis and PARAMCD y-axis", {
  plot <- app_scatterplot(tg_data, xvar = "AGE", yvar = "DIABP", week_y = "Week 2", value_y = "AVAL")
  expect_equal(rlang::quo_get_expr(plot$mapping$y), rlang::sym("AVAL"))
  expect_equal(rlang::quo_get_expr(plot$mapping$x), rlang::sym("AGE"))
})

test_that("PARAMCD x-axis and PARAMCD y-axis", {
  plot <- app_scatterplot(tg_data, 
                           yvar = "DIABP", week_y = "Week 2", value_y = "AVAL",
                           xvar = "DIABP", week_x = "Week 2", value_x = "AVAL")
  expect_equal(rlang::quo_get_expr(plot$mapping$y), rlang::sym("DIABP"))
  expect_equal(rlang::quo_get_expr(plot$mapping$x), rlang::sym("DIABP"))
})

test_that("facet by group", {
  plot <- app_scatterplot(tg_data, "AGE", "CHG", separate = "SEX")
  expect_equal("FacetWrap", class(plot$facet)[1])
})

test_that("color by group", {
  plot <- app_scatterplot(tg_data, "AGE", "CHG", color = "SEX")
  expect_equal(rlang::sym("By SEX"), rlang::quo_get_expr(plot$mapping$colour))
})