Embed test snasphots in function documentation

docs.R

examples <- function(name, from_dir = "tests/testthat/_snaps/ci-linux-4.4-simulated") {
  dir.create(file.path("man", "figures", name), showWarnings = FALSE, recursive = TRUE)
  file.copy(file.path(from_dir, name), file.path("man", "figures"), recursive = TRUE)
  snaps <- list.files(file.path("man", "figures", name))
  snaps |>
    lapply(function(path) {
      sprintf('![](%s "%s")', file.path(name, path), name)
    }) |>
    paste(collapse = "\n")
}

# Then in docs do:
# #' `r examples("my_function")`