1:4, 1:4] |>
- mtcars[tt() |>
- group_tt(i = list("*Hello*" = 1, "__World__" = 3)) |>
- print("markdown")
1:4, 1:4] |>
+ mtcars[tt() |>
+ group_tt(i = list("*Hello*" = 1, "__World__" = 3)) |>
+ print("markdown")
+------+-----+------+-----+
| mpg | cyl | disp | hp |
diff --git a/vignettes/theme.html b/vignettes/theme.html
index 3ef6912a..34fddff7 100644
--- a/vignettes/theme.html
+++ b/vignettes/theme.html
@@ -434,8 +434,8 @@ Visual themes
+
+
+
+
@@ -916,24 +1047,24 @@ Visual themes
Custom themes
Users can also define their own themes to apply consistent visual tweaks to tables. For example, this defines a themeing function and sets a global option to apply it to all tables consistently:
-<- function(x, ...) {
- theme_vincent <- x |>
- out style_tt(color = "teal")
- @caption <- "Always use the same caption."
- out@width <- .5
- outreturn(out)
-
- }
-options(tinytable_tt_theme = theme_vincent)
-
-tt(mtcars[1:2, 1:2])
+<- function(x, ...) {
+ theme_vincent <- x |>
+ out style_tt(color = "teal")
+ @caption <- "Always use the same caption."
+ out@width <- .5
+ outreturn(out)
+
+ }
+options(tinytable_tt_theme = theme_vincent)
+
+tt(mtcars[1:2, 1:2])