R/zzz-tabexport-meta.R

In R4VN: Health Data Analysis and Publication-Ready Reporting

# ============================================================================
# Extend the existing tabexport() for r4vn_meta objects.
# The zzz prefix ensures this wrapper is defined after R/tabexport.R.
# ============================================================================

.r4vn_tabexport_original <- tabexport

tabexport <- function(..., export = NULL, file = NULL, open = FALSE,
                      title = NULL, sheet = NULL, overwrite = TRUE,
                      quiet = FALSE) {
  dots <- list(...)

  if (length(dots) == 1L && inherits(dots[[1L]], "r4vn_meta")) {
    return(.r4vn_export_meta(
      dots[[1L]],
      export = export,
      file = file,
      open = open,
      title = title,
      overwrite = overwrite,
      quiet = quiet
    ))
  }

  .r4vn_tabexport_original(
    ...,
    export = export,
    file = file,
    open = open,
    title = title,
    sheet = sheet,
    overwrite = overwrite,
    quiet = quiet
  )
}