lazy style eval

R/print.R

@@ -3,9 +3,10 @@
 #' @keywords internal
 #' @export
 knit_print.tinytable <- function(x, ...) {
-  m <- meta(x)
+  # lazy styles get evaluated here, at the very end
+  x <- eval_style(x)
 
-  if (m$output == "html") {
+  if (meta(x)$output == "html") {
     # from htmltools:::html_preserve
     # GPL3
     inline <- grepl(x, "\n", fixed = TRUE)
@@ -15,7 +16,7 @@ knit_print.tinytable <- function(x, ...) {
       out <- sprintf("\n```{=html}\n%s\n```\n", x)
     }
 
-  } else if (m$output %in% c("latex", "markdown")) {
+  } else if (meta(x)$output %in% c("latex", "markdown")) {
     out <- x
   }
 

R/save_tt.R

@@ -17,10 +17,8 @@
 #' }
 #'
 save_tt <- function(x, filename, overwrite = FALSE) {
-
   m <- meta(x)
 
-
   assert_string(filename)
   assert_flag(overwrite)
   if (file.exists(filename) && !overwrite) {
@@ -30,6 +28,9 @@ save_tt <- function(x, filename, overwrite = FALSE) {
     stop("`x` must be an object produced by the `tinytable::tt()` function.", call. = FALSE)
   }
 
+  # evaluate styles at the very end of the pipeline
+  x <- eval_style(x)
+
   write(x, file = filename)
 
   return(invisible(TRUE))

R/style_tt.R

@@ -206,7 +206,6 @@ style_tt <- function (x,
         "\\tinytableDefineColor{%s}{HTML}{%s}",
         sub("^#", "c", h), sub("^#", "", h))
       cal <- call("style_tabularray", body = b)
-      browser()
       out <- meta(out, "lazy_style", c(meta(out)$lazy_style, list(cal)))
     }
   }