touchstone/script.R

In krlmlr/styler: Non-Invasive Pretty Printing of R Code

library(touchstone)

branch_install()

clear_branch_caches <- function() {
  purrr::walk(c(branch_get_or_fail("GITHUB_BASE_REF"), branch_get_or_fail("GITHUB_HEAD_REF")),
    styler::cache_clear,
    ask = FALSE
  )
}

clear_branch_caches()


benchmark_run(
  expr_before_benchmark = {
    library(styler)
    cache_deactivate()
  },
  without_cache = style_pkg("touchstone/sources/here", filetype = c("R", "rmd")),
  n = 30
)

clear_branch_caches()
benchmark_run(
  expr_before_benchmark = {
    library(styler)
    cache_activate(gert::git_branch())
  },
  cache_applying = style_pkg("touchstone/sources/here", filetype = c("R", "rmd")),
  n = 30
)

clear_branch_caches()

benchmark_run(
  expr_before_benchmark = {
    library(styler)
    cache_activate(gert::git_branch())
  },
  cache_recording = {
    gert::git_reset_hard(repo = "touchstone/sources/here")
    style_pkg("touchstone/sources/here", filetype = c("R", "rmd"))
  },
  n = 30
)

clear_branch_caches()

benchmark_analyze()