Merge pull request #648 from nlmixr2/647-fast-gives-bad-alloc-occasio…

…nally Fallback to archive
nlmixr2 · Feb 7, 2024 · 4df2d59 · 4df2d59
2 parents 39e3d35 + 6f97fc5
commit 4df2d59
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)
   }