fix

easystats · Aug 3, 2024 · addec14 · addec14
1 parent 09064a8
commit addec14
Show file tree

Hide file tree

Showing 3 changed files with 7 additions and 4 deletions.
diff --git a/NAMESPACE b/NAMESPACE
@@ -542,7 +542,7 @@ S3method(test_vuong,default)
 S3method(test_wald,ListNestedRegressions)
 S3method(test_wald,ListNonNestedRegressions)
 S3method(test_wald,default)
-export(as.dag.check_dag)
+export(as.dag)
 export(binned_residuals)
 export(check_autocorrelation)
 export(check_clusterstructure)

diff --git a/R/check_dag.R b/R/check_dag.R
@@ -205,7 +205,10 @@ check_dag.default <- function(...,
 
 #' @rdname check_dag
 #' @export
-as.dag.check_dag <- function(x, ...) {
+as.dag <- function(x, ...) {
+  if (!inherits(x, "check_dag")) {
+    insight::format_error("Input is not of class `check_dag.")
+  }
   cat(as.character(x))
 }
 

diff --git a/man/check_dag.Rd b/man/check_dag.Rd