tests/testthat/test-modify_header_rm_md.R

In crane: Supplements the 'gtsummary' Package for Pharmaceutical Reporting

test_that("strip_md_bold() works with gtsummary table", {
  expect_false(
    gtsummary::tbl_strata(
      gtsummary::trial,
      strata = "grade",
      ~ gtsummary::tbl_summary(.x, include = age)
    ) |>
      modify_header_rm_md(md = "bold") |>
      as.data.frame() |>
      names() |>
      str_detect(pattern = "*", fixed = TRUE) |>
      any()
  )

  expect_false(
    gtsummary::tbl_strata(
      gtsummary::trial,
      strata = "grade",
      ~ gtsummary::tbl_summary(.x, include = age),
      .header = "_{strata}_"
    ) |>
      modify_header_rm_md(md = "italic", type = "underscore") |>
      getElement("table_styling") |>
      getElement("spanning_header") |>
      getElement("spanning_header") |>
      str_detect(pattern = "_", fixed = TRUE) |>
      any()
  )
})