Fallback to archive

nlmixr2 · Jan 31, 2024 · 6f97fc5 · 6f97fc5
1 parent 39e3d35
commit 6f97fc5
Showing 1 changed file with 2 additions and 1 deletion.
diff --git 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)
   }