R/clinpage.R

In clinify: Clinical Table Styling Tools and Utilities

#' Blank object creator for a clintable object
#'
#' @noRd
new_clinpage <- function() {
  structure(
    list(
      header = NULL,
      body = NULL,
      footer = NULL,
      col_keys = NULL,
      caption = NULL,
      blanks = NULL,
      properties = NULL
    ),
    class = c("clinpage", "flextable")
  )
}