mirror of
https://github.com/agdamsbo/stRoke.git
synced 2024-11-25 06:01:54 +01:00
11 lines
293 B
R
11 lines
293 B
R
test_that("gt_plot() produces a valid ggplot object", {
|
|
require(webshot2)
|
|
x <- gt_plot(gtsummary::tbl_summary(mtcars))
|
|
expect_type(x, "list")
|
|
expect_true(inherits(x, c("gg", "ggplot")))
|
|
})
|
|
|
|
test_that("gt_plot() throws error if input is incorrect", {
|
|
expect_error(gt_plot(mtcars))
|
|
})
|