From 11d04a5468211d9c36e7ff15ba04e69f80353dfa Mon Sep 17 00:00:00 2001
From: I-Hsuan Lin <9032946+ycl6@users.noreply.github.com>
Date: Thu, 12 Dec 2024 17:38:21 +0000
Subject: [PATCH] Workaround for large object size

---
 R/globals.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/R/globals.R b/R/globals.R
index 15cb7621..b35afde6 100644
--- a/R/globals.R
+++ b/R/globals.R
@@ -357,7 +357,7 @@ getGlobalsAndPackages <- function(expr, envir = parent.frame(), tweak = tweakExp
       sizes <- lapply(globals, FUN = objectSize)
       sizes <- unlist(sizes, use.names = TRUE)
       total_size <- sum(sizes, na.rm = TRUE)
-      attr(globals, "total_size") <- total_size
+      attr(globals, "total_size") <- as.numeric(total_size)
       msg <- summarize_size_of_globals(globals, sizes = sizes,
                                        maxSize = maxSize, exprOrg = exprOrg,
                                        debug = debug)