pdf fixes

vincentarelbundock · Dec 13, 2024 · 7b0087b · 7b0087b
1 parent 15dbb6d
commit 7b0087b
Show file tree

Hide file tree

Showing 3 changed files with 11 additions and 14 deletions.
diff --git a/R/save_tt.R b/R/save_tt.R
@@ -158,7 +158,7 @@ latex_standalone <- "
 \\usepackage{rotating}
 \\usepackage{float}
 \\usepackage[normalem]{ulem}
-\\usepackage[HTML]{xcolor}
+\\usepackage[x11names, svgnames]{xcolor}
 \\UseTblrLibrary{booktabs}
 \\UseTblrLibrary{siunitx}
 \\newcommand{\\tinytableTabularrayUnderline}[1]{\\underline{#1}}

diff --git a/R/style_string.R b/R/style_string.R
@@ -81,19 +81,6 @@ style_string_typst <- function(n, styles) {
 }
 
 
-
-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,

diff --git a/inst/tinytest/test-pdf.R b/inst/tinytest/test-pdf.R
@@ -30,5 +30,15 @@ expect_warning(
 
 expect_true("somelog.log" %in% list.files(dest_dir))
 
+# Issue #395
+x <- mtcars[1:4, 1:5]
+fn <- tempfile(fileext = ".pdf")
+cap <- "A simple \\texttt{tinytable} example."
+not <- "Nullam odio est, ullamcorper scelerisque lectus a, eleifend luctus nisl. Etiam ullamcorper, nibh vel interdum auctor, odio nulla mollis tortor, vel fringilla ante quam quis est."
+tt(x, caption = cap, notes = not, width = .5) |>
+    style_tt( i = 1:3, j = 1:2, background = "#1ecebf", bold = TRUE) |>
+    group_tt(j = list("Halloumi" = 1:2, "Tofu" = 4:5)) |>
+    save_tt(fn, overwrite = TRUE)
+
 # Clean slate
 suppressWarnings(invisible(file.remove(list.files(dest_dir))))