at least one iteration of each, write diff

Author: lorenzwalthert

touchstone/script.R

@@ -5,7 +5,7 @@ timings <- touchstone::benchmark_run_ref(
   refs,
   expr_before_benchmark = c("library(styler)", "cache_deactivate()"),
   expr_to_benchmark = 'style_pkg("touchstone/sources/here", filetype = c("R", "rmd"))',
-  n = 1,
+  n = 2,
 )
 
 timings <- touchstone::benchmark_read(refs)
@@ -17,3 +17,11 @@ timings %>%
   geom_density()
 
 ggsave("touchstone/plots/density.png")
+
+tbl <- timings %>%
+  dplyr::group_by(.data$ref) %>%
+  dplyr::summarise(m = mean(.data$elapsed)) %>%
+  tibble::deframe()
+
+diff_percent <- round(100 * (tbl[ref[2]] - tbl[ref[1]]) / tbl[ref[1]])
+writeLines(glue::glue('{tbl[ref[2]]} -> {tbl[ref[1]]} ({diff_percent}%)'), 'touchstone/pr-comment/info.txt')