Avoid gt deprecated arguments

Author: olivroy

docs/blog/posts/2024-07-02-beautiful-tables-in-typst/examples/gt-cars.qmd

@@ -25,24 +25,19 @@ gtcars %>%
   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))
+    columns = hp,
+    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))
+    columns = c(mpg_c, mpg_h),
+    palette = c("white", "green"),
+    domain = c(10, 25)
   ) %>%
   data_color(
-    columns = vars(msrp),
-    colors = scales::col_numeric(
-      palette = c(
-        "white", "pink", "red"),
-      domain = NULL)
+    columns = msrp,
+    palette = c("white", "pink", "red"),
+    domain = NULL
   )
-```
+```
+