feat: Use Ubuntu noble for touchstone (#314)

* Use noble

* load_all()

* Rename

* All of them

* Reduce number of runs

* Reverse

Author: krlmlr

.github/workflows/touchstone-receive.yaml

@@ -17,10 +17,10 @@ on:
 
 jobs:
   build:
-    runs-on: ubuntu-22.04
+    runs-on: ubuntu-24.04
     env:
       R_REMOTES_NO_ERRORS_FROM_WARNINGS: true
-      RSPM: "https://packagemanager.rstudio.com/all/__linux__/jammy/latest"
+      RSPM: "https://packagemanager.rstudio.com/all/__linux__/noble/latest"
       GITHUB_PAT: ${{ secrets.GITHUB_TOKEN }}
     steps:
       - uses: lorenzwalthert/touchstone/actions/receive@main

tools/31-tpch-load-qs.R

@@ -1,3 +1,5 @@
+pkgload::load_all()
+
 tables <- c("lineitem", "partsupp", "part", "supplier", "nation", "orders", "customer", "region")
 
 data <- lapply(tables, function(t) {

tools/60-touchstone-gen.R tools/70-touchstone-gen.Rtools/60-touchstone-gen.R renamed to tools/70-touchstone-gen.R

@@ -11,10 +11,10 @@ branch_install()
 
 header <- paste0("# Generated by 60-touchstone-gen.R, ", "do not edit by hand\n\n")
 
-body <- function(sf, test) paste0('benchmark_run(
-  expr_before_benchmark = {
+body <- function(sf, test, n) glue::glue('benchmark_run(
+  expr_before_benchmark = {{
     library(duckplyr)
-    data <- qs::qread("tools/tpch/', sf, '.qs")
+    data <- qs::qread("tools/tpch/{sf}.qs")
     .mapply(assign, list(names(data), data), list(pos = .GlobalEnv))
 
     customer <- as_duckplyr_df(customer)
@@ -25,24 +25,22 @@ body <- function(sf, test) paste0('benchmark_run(
     partsupp <- as_duckplyr_df(partsupp)
     region <- as_duckplyr_df(region)
     supplier <- as_duckplyr_df(supplier)
-  },
-  `', sf, '_tpch_', test, '` = collect(duckplyr:::tpch_', test, '()),
-  n = 30
+  }},
+  `{sf}_tpch_{test}` = collect(duckplyr:::tpch_', test, '()),
+  n = {n}
 )\n\n')
 
 footer <- 'benchmark_analyze()'
 
 bodies <-
   crossing(
-    sf = c("001", "010"),
-    test = c("01", "02", "03"),
-    # sf = c("001", "010", "100"),
-    # test = c("01", "02", "03", "04", "05", "06", "07", "08", "09", "10", "11", "12", "13", "14", "15", "16", "17", "18", "19", "20", "21", "22"),
+    tibble(n = c(3, 10, 30), sf = c("100", "010", "001")),
+    test = c("01", "02", "03", "04", "05", "06", "07", "08", "09", "10", "11", "12", "13", "14", "15", "16", "17", "18", "19", "20", "21", "22"),
   ) |>
   rowwise() |>
-  mutate(code = body(sf, test)) |>
+  mutate(code = body(sf, test, n)) |>
   ungroup() |>
-  summarize(code = paste(code, collapse = "")) |>
+  summarize(code = paste(code, collapse = "\n")) |>
   pull(code)
 
 code <- paste0(