R/finalize_typst.R

In tinytable: Simple and Configurable Tables in 'HTML', 'LaTeX', 'Markdown', 'Word', 'PNG', 'PDF', and 'Typst' Formats

setMethod(
  f = "finalize",
  signature = "tinytable_typst",
  definition = function(x, ...) {
    out <- x@table_string
    out <- sub("$TINYTABLE_TYPST_NROW", nrow(x), out, fixed = TRUE)
    out <- sub("$TINYTABLE_TYPST_NCOL", ncol(x), out, fixed = TRUE)
    out <- sub("$TINYTABLE_TYPST_NHEAD", x@nhead, out, fixed = TRUE)

    cap <- x@caption
    if (length(cap) == 1) {
      out <- sub(
        "$TINYTABLE_TYPST_CAPTION",
        sprintf("caption: %s,", cap),
        out,
        fixed = TRUE
      )
    } else {
      out <- sub("$TINYTABLE_TYPST_CAPTION", "", out, fixed = TRUE)
    }

    # Quarto cross-references
    if (isTRUE(check_dependency("knitr"))) {
      quarto_caption <- isTRUE(knitr::pandoc_to("typst")) &&
        isFALSE(getOption("tinytable_quarto_figure", default = FALSE))
      (
        !is.null(knitr::opts_current$get()[["label"]]) ||
          !is.null(knitr::opts_current$get()[["tbl-cap"]])
      )
      if (quarto_caption) {
        out <- lines_drop_between(
          out,
          regex_start = "// start figure preamble",
          regex_end = "// end figure preamble",
          fixed = TRUE
        )
        out <- lines_drop(out, regex = "// start figure preamble", fixed = TRUE)
        out <- lines_drop(out, regex = "// end figure", fixed = TRUE)
        out <- lines_drop(out, regex = "// start block", fixed = TRUE)
        out <- lines_drop(out, regex = "// end block", fixed = TRUE)
        out <- sub(" table(", " #table(", out, fixed = TRUE)
      }
    }

    x@table_string <- out

    for (fn in x@lazy_finalize) {
      x <- fn(x)
    }

    return(x)
  }
)