Nothing
skip_on_cran()
test_that("no errors/warnings with standard use after tbl_summary() and add_p()", {
table1 <- trial %>%
tbl_summary(by = trt) %>%
add_p()
expect_snapshot(filter_p(table1, t = 0.2) %>% as.data.frame())
expect_warning(filter_p(table1, t = 0.2), NA)
})
test_that("no errors/warnings with standard use after tbl_regression() and add_global_p()", {
skip_if_not(broom.helpers::.assert_package("car", pkg_search = "gtsummary", boolean = TRUE))
regress1 <- glm(response ~ age + grade, trial, family = binomial(link = "logit")) %>%
tbl_regression(exponentiate = TRUE) %>%
add_global_p()
expect_snapshot(filter_p(regress1, t = 0.2) %>% as.data.frame())
expect_warning(filter_p(regress1, t = 0.2), NA)
})
test_that("no errors/warnings with standard use after tbl_regression() and add_global_p()", {
skip_if_not(broom.helpers::.assert_package("car", pkg_search = "gtsummary", boolean = TRUE))
regress2 <-
tbl_uvregression(
trial %>% dplyr::select(response, age, grade),
method = glm,
y = response,
method.args = list(family = binomial),
exponentiate = TRUE
) %>%
add_global_p()
expect_snapshot(filter_p(regress2, t = 0.2) %>% as.data.frame())
expect_warning(filter_p(regress2, t = 0.2), NA)
})
test_that("expect error if no p value in table 1", {
table1 <- trial %>% tbl_summary(by = trt)
expect_error(
filter_p(table1),
NULL
)
})
test_that("expect error if q = TRUE and no q values in table 1", {
table1 <- trial %>%
tbl_summary(by = trt) %>%
add_p()
expect_error(
filter_p(table1, q = TRUE),
NULL
)
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.