Allow NULL domain with grouped packer

mrc-ide · Oct 29, 2024 · f5ccabd · f5ccabd
1 parent 070b112
commit f5ccabd
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 2 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -1,6 +1,6 @@
 Package: monty
 Title: Monte Carlo Models
-Version: 0.2.23
+Version: 0.2.24
 Authors@R: c(person("Rich", "FitzJohn", role = c("aut", "cre"),
                     email = "[email protected]"),
              person("Wes", "Hinsley", role = "aut"),

diff --git a/R/domain.R b/R/domain.R
@@ -26,11 +26,13 @@
 ##' monty_domain_expand(rbind(x = c(0, 1), "x[2]" = c(0, Inf)), packer)
 ##' monty_domain_expand(rbind(x = c(0, 1), "y" = c(0, Inf)), packer)
 monty_domain_expand <- function(domain, packer) {
-  assert_is(packer, "monty_packer")
+  assert_is(packer, c("monty_packer", "monty_packer_grouped"))
   if (is.null(domain)) {
     return(domain)
   }
 
+  assert_is(packer, "monty_packer")
+
   if (!is.matrix(domain)) {
     cli::cli_abort("Expected 'domain' to be a matrix",
                    arg = "domain")