R/footnotes.R

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

footnote_markers <- function(x) {
  notes <- x@notes
  tab <- x@data_body

  # Define superscript syntax for each output format
  superscript_syntax <- list(
    latex = "\\textsuperscript{%s}",
    html = "<sup>%s</sup>",
    bootstrap = "<sup>%s</sup>",
    tabulator = "<sup>%s</sup>",
    typst = "#super[%s]",
    markdown = "^%s^"
  )

  # Get the appropriate superscript format
  sup_format <- superscript_syntax[[x@output]] %||%
    superscript_syntax[["markdown"]]

  # Helper function to add superscript to a value
  add_superscript <- function(value, sup) {
    paste0(value, sprintf(sup_format, sup))
  }

  # Helper function to update column names and x@names
  update_column_names <- function(x, n, sup) {
    if (0 %in% n$i) {
      colnames(tab)[n$j] <- add_superscript(colnames(tab)[n$j], sup)
      x@names[n$j] <- add_superscript(x@names[n$j], sup)
    }
    return(x)
  }

  for (idx in seq_along(notes)) {
    n <- notes[[idx]]
    sup <- names(notes)[idx]

    if (is.list(n)) {
      # Add superscript to table cells
      tab[n$i, n$j] <- add_superscript(tab[n$i, n$j], sup)

      # Update column names and x@names if needed
      x <- update_column_names(x, n, sup)
    }
  }

  x@data_body <- tab
  return(x)
}