Test import_sdtm

humanpred · Feb 16, 2025 · dc25d4d · dc25d4d
1 parent 9b6114e
commit dc25d4d
Show file tree

Hide file tree

Showing 4 changed files with 23 additions and 0 deletions.
diff --git a/R/import_sdtm.R b/R/import_sdtm.R
@@ -22,6 +22,7 @@
 import_sdtm <- function(path,
                         extension_choice = c(".sas7bdat", ".xpt"),
                         ignore_case = TRUE,
+                        auto_supp = FALSE,
                         ...) {
   stopifnot(
     is.character(path),
@@ -54,6 +55,11 @@ import_sdtm <- function(path,
     )
     ret <- append_no_duplicate_names(ret, tmp_ret, method=stop)
   }
+
+  if (auto_supp) {
+    browser()
+    stop()
+  }
   ret
 }
 

diff --git a/tests/testthat/example-sdtm/dm.xpt b/tests/testthat/example-sdtm/dm.xpt
diff --git a/tests/testthat/example-sdtm/suppdm.xpt b/tests/testthat/example-sdtm/suppdm.xpt
diff --git a/tests/testthat/test-import_sdtm.R b/tests/testthat/test-import_sdtm.R
@@ -0,0 +1,17 @@
+# This is how the example SDTM data were created
+# rio::export(x = pharmaversesdtm::dm, file = test_path("example-sdtm/dm.xpt"))
+# rio::export(x = pharmaversesdtm::suppdm, file = test_path("example-sdtm/suppdm.xpt"))
+
+test_that("import_sdtm", {
+  # Automatically import a directory
+  expect_message(
+    import_sdtm(path = test_path("example-sdtm")),
+    regexp = "Detected domain SUPPDM from data."
+  )
+
+  # Import a single file
+  expect_message(
+    import_sdtm(path = test_path("example-sdtm/dm.xpt")),
+    regexp = "Detected domain DM from data."
+  )
+})