handle backend correctly in opts

epiforecasts · Apr 24, 2024 · 0dd32d4 · 0dd32d4
1 parent 1f5f6c0
commit 0dd32d4
Showing 1 changed file with 4 additions and 2 deletions.
diff --git a/R/opts.R b/R/opts.R
@@ -983,11 +983,13 @@ stan_opts <- function(object = NULL,
     } else {
       stop("`object` must be a stan model object")
     }
+  } else {
+    backend <- arg_match(backend, values = c("rstan", "cmdstanr"))
+    opts <- c(opts, list(backend = backend))
   }
   opts <- c(opts, list(
     object = object,
-    method = method,
-    backend = backend
+    method = method
   ))
   if (method == "sampling") {
     opts <- c(