tests/testthat/test-run_report.R

In miraisolutions/covid19-vaccination-ch: Vaccination Breakthroughs in CH

# test_that("Running the Rmd report works", {
#   # adapted from golem::expect_running()
#   r_ <- if (tolower(.Platform$OS.type) == "windows") {
#      normalizePath(file.path(Sys.getenv("R_HOME"), "bin", "R.exe"))
#   } else {
#     normalizePath(file.path(Sys.getenv("R_HOME"), "bin", "R"))
#   }
#   run_expression <- sprintf(
#     ".libPaths(%s); covid19vaccinationch::run_report()",
#     paste(deparse(.libPaths()), collapse = "\n")
#   )
#   run_process <- processx::process$new(
#     echo_cmd = TRUE,
#     command = r_,
#     c("-e", run_expression),
#     # we need stderr = "" to ensure errors are captured as breaking
#     stdout = NULL, stderr = ""
#   )
#   Sys.sleep(15)
#   expect_true(run_process$is_alive())
#   run_process$kill()
# })