tests/testthat/test-join-ggplots.R

#READ THE TEST DATA
test_data_001<-readRDS("../testdata/test_data_001.rds")

test_that("Plotting returns a grob",{
  p <- forestplot(test_data_001, return_ggplots = TRUE)
  p <- join_ggplots(p[[1]],p[[2]])

  expect_true(grid::is.grob(p))

})

Try the ormPlot package in your browser

Any scripts or data that you put into this service are public.

ormPlot documentation built on Sept. 13, 2023, 5:07 p.m.