From 88c2b162464eac30536eb0444ee953dba846b549 Mon Sep 17 00:00:00 2001
From: Joe Cheng <joe@posit.co>
Date: Thu, 5 Dec 2024 17:29:25 -0800
Subject: [PATCH] Use more specific attribute name

Co-authored-by: Carson Sievert <cpsievert1@gmail.com>
---
 R/conditions.R | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/R/conditions.R b/R/conditions.R
index 25f74d7f5..39519ed5c 100644
--- 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
 }