add local options helper

DESCRIPTION

@@ -27,14 +27,15 @@ Roxygen: list(markdown = TRUE)
 Imports:
     cli,
     fs,
+    options,
     purrr,
     rlang,
-    usethis
+    usethis,
+    withr
 Suggests: 
     rstudioapi,
     shinytest2,
-    testthat (>= 3.0.0),
-    withr
+    testthat (>= 3.0.0)
 Config/testthat/edition: 3
 Config/testthat/parallel: true
 Config/Needs/website: rmarkdown

NAMESPACE

@@ -1,6 +1,7 @@
 # Generated by roxygen2: do not edit by hand
 
 export(is_installed2)
+export(opt_set_local2)
 export(source_pef)
 export(transform_with_generated)
 export(use_ex_file)

R/options.R

@@ -0,0 +1,23 @@
+#' Helper to locally set options
+#'
+#' Combines options from [options] with [withr].
+#' Same as [options::opt_set_local], except based on [withr::defer] and friends.
+#'
+#' @param x An option name.
+#' @inheritParams options::opt_set
+#' @inheritParams withr::defer
+#' @keywords options helper
+#' @export
+opt_set_local2 <- function(x,
+                           value,
+                           envir = parent.frame(),
+                           priority = c("first", "last")) {
+  old <- options::opt_set(x = x, value = value, env = envir)
+  # cannot just extend withr::local_ here,
+  # because it has slightly different semantics
+  withr::defer(
+    options::opt_set(x, old, env = envir),
+    envir = envir,
+    priority = rlang::arg_match(priority)
+  )
+}

tests/testthat/test-options.R

@@ -0,0 +1,8 @@
+test_that("locally setting options works", {
+  options::define_option("foo", default = "bar")
+  expect_equal(options::opt("foo"), "bar")
+  opt_set_local2("foo", "baz")
+  expect_equal(options::opt("foo"), "baz")
+  withr::deferred_run()
+  expect_equal(options::opt("foo"), "bar")
+})