SVG: work around firefox font size bug

Closes #42
r-lib · Aug 5, 2022 · 424359f · 424359f
1 parent 0f3ed00
commit 424359f
Showing 1 changed file with 6 additions and 0 deletions.
diff --git a/R/svg.R b/R/svg.R
@@ -78,6 +78,12 @@ write_svg <- function(cast, path, window = NULL, start_at = NULL, end_at = NULL,
     theme = theme))
 
   svg <- ct$call("svgterm.render", json, options)
+  svg <- gsub(
+    "<text",
+    paste0("<text font-size=\"", theme$fontSize, "\""),
+    svg,
+    fixed = TRUE
+  )
   cat(svg, file = path)
 
   invisible()