condition message

seroanalytics · Aug 21, 2024 · 08b7443 · 08b7443
1 parent 6d2f818
commit 08b7443
Showing 1 changed file with 5 additions and 2 deletions.
diff --git a/R/utils.R b/R/utils.R
@@ -1,10 +1,13 @@
 with_warnings <- function(expr) {
   my_warnings <- NULL
+
   w_handler <- function(w) {
     my_warnings <<- c(my_warnings, list(w))
     invokeRestart("muffleWarning")
   }
+
   val <- withCallingHandlers(expr, warning = w_handler)
-  list(output = val, warnings = lapply(my_warnings,
-                                       function(w) jsonlite::unbox(w$message)))
+  list(output = val,
+       warnings = lapply(my_warnings,
+                         function(w) jsonlite::unbox(conditionMessage(w))))
 }