Debug Benchmark script

ssi-dk · Mar 8, 2024 · 92eb677 · 92eb677
1 parent 4834653
commit 92eb677
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/data-raw/benchmark_update_snapshot.R b/data-raw/benchmark_update_snapshot.R
@@ -44,6 +44,10 @@ scdb_updates <- function(conn, data_on_conn) {
   DBI::dbRemoveTable(conn, name = "SCDB_benchmark")
 }
 
+print(data_on_conn[[1]])
+print(data_on_conn[[2]])
+print(data_on_conn[[3]])
+
 # Construct the list of benchmarks
 benchmark_exprs <- alist()
 benchmark_on_conn <- local(bquote(scdb_updates(conn, data_on_conn)))