use set_ht_opt

Yunuuuu · Jun 26, 2024 · 0dc431e · 0dc431e
1 parent 1c29553
commit 0dc431e
Showing 1 changed file with 1 addition and 2 deletions.
diff --git a/R/utils-complexheatmap.R b/R/utils-complexheatmap.R
@@ -88,8 +88,7 @@ with_ht_opts <- function(opts, code) {
 #' @seealso [with_ht_opts]
 #' @export
 with_ht_verbose <- function(code, verbose = TRUE) {
- old <- ht_opt("verbose")
- ht_opt(verbose = verbose)
+ old <- set_ht_opt("verbose", verbose)
  on.exit(ht_opt(verbose = old))
  force(code)
 }