tests/testthat/test-autoplot.R

In mcradds: Processing and Analyzing of Diagnostics Trials

test_that("autoplot works as expected for BAsummary class with default arguments", {
  data("platelet")
  object <- blandAltman(x = platelet$Comparative, y = platelet$Candidate)

  result1 <- autoplot(object, type = "absolute")
  vdiffr::expect_doppelganger("autoplot_BAsummary with absolute diff", result1)
  result2 <- autoplot(object, type = "relative")
  vdiffr::expect_doppelganger("autoplot_BAsummary with relative diff", result2)
})

test_that("autoplot works as expected for BAsummary class with multiple arguments", {
  data("platelet")
  object <- blandAltman(x = platelet$Comparative, y = platelet$Candidate)

  result <- autoplot(
    object,
    type = "absolute",
    jitter = FALSE,
    fill = "lightblue",
    color = "grey",
    size = 2,
    ref.line.params = list(col = "grey"),
    loa.line.params = list(col = "grey"),
    label.digits = 2,
    label.params = list(col = "grey", size = 3, fontface = "italic"),
    x.nbreak = 6,
    main.title = "Bland-Altman Plot",
    x.title = "Mean of Test and Reference Methods",
    y.title = "Reference - Test"
  )
  vdiffr::expect_doppelganger("autoplot_BAsummary with multiple arguments", result)
})

test_that("autoplot works as expected for MCResult class with default arguments", {
  data(creatinine, package = "mcr")
  object <- mcreg(
    x = platelet$Comparative, y = platelet$Candidate,
    method.reg = "Deming", method.ci = "jackknife"
  )

  result <- autoplot(object)
  vdiffr::expect_doppelganger("autoplot_MCResult with default arguments", result)
})

test_that("autoplot works as expected for MCResult class with multiple arguments", {
  data(creatinine, package = "mcr")
  object <- mcreg(
    x = platelet$Comparative, y = platelet$Candidate,
    method.reg = "PaBa", method.ci = "bootstrap"
  )

  result <- autoplot(
    object,
    identity.params = list(col = "blue", linetype = "solid"),
    reg.params = list(col = "red", linetype = "solid"),
    equal.axis = TRUE,
    legend.title = FALSE,
    legend.digits = 3,
    x.title = "Reference",
    y.title = "Test"
  )
  vdiffr::expect_doppelganger("autoplot_MCResult with multiple arguments", result)
})