add flextable & gt examples; turn off striping

Author: gordonwoodhull

tests/docs/typst/tables/flextable/viridis-cells.qmd

@@ -0,0 +1,24 @@
+---
+title: "flextable - background colors"
+format:
+  typst:
+    quality: 1
+  html:
+    quality: 1
+    format-links: false
+example-source: https://ardata-fr.github.io/flextable-book/define-visual-properties.html#formatting-functions
+---
+
+```{r}
+#| classes: plain
+library(flextable)
+library(magrittr)
+myft <- as.data.frame(matrix(runif(5*5), ncol = 5)) %>%
+  flextable() %>%
+  colformat_double() %>% autofit() %>%
+  align(align = "center", part = "all") %>%
+  bg(bg = "black", part = "header") %>%
+  color(color = "white", part = "all") %>%
+  bg(bg = scales::col_numeric(palette = "viridis", domain = c(0, 1)))
+myft
+```

tests/docs/typst/tables/gt/air-quality.qmd

@@ -9,6 +9,7 @@ format:
 ---
 
 ```{r}
+#| classes: plain
 library(gt)
 library(dplyr)
 

tests/docs/typst/tables/gt/gtcars.qmd

@@ -0,0 +1,52 @@
+---
+title: "gt - gtcars"
+format:
+  typst:
+    quality: 1
+  html:
+    quality: 1
+    format-links: false
+example-source: https://themockup.blog/static/resources/gt-cookbook.html#multiple-colors
+---
+
+```{=typst}
+// this example is a little large for a standard page, at least at 0.75px = 1pt
+// and we don't have
+#set page(margin: 0cm)
+
+// striped
+// #set table(fill: (_,y) => if calc.odd(y) {luma(240)} else {white})
+```
+
+
+```{r}
+#| classes: plain
+library(dplyr)
+library(gt)
+
+gtcars %>%
+  dplyr::filter(mfr == "Ferrari", hp < 900) %>%
+  dplyr::select(model, hp, mpg_c, mpg_h, msrp) %>%
+  gt() %>%
+  data_color(
+    columns = vars(hp),
+    colors = scales::col_numeric(
+      palette = c(
+        "white", "orange", "red"),
+      domain = c(500, 750))
+  ) %>%
+  data_color(
+    columns = vars(mpg_c, mpg_h),
+    colors = scales::col_numeric(
+      palette = c(
+        "white", "green"),
+      domain = c(10, 25))
+  ) %>%
+  data_color(
+    columns = vars(msrp),
+    colors = scales::col_numeric(
+      palette = c(
+        "white", "pink", "red"),
+      domain = NULL)
+  )
+```

tests/docs/typst/tables/gt/islands.qmd

@@ -9,6 +9,7 @@ format:
 ---
 
 ```{r}
+#| classes: plain
 library(gt)
 library(dplyr)
 

tests/docs/typst/tables/gt/mtcars.qmd

@@ -19,7 +19,6 @@ format:
 
 
 ```{r}
-
 library(dplyr)
 library(gt)
 
@@ -38,6 +37,7 @@ order_countries <- c("Germany", "Italy", "United States", "Japan")
 
 
 ```{r}
+#| classes: plain
 # Reorder the table rows by our specific ordering of groups
 tab <-
   gtcars_8 |>

tests/docs/typst/tables/gt/red-blue-palette.qmd

@@ -0,0 +1,31 @@
+---
+title: "gt - Red-Blue Palette"
+format:
+  typst:
+    quality: 1
+  html:
+    quality: 1
+    format-links: false
+example-source: https://themockup.blog/static/resources/gt-cookbook.html#red-blue-palette
+---
+
+```{r}
+#| classes: plain
+library(dplyr)
+library(gt)
+
+dimnames <- list(start(nottem)[1]:end(nottem)[1], month.abb)
+temps <- matrix(nottem, ncol = 12, byrow = TRUE, dimnames = dimnames) %>%
+  data.frame() %>%
+  tibble::rownames_to_column() %>%
+  head(10)
+
+temps %>%
+  gt() %>%
+  data_color(
+    columns = vars(month.abb),
+    colors = scales::col_numeric(
+      colorspace::diverge_hcl(n = 9, palette = "Blue-Red 3"),
+      domain = range(nottem))
+  )
+```

tests/docs/typst/tables/gt/test-pattern.qmd

@@ -13,7 +13,7 @@ format:
 ```
 
 ```{r}
-
+#| classes: plain
 library(dplyr)
 library(gt)