fixed test-trialmaster-simple.R

DanChaltiel · DanChaltiel · commit 5a967919af03 · 2026-01-10T14:36:59.000+01:00
diff --git a/tests/testthat/_snaps/trialmaster-simple.md b/tests/testthat/_snaps/trialmaster-simple.md
@@ -1,5 +1,9 @@
 # Read a TM archive
 
+    Code
+      getOption("width")
+    Output
+      [1] 125
     Code
       filename = test_path("CRF_Dan_Export_SAS_XPORT_2022_08_25_15_16.zip")
       w = read_trialmaster(filename, use_cache = FALSE, verbose = 9)
@@ -29,7 +33,7 @@
     Code
       w$.lookup
     Output
-      ── Lookup table - CRF (extraction of 2022-08-25) - EDCimport v0.0.0 ────────────────────────────────────────────────────
+      ── Lookup table - CRF (extraction of 2022-08-25) - EDCimport v0.0.0 ─────────────────────────────────────────────────────────
         dataset  nrow  ncol  n_id rows_per_id crfname                       
         <chr>   <dbl> <dbl> <int>       <dbl> <chr>                         
       1 site        1    33     0          NA Trial Site Setup & Information
diff --git a/tests/testthat/test-trialmaster-simple.R b/tests/testthat/test-trialmaster-simple.R
@@ -14,6 +14,8 @@ test_that("Read a TM archive", {
       str_replace_all("v(\\d+\\.?)+", "v0.0.0") #EDCimport version
   }
   expect_snapshot(transform=f, {
+    getOption("width")
+    
     #read
     filename = test_path("CRF_Dan_Export_SAS_XPORT_2022_08_25_15_16.zip")
     w = read_trialmaster(filename, use_cache=FALSE, verbose=9)

Original file line number	Diff line number	Diff line change
`@@ -14,6 +14,8 @@ test_that("Read a TM archive", {`
`14`	`14`	`str_replace_all("v(\\d+\\.?)+", "v0.0.0") #EDCimport version`
`15`	`15`	`}`
`16`	`16`	`expect_snapshot(transform=f, {`
	`17`	`+ getOption("width")`
	`18`	`+`
`17`	`19`	`#read`
`18`	`20`	`filename = test_path("CRF_Dan_Export_SAS_XPORT_2022_08_25_15_16.zip")`
`19`	`21`	`w = read_trialmaster(filename, use_cache=FALSE, verbose=9)`