R/bookdown.R

In huxtable: Easily Create and Style Tables for LaTeX, HTML and Other Formats

# Functions relating to bookdown


use_bookdown_style_captions <- function () {
  if (! is.null(book_opt <- getOption("huxtable.bookdown", NULL))) return(book_opt)

  if (! requireNamespace("knitr", quietly = TRUE)) return(FALSE)
  if (! requireNamespace("rmarkdown", quietly = TRUE)) return(FALSE)
  input_path <- knitr::current_input(dir = TRUE)
  if (is.null(input_path)) return(FALSE)
  rmd_of <- rmarkdown::default_output_format(input_path)$name

  return(grepl("bookdown|blogdown", rmd_of))
}


make_caption <- function(ht, label, format = c("html", "latex", "md")) {
  format <- match.arg(format)

  raw_cap <- caption(ht)

  if (is.na(label) || label == "") {
    return(raw_cap)
  }
  if (! use_bookdown_style_captions()) {
    return(raw_cap)
  }

  if (! grepl("^tab:", label)) label <- paste0("tab:", label)

  # even if there's no caption, we make one if we need it for the label:
  if (is.na(raw_cap)) raw_cap <- ""
  cap_with_label <- if (format == "latex") {
          sprintf("(\\#%s) %s", label, raw_cap)
        } else {
          sprintf("(#%s) %s", label, raw_cap)
        }

  # quick hack for LaTeX!
  attr(cap_with_label, "has_label") <- TRUE
  return(cap_with_label)
}