Use more specific attribute name

Co-authored-by: Carson Sievert <[email protected]>
rstudio · Dec 6, 2024 · 88c2b16 · 88c2b16
1 parent d4f144d
commit 88c2b16
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/R/conditions.R b/R/conditions.R
@@ -131,7 +131,7 @@ captureStackTraces <- function(expr) {
 .globals$deepStack <- NULL
 
 getCallStackDigest <- function(callStack, warn = FALSE) {
-  dg <- attr(callStack, "digest", exact = TRUE)
+  dg <- attr(callStack, "shiny.stack.digest", exact = TRUE)
   if (!is.null(dg)) {
     return(dg)
   }
@@ -148,7 +148,7 @@ getCallStackDigest <- function(callStack, warn = FALSE) {
 }
 
 saveCallStackDigest <- function(callStack) {
-  attr(callStack, "digest") <- getCallStackDigest(callStack, warn = FALSE)
+  attr(callStack, "shiny.stack.digest") <- getCallStackDigest(callStack, warn = FALSE)
   callStack
 }