From 0dc431e8c5f499e65ec17f519ce55372dd049244 Mon Sep 17 00:00:00 2001
From: yun <yunyunpp96@outlook.com>
Date: Thu, 27 Jun 2024 01:50:12 +0800
Subject: [PATCH] use `set_ht_opt`

---
 R/utils-complexheatmap.R | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/R/utils-complexheatmap.R b/R/utils-complexheatmap.R
index af358b9..a816fcd 100644
--- 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)
 }