Issue #613 latex tabular caption

Author: vincentarelbundock

DESCRIPTION

@@ -2,7 +2,7 @@ Package: tinytable
 Type: Package
 Title: Simple and Configurable Tables in 'HTML', 'LaTeX', 'Markdown', 'Word', 'PNG', 'PDF', and 'Typst' Formats
 Description: Create highly customized tables with this simple and dependency-free package. Data frames can be converted to 'HTML', 'LaTeX', 'Markdown', 'Word', 'PNG', 'PDF', or 'Typst' tables. The user interface is minimalist and easy to learn. The syntax is concise. 'HTML' tables can be customized using the flexible 'Bootstrap' framework, and 'LaTeX' code with the 'tabularray' package.
-Version: 0.15.1.2
+Version: 0.15.1.3
 Imports:
     methods
 Depends:

NEWS.md

@@ -6,6 +6,7 @@ Bugs:
 
 * Tabulator HTML output now preserves special characters in column names like question marks (Issue #611, thanks to @etiennebacher).
 * Document `rbind2()` limitations around `format_tt()`/`style_tt()` and string coercion when stacking tables (Issue #612, thanks to @alexploner).
+* `theme_latex(environment = "tabular")` now preserves captions (Issue #613, thanks to @brueckmann).
 
 ## 0.15.1
 

R/theme_latex.R

@@ -31,6 +31,19 @@ handle_latex_environment <- function(x, environment, environment_table) {
           regex_end = "tabularray inner close"
         )
 
+        # reinsert caption for plain tabular tables
+        table_env <- "\\\\begin\\{table\\}"
+        if (length(table@caption) > 0 && grepl(table_env, table_string, perl = TRUE)) {
+          cap <- sprintf("\\caption{%s}", table@caption[1])
+          table_string <- lines_insert(
+            table_string,
+            new = cap,
+            regex = table_env,
+            position = "after",
+            perl = TRUE
+          )
+        }
+
         # Convert tabularray syntax to tabular
         table_string <- gsub("cmidrule\\[(.*?)\\]", "cmidrule(\\1)", table_string)
         table_string <- gsub("\\\\toprule|\\\\midrule|\\\\bottomrule", "\\\\hline", table_string)

inst/tinytest/_tinysnapshot/latex-tabular_caption.tex

@@ -0,0 +1,11 @@
+\begin{table}
+\caption{Tabular caption example.}
+\centering
+\begin{tabular}{lllll}
+mpg & cyl & disp & hp & drat \\
+21.0 & 6 & 160 & 110 & 3.90 \\
+21.0 & 6 & 160 & 110 & 3.90 \\
+22.8 & 4 & 108 & 93 & 3.85 \\
+21.4 & 6 & 258 & 110 & 3.08 \\
+\end{tabular}
+\end{table} 

inst/tinytest/test-latex.R

@@ -20,6 +20,13 @@ expect_snapshot_print(
   label = "latex-nohead.tex"
 )
 
+# Issue #613: caption with tabular latex theme
+expect_snapshot_print(
+  tt(x, caption = "Tabular caption example.") |>
+    theme_latex(environment = "tabular"),
+  label = "latex-tabular_caption.tex"
+)
+
 # Align
 expect_snapshot_print(
   tt(x) |> style_tt(j = 1:5, align = "ccllr"),