Added default implementation for get_diagnostic_messages

hyunjimoon · Jun 8, 2024 · e1ac760 · e1ac760
1 parent 5ecd53f
commit e1ac760
Show file tree

Hide file tree

Showing 2 changed files with 8 additions and 0 deletions.
diff --git a/NAMESPACE b/NAMESPACE
@@ -54,6 +54,7 @@ S3method(get_diagnostic_messages,SBC_RStanOptimizing_diagnostics_summary)
 S3method(get_diagnostic_messages,SBC_nuts_diagnostics_summary)
 S3method(get_diagnostic_messages,SBC_results)
 S3method(get_diagnostic_messages,SBC_results_summary)
+S3method(get_diagnostic_messages,default)
 S3method(length,SBC_datasets)
 S3method(length,SBC_results)
 S3method(plot_contraction,SBC_results)

diff --git a/R/results.R b/R/results.R
@@ -1077,6 +1077,13 @@ get_diagnostic_messages <- function(x) {
 }
 
 
+#' @export
+#' @rdname get_diagnostic_messages
+get_diagnostic_messages.default <- function(x) {
+  SBC_diagnostic_messages(data.frame(message = character(0), ok = logical(0)))
+}
+
+
 #' Check diagnostics and issue warnings when those fail.
 #'
 #' @rdname check_all_SBC_diagnostics