use .subset2

Yunuuuu · Jul 23, 2024 · cf70a32 · cf70a32
1 parent a6b9c83
commit cf70a32
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/R/htanno-.R b/R/htanno-.R
@@ -246,7 +246,9 @@ HtannoProto <- ggplot2::ggproto("HtannoProto",
 #' @export
 `$<-.HtannoProto` <- function(x, name, value) {
     if (.subset2(x, "isLock")) {
-        cli::cli_abort("{.fn {snake_class(x)}} is locked", call = x$call)
+        cli::cli_abort("{.fn {snake_class(x)}} is locked",
+            call = .subset2(x, "call")
+        )
     }
     assign(x = name, value = value, envir = x)
     invisible(x)