update.brmsfit: better validate 'backend'

paul-buerkner · Apr 6, 2021 · 76fcc83 · 76fcc83
1 parent 80dc972
commit 76fcc83
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/R/update.R b/R/update.R
@@ -170,6 +170,7 @@ update.brmsfit <- function(object, formula., newdata = NULL,
   dots$control[names(control)] <- control
 
   if (is.null(recompile)) {
+    dots$backend <- match.arg(dots$backend, backend_choices())
     # only recompile if new and old stan code do not match
     new_stancode <- suppressMessages(do_call(make_stancode, dots))
     # stan code may differ just because of the version number (#288)