update defaults; test for any violation w/ err message

Author: JeffreyCHoover

Diff for: R/model-evaluation.R

@@ -117,15 +117,15 @@ NULL
 
 #' @export
 #' @rdname model_evaluation
-add_criterion <- function(x, criterion = c("loo", "waic", "aic", "bic"),
+add_criterion <- function(x, criterion = c("loo", "waic"),
                           overwrite = FALSE, save = TRUE, ..., r_eff = NA) {
   model <- check_model(x, required_class = "measrfit", name = "x")
-  if (model$method != "mcmc" & criterion %in% c("loo", "waic")) {
+  if (any(model$method != "mcmc" & criterion %in% c("loo", "waic"))) {
     rlang::abort("error_bad_method",
                  message = glue::glue("LOO and WAIC model criteria are only ",
                                       "available for models estimated with ",
                                       "`method = \"mcmc\"`."))
-  } else if (model$method != "optim" & criterion %in% c("aic", "bic")) {
+  } else if (any(model$method != "optim" & criterion %in% c("aic", "bic"))) {
     rlang::abort("error_bad_method",
                  message = glue::glue("AIC and BIC model criteria are only ",
                                       "available for models estimated with ",