tests/testthat/helper-render_as_html.R

In gtsummary: Presentation-Ready Data Summary and Analytic Result Tables

#' Transform a **gt** table object to a raw HTML table
#'
#' Take a `gt_tbl` table object and transform it to an HTML table.
#'
#' @param data A gtsummary or gt table.
#'
#' @return A character object with an HTML table.
#'
#' @noRd
render_as_html <- function(data) {
  if (inherits(data, "gtsummary")) data <- as_gt(data)

  gt::as_raw_html(data) %>% gsub("id=\"[a-z]*?\"", "", .)
}