mirror of
https://github.com/agdamsbo/stRoke.git
synced 2024-11-22 04:50:23 +01:00
10 lines
273 B
R
10 lines
273 B
R
|
test_that("gt_plot() produces a valid ggplot object", {
|
||
|
|
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))
|
||
|
|
})
|