From 7655742ce4eadccafce45639e8c4590408a25776 Mon Sep 17 00:00:00 2001
From: "Matthew L. Fidler" <matthew.fidler@gmail.com>
Date: Thu, 11 Jan 2024 07:52:36 -0600
Subject: [PATCH] Add fast compression

---
 DESCRIPTION | 2 +-
 NEWS.md     | 6 ++++++
 R/ui.R      | 2 +-
 3 files changed, 8 insertions(+), 2 deletions(-)

diff --git a/DESCRIPTION b/DESCRIPTION
index ccec6811e..6bb6491e6 100644
--- a/DESCRIPTION
+++ b/DESCRIPTION
@@ -1,5 +1,5 @@
 Package: rxode2
-Version: 2.1.1
+Version: 2.1.1.9000
 Title: Facilities for Simulating from ODE-Based Models
 Authors@R: c(
    person("Matthew L.","Fidler",
diff --git a/NEWS.md b/NEWS.md
index 500ef9d5a..b5b8b4d43 100644
--- a/NEWS.md
+++ b/NEWS.md
@@ -1,3 +1,9 @@
+# rxode2 (development version)
+
+## Other changes
+
+- `rxUi` compression now defaults to fast compression
+
 # rxode2 2.1.0
 
 ## Breaking changes
diff --git a/R/ui.R b/R/ui.R
index a3c91cf2a..9cc723fa5 100644
--- a/R/ui.R
+++ b/R/ui.R
@@ -445,7 +445,7 @@ rxUiDecompress <- function(ui) {
 rxUiCompress <- function(ui) {
   if (!inherits(ui, "rxUi")) return(ui)
   if (is.environment(ui)) {
-    .ret <- qs::qserialize(ui)
+    .ret <- qs::qserialize(ui, preset="fast")
     class(.ret) <- c("rxUi", "raw")
     return(.ret)
   }