Visualizing execution time for tests within a file using testthat's ListReporter

plot-test-times.R

library(forcats)
library(ggplot2)
library(testthat)
path <- testthat_example("success")

l <- test_file(path, reporter = "list")

l %>%
  as.data.frame() %>%
  ggplot(aes(y = fct_reorder(test, real), x = real)) + 
  geom_point() + 
  xlab("Execution time") + 
  ylab("Test")