caption style start

R/build_tt.R

@@ -20,6 +20,7 @@ build_tt <- function(x, output = NULL) {
 
     # apply the style_notes
     x <- style_notes(x)
+    x <- style_caption(x)
 
     for (th in x@lazy_theme) {
         fn <- th[[1]]

R/class.R

@@ -45,6 +45,7 @@ setClass(
         bootstrap_css_rule = "character",
         css = "data.frame",
         style = "data.frame",
+        style_caption = "list",
         style_notes = "list",
         lazy_format = "list",
         lazy_group = "list",

R/sanity.R

@@ -13,7 +13,8 @@ sanity_align <- function(align, i) {
 
 
 sanitize_i <- function(i, x, pre_group_i = FALSE, lazy = TRUE) {
-    if (identical(i, "notes")) {
+    if (is.character(i)) {
+        assert_choice(i, c("notes", "caption"))
         return(i)
     }
     out <- seq_len(nrow(x))

R/style_notes.R

@@ -1,45 +0,0 @@
-setGeneric(
-    name = "style_notes",
-    def = function(x, ...) standardGeneric("style_notes")
-)
-
-# default method
-setMethod(
-    f = "style_notes",
-    signature = "ANY",
-    definition = function(x, ...) {
-        return(x)
-    })
-
-
-# HTML: bootstrap
-setMethod(
-    f = "style_notes",
-    signature = "tinytable_bootstrap",
-    definition = function(x, ...) {
-        styles <- x@style_notes
-        x@notes <- lapply(x@notes, style_string_html, styles)
-        return(x)
-    })
-
-
-# LaTeX: tabularray
-setMethod(
-    f = "style_notes",
-    signature = "tinytable_tabularray",
-    definition = function(x, ...) {
-        styles <- x@style_notes
-        x@notes <- lapply(x@notes, style_string_latex, styles)
-        return(x)
-    })
-
-
-# Typst
-setMethod(
-    f = "style_notes",
-    signature = "tinytable_typst",
-    definition = function(x, ...) {
-        styles <- x@style_notes
-        x@notes <- lapply(x@notes, style_string_typst, styles)
-        return(x)
-    })

R/style_string.R

@@ -78,3 +78,43 @@ style_string_typst <- function(n, styles) {
     out <- sprintf(template, n)
     return(out)
 }
+
+
+
+style_notes <- function(x) {
+    fun <- switch(x@output,
+        "typst" = style_string_typst,
+        "html" = style_string_html,
+        "html_portable" = style_string_html,
+        "latex" = style_string_latex,
+        function(k, ...) identity(k)
+    )
+    x@notes <- lapply(x@notes, fun, x@style_notes)
+    return(x)
+}
+
+style_notes <- function(x) {
+    fun <- switch(x@output,
+        "typst" = style_string_typst,
+        "html" = style_string_html,
+        "html_portable" = style_string_html,
+        "latex" = style_string_latex,
+        function(k, ...) identity(k)
+    )
+    x@notes <- lapply(x@notes, fun, x@style_notes)
+    return(x)
+}
+
+style_caption <- function(x) {
+    fun <- switch(x@output,
+        "typst" = style_string_typst,
+        "html" = style_string_html,
+        "html_portable" = style_string_html,
+        "latex" = style_string_latex,
+        function(k, ...) identity(k)
+    )
+    if (length(x@caption) > 0) {
+        x@caption <- fun(x@caption, x@style_caption)
+    }
+    return(x)
+}

R/style_tt.R

@@ -158,15 +158,17 @@ style_tt <- function(x,
         tabularray_inner = tabularray_inner, tabularray_outer = tabularray_outer, bootstrap_css = bootstrap_css,
         bootstrap_css_rule = bootstrap_css_rule)
 
-    if (identical(i, "notes")) {
-        out@style_notes <- list(
+    if (isTRUE(i %in% c("notes", "caption"))) {
+        tmp <- list(
             color = color,
             fontsize = fontsize,
             italic = italic,
             monospace = monospace,
             strikeout = strikeout,
             underline = underline
         )
+        if (identical(i, "notes")) out@style_notes <- tmp
+        if (identical(i, "caption")) out@style_caption <- tmp
         return(out)
     }