From 2f9f4e26398acd277a6bac3383c7bc1a4e504c84 Mon Sep 17 00:00:00 2001
From: David Dorchies <david.dorchies@inrae.fr>
Date: Tue, 26 Mar 2024 07:22:34 +0100
Subject: [PATCH] fix(render_reports): working dir changed after run
Refs #8
---
R/render_report.R | 2 +-
tests/testthat/test-render_reports.R | 8 ++++++++
2 files changed, 9 insertions(+), 1 deletion(-)
diff --git a/R/render_report.R b/R/render_report.R
index 1b3e783..005c03f 100644
--- a/R/render_report.R
+++ b/R/render_report.R
@@ -41,7 +41,7 @@ render_report <- function(input,
on.exit({
unlink(file.path(input, c(".Rprofile", "templates")),
recursive = TRUE)
- })
+ }, add = TRUE)
args <- list(
input = file.path(input, input_index),
output_format = output_format,
diff --git a/tests/testthat/test-render_reports.R b/tests/testthat/test-render_reports.R
index 2181586..186428a 100644
--- a/tests/testthat/test-render_reports.R
+++ b/tests/testthat/test-render_reports.R
@@ -1,4 +1,5 @@
path <- helper_create_fairify()
+
dfC <-
expand.grid(
template = list.dirs(pkg_sys("templates"), full.names = FALSE)[-1],
@@ -19,6 +20,9 @@ mapply(
lang = dfC$lang,
MoreArgs = list(path = path)
)
+
+owd <- getwd()
+
render_reports(reports_dir = file.path(path, "reports"),
output_format = "bookdown::gitbook")
@@ -44,4 +48,8 @@ render_reports(reports_dir = file.path(path, "reports"),
output_format = "bookdown::pdf_book")
expect_index("report.pdf")
+test_that("working directory is unchanged #8", {
+ expect_equal(getwd(), owd)
+})
+
unlink(path, recursive = TRUE)
--
GitLab