add example of issue #11683

i can't figure out a way to automate this test
but we should have it for visual testing

Author: gordonwoodhull

tests/docs/smoke-all/typst/typst-css/big-numbers.qmd

@@ -0,0 +1,25 @@
+---
+title: "Untitled"
+format: typst
+keep-typ: true
+---
+
+```{=typst}
+#text(font: "Roboto")[Roboto]
+
+#text(font: "Linux Libertine")[Linux Libertine]
+
+#text(font: "New Computer Modern Math")[New Computer Modern Math]
+
+#text(font: "DejaVu Sans Mono")[DejaVu Sans Mono]
+```
+
+```{r}
+library(gt)
+df <- data.frame(a = c("aa111bbb", "abcdef"), b = c(1, 2))
+tab <- gt::gt(df)
+# reliably recreate fonts failure from https://github.com/quarto-dev/quarto-cli/issues/11683
+opt_table_font(tab,
+ font = c("InvalidFontName", "system-ui", "Apple Color Emoji", "Segoe UI Emoji", "Segoe UI Symbol", "Noto Color Emoji"),
+ add = FALSE)
+```