tests/testthat/test-function-plot_total_dalys.R

test_that("plot_total_dalys() works", {

  expect_error(plot_total_dalys())
  
  confDir <- system.file("extdata/configs/dummy", package = "kwb.qmra")
  
  risk <- simulate_risk(config_read(confDir))
  
  plot_total_dalys(risk)
  
  plot_total_dalys(risk, labelling = TRUE)
})
KWB-R/kwb.qmra documentation built on June 15, 2021, 11:14 p.m.