fix(with_epoxy_engine): Don't use withr

gadenbuie · Jun 11, 2023 · a444fd4 · a444fd4
1 parent 4957929
commit a444fd4
Show file tree

Hide file tree

Showing 2 changed files with 16 additions and 7 deletions.
diff --git a/R/epoxy.R b/R/epoxy.R
@@ -184,14 +184,9 @@ epoxy_latex <- function(
 }
 
 with_epoxy_engine <- function(engine, expr) {
-	local_epoxy_engine(engine)
-	expr
-}
-
-local_epoxy_engine <- function(engine = "md", .local_envir = parent.frame()) {
-	withr::local_options(
+	with_options(
 		list(epoxy.engine = engine_validate_alias(engine)),
-		.local_envir = .local_envir
+		expr
 	)
 }
 

diff --git a/tests/testthat/test-epoxy.R b/tests/testthat/test-epoxy.R
@@ -154,3 +154,17 @@ describe("epoxy_transform_set()", {
 		)
 	})
 })
+
+test_that("with_epoxy_engine()", {
+	old_opts <- options(epoxy.engine = NULL)
+	on.exit(options(old_opts))
+
+	expect_equal(with_epoxy_engine("html", engine_current()), "html")
+	expect_null(engine_current())
+
+	expect_equal(with_epoxy_engine("markdown", engine_current()), "md")
+	expect_null(engine_current())
+
+	expect_equal(with_epoxy_engine("latex", engine_current()), "latex")
+	expect_null(engine_current())
+})