absolute paths

vincentarelbundock · Jan 23, 2024 · dad5e43 · dad5e43
1 parent d0a2d1f
commit dad5e43
Showing 1 changed file with 4 additions and 1 deletion.
diff --git a/R/plot_tt.R b/R/plot_tt.R
@@ -186,10 +186,13 @@ plot_tt_lazy <- function(x,
     cell <- sprintf(cell, height, images)
 
   } else if (meta(x)$output == "html") {
+    images <- paste0("./", images)
+    images <- sapply(images, path.expand)
     cell <- ifelse(
       grepl("^http", trimws(images)),
       '<img src="%s" style="height: %sem;">',
-      '<img src="./%s" style="height: %sem;">')
+      # '<img src="./%s" style="height: %sem;">')
+      '<img src="%s" style="height: %sem;">')
     cell <- sprintf(cell, images, height)
 
   } else if (meta(x)$output == "markdown") {