tests/testthat/test-ceac_plot_ggplot.R

In BCEA: Bayesian Cost Effectiveness Analysis

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

# library(purrr)

test_that("ceac.plot_ggplot draws correctly", {
  load("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)
})