From f1dd786938ed0b0ba0b376c2d508d7b087e686a0 Mon Sep 17 00:00:00 2001
From: "Matthew L. Fidler" <matthew.fidler@gmail.com>
Date: Wed, 17 Jan 2024 14:49:36 -0600
Subject: [PATCH] Use fast compression for rxode2 model variables

---
 src/qs.cpp | 6 ++----
 1 file changed, 2 insertions(+), 4 deletions(-)

diff --git a/src/qs.cpp b/src/qs.cpp
index 22f59f0c..2503320c 100644
--- a/src/qs.cpp
+++ b/src/qs.cpp
@@ -44,9 +44,7 @@ Rcpp::CharacterVector rxQs(SEXP const x) {
   loadQs();
   Rcpp::Function base91_encode = Rcpp::as<Rcpp::Function>(qsNs["base91_encode"]);
   Rcpp::Function qserialize = Rcpp::as<Rcpp::Function>(qsNs["qserialize"]);
-  return base91_encode(qserialize(x, Rcpp::CharacterVector::create("high"), Rcpp::CharacterVector::create("zstd"),
-				    Rcpp::IntegerVector::create(22),
-				    Rcpp::IntegerVector::create(15), Rcpp::LogicalVector::create(true)));
+  return base91_encode(qserialize(x, Rcpp::CharacterVector::create("fast")));
 }
 
 //[[Rcpp::export]]
@@ -54,7 +52,7 @@ SEXP rxQr(const std::string& encoded_string) {
   loadQs();
   Rcpp::Function base91_decode = Rcpp::as<Rcpp::Function>(qsNs["base91_decode"]);
   Rcpp::Function qdeserialize = Rcpp::as<Rcpp::Function>(qsNs["qdeserialize"]);
-  return qdeserialize(base91_decode(Rcpp::wrap(encoded_string)), false, false);
+  return qdeserialize(base91_decode(Rcpp::wrap(encoded_string)));
 }