tests/testthat/test-ceac_plot_ggplot.R

In giabaio/BCEA: Bayesian Cost Effectiveness Analysis

# vdiffr::manage_cases(filter = "ceac")

# library(purrr)

test_that("ceac.plot_ggplot draws correctly", {
  load(test_path("testdata", "ce.RData"))
  
  he <- BCEA::bcea(eff, cost)
  
  ceac_plot <- ceac.plot(he, graph = "ggplot2", title = "my title")
  # vdiffr::expect_doppelganger(title = "ceac plot ggplot", fig = ceac_plot)
})