add test

easystats · Sep 18, 2024 · 28c881f · 28c881f
1 parent 700311f
commit 28c881f
Show file tree

Hide file tree

Showing 3 changed files with 22 additions and 2 deletions.
diff --git a/R/check_dag.R b/R/check_dag.R
@@ -147,7 +147,14 @@
 #'   exposure = ~x,
 #'   adjusted = ~ b + c
 #' )
-#' dag
+#'
+#' # if not provided, "outcome" is taken from first formula, same for "exposure"
+#' # thus, we can simplify the above expression to
+#' check_dag(
+#'   y ~ x + b + c,
+#'   x ~ b,
+#'   adjusted = ~ b + c
+#' )
 #'
 #' # use specific layout for the DAG
 #' dag <- check_dag(

diff --git a/man/check_dag.Rd b/man/check_dag.Rd
diff --git a/tests/testthat/test-check_dag.R b/tests/testthat/test-check_dag.R
@@ -185,4 +185,10 @@ test_that("check_dag, formula-interface", {
     adjusted = ~ b + c
   )
   expect_identical(attributes(dag)$adjusted, c("b", "c"))
+  dag2 <- check_dag(
+    y ~ x + b + c,
+    x ~ b,
+    adjusted = ~ b + c
+  )
+  expect_identical(dag, dag2)
 })