fix issue #1672

paul-buerkner · Sep 12, 2024 · ab26404 · ab26404
1 parent a3b38f3
commit ab26404
Showing 1 changed file with 5 additions and 0 deletions.
diff --git a/R/priorsense.R b/R/priorsense.R
@@ -59,6 +59,11 @@ log_lik_draws.brmsfit <- function(x) {
 
 #' @exportS3Method priorsense::log_prior_draws
 log_prior_draws.brmsfit <- function(x, log_prior_name = "lprior") {
+  stopifnot(length(log_prior_name) == 1)
+  if (!log_prior_name %in% variables(x)) {
+    warning2("Variable '", log_prior_name, "' was not found. ",
+             "Perhaps you used normalize = FALSE?")
+  }
   posterior::subset_draws(
     posterior::as_draws_array(x),
     variable = log_prior_name