Tidying commit using testthat(3e) snapshot feature to unit test the e…

…fficacy models in pilot3utils.

tests/testthat/_snaps/eff_models.md

@@ -17,3 +17,38 @@
       9 "  95% CI"                            <NA>                      "(-2.2;1.1)"  
       # ... with abbreviated variable name 1: `var1_Xanomeline High Dose`
 
+---
+
+    WAoAAAACAAQCAwACAwAAAAMTAAAAAwAAABAAAAAJAAQACQAAAB1wLXZhbHVlKERvc2UgUmVz
+    cG9uc2UpIFsxXVsyXQAEAAkAAAAAAAQACQAAAB1wLXZhbHVlKFhhbiAtIFBsYWNlYm8pIFsx
+    XVszXQAEAAkAAAAXICBEaWZmIG9mIExTIE1lYW5zIChTRSkABAAJAAAACCAgOTUlIENJAAQA
+    CQAAAAAABAAJAAAAInAtdmFsdWUoWGFuIEhpZ2ggLSBYYW4gTG93KSBbMV1bM10ABAAJAAAA
+    FyAgRGlmZiBvZiBMUyBNZWFucyAoU0UpAAQACQAAAAggIDk1JSBDSQAAABAAAAAJAAQACQAA
+    AAJOQQAEAAkAAAACTkEABAAJAAAADCAgIDAuNTY5ICAgIAAEAAkAAAALLTAuNSAoMC44MikA
+    BAAJAAAACigtMi4xOzEuMSkABAAJAAAAAAAEAAkAAAACTkEABAAJAAAAAk5BAAQACQAAAAJO
+    QQAAABAAAAAJAAQACQAAAAwgICAwLjI0NSAgICAABAAJAAAAAAAEAAkAAAAMICAgMC4yMzMg
+    ICAgAAQACQAAAAstMS4wICgwLjg0KQAEAAkAAAAKKC0yLjc7MC43KQAEAAkAAAAAAAQACQAA
+    AAwgICAwLjUyMCAgICAABAAJAAAACy0wLjUgKDAuODQpAAQACQAAAAooLTIuMjsxLjEpAAAE
+    AgAAAAEABAAJAAAABWNsYXNzAAAAEAAAAAMABAAJAAAABnRibF9kZgAEAAkAAAADdGJsAAQA
+    CQAAAApkYXRhLmZyYW1lAAAEAgAAAAEABAAJAAAACXJvdy5uYW1lcwAAAA0AAAACgAAAAP//
+    //cAAAQCAAAAAQAEAAkAAAAFbmFtZXMAAAAQAAAAAwAEAAkAAAAJcm93X2xhYmVsAAQACQAA
+    ABl+dmFyMV9YYW5vbWVsaW5lIExvdyBEb3NlAAQACQAAABp+dmFyMV9YYW5vbWVsaW5lIEhp
+    Z2ggRG9zZQAAAP4=
+
+---
+
+    WAoAAAACAAQCAwACAwAAAAMTAAAAAwAAABAAAAAJAAQACQAAAB1wLXZhbHVlKERvc2UgUmVz
+    cG9uc2UpIFsxXVsyXQAEAAkAAAAAAAQACQAAAB1wLXZhbHVlKFhhbiAtIFBsYWNlYm8pIFsx
+    XVszXQAEAAkAAAAXICBEaWZmIG9mIExTIE1lYW5zIChTRSkABAAJAAAACCAgOTUlIENJAAQA
+    CQAAAAAABAAJAAAAInAtdmFsdWUoWGFuIEhpZ2ggLSBYYW4gTG93KSBbMV1bM10ABAAJAAAA
+    FyAgRGlmZiBvZiBMUyBNZWFucyAoU0UpAAQACQAAAAggIDk1JSBDSQAAABAAAAAJAAAACf//
+    //8AAAAJ/////wAEAAkAAAAMICAgMC41NjkgICAgAAQACQAAAAstMC41ICgwLjgyKQAEAAkA
+    AAAKKC0yLjE7MS4xKQAEAAkAAAAAAAAACf////8AAAAJ/////wAAAAn/////AAAAEAAAAAkA
+    BAAJAAAADCAgIDAuMjQ1ICAgIAAEAAkAAAAAAAQACQAAAAwgICAwLjIzMyAgICAABAAJAAAA
+    Cy0xLjAgKDAuODQpAAQACQAAAAooLTIuNzswLjcpAAQACQAAAAAABAAJAAAADCAgIDAuNTIw
+    ICAgIAAEAAkAAAALLTAuNSAoMC44NCkABAAJAAAACigtMi4yOzEuMSkAAAQCAAAAAQAEAAkA
+    AAAFbmFtZXMAAAAQAAAAAwAEAAkAAAAJcm93X2xhYmVsAAQACQAAABh2YXIxX1hhbm9tZWxp
+    bmUgTG93IERvc2UABAAJAAAAGXZhcjFfWGFub21lbGluZSBIaWdoIERvc2UAAAQCAAAAAQAE
+    AAkAAAAJcm93Lm5hbWVzAAAADQAAAAKAAAAA////9wAABAIAAAABAAQACQAAAAVjbGFzcwAA
+    ABAAAAADAAQACQAAAAZ0YmxfZGYABAAJAAAAA3RibAAEAAkAAAAKZGF0YS5mcmFtZQAAAP4=
+

tests/testthat/test-eff_models.r

@@ -3,6 +3,16 @@ test_that("Pilot3 can use the testthat 3e", {
   expect_true(TRUE)
 })
 test_that("efficacy models works", {
+  #use DESCRIPTION file imports/suggests packages for pilot3utils environment
+  adas <- haven::read_xpt("./adadas.xpt")
+  adas <- adas %>%
+    filter(
+      EFFFL == "Y",
+      ITTFL == "Y",
+      PARAMCD == "ACTOT",
+      ANL01FL == "Y"
+    )
+  model_portion <- efficacy_models(adas, "CHG", 24)
   .data_model_portion <- tibble::tribble(
     ~row_label, ~`~var1_Xanomeline Low Dose`, ~`~var1_Xanomeline High Dose`,
     "p-value(Dose Response) [1][2]", "NA", "   0.245    ",
@@ -15,5 +25,12 @@ test_that("efficacy models works", {
     "  Diff of LS Means (SE)", "NA", "-0.5 (0.84)",
     "  95% CI", "NA", "(-2.2;1.1)"
   )
+  expect_equal(efficacy_models(adas, "CHG", 24), model_portion)
+  expect_snapshot(efficacy_models(adas, "CHG", 24), dplyr::select(model_portion))
+  expect_length(efficacy_models(adas, "CHG", 24), 3)
+  expect_s3_class(model_portion, "tbl_df")
+  expect_s3_class(.data_model_portion, "tbl_df")
+  expect_snapshot_value(.data_model_portion, "serialize")
+  expect_snapshot_value(model_portion, "serialize")
   expect_length(.data_model_portion, 3)
 })