From 6f97fc5fbad7c370ae1eafd7b161d7e494f73627 Mon Sep 17 00:00:00 2001
From: "Matthew L. Fidler" <matthew.fidler@gmail.com>
Date: Wed, 31 Jan 2024 07:47:16 -0600
Subject: [PATCH] Fallback to archive

---
 R/ui.R | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/R/ui.R b/R/ui.R
index 9cc723fa5..d0f20defe 100644
--- a/R/ui.R
+++ b/R/ui.R
@@ -445,7 +445,8 @@ rxUiDecompress <- function(ui) {
 rxUiCompress <- function(ui) {
   if (!inherits(ui, "rxUi")) return(ui)
   if (is.environment(ui)) {
-    .ret <- qs::qserialize(ui, preset="fast")
+    .ret <- try(qs::qserialize(ui, preset="fast"), silent=TRUE)
+    if (inherits(.ret, "try-error")) .ret <- qs::qserialize(ui, preset="archive")
     class(.ret) <- c("rxUi", "raw")
     return(.ret)
   }