forked from SwissClinicalTrialOrganisation/secuTrialR
-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathtest-write_secuTrial.R
82 lines (71 loc) · 4.33 KB
/
test-write_secuTrial.R
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
context("write to other format")
skip_on_cran()
sdat <- read_secuTrial_raw(system.file("extdata", "sT_exports", "snames",
"s_export_CSV-xls_CTU05_short_miss_en_utf8.zip",
package = "secuTrialR"))
ldat <- read_secuTrial_raw(system.file("extdata", "sT_exports", "lnames",
"s_export_CSV-xls_CTU05_long_miss_en_utf8.zip",
package = "secuTrialR"))
tdir <- tempdir()
test_that("writing", {
expect_error(write_secuTrial(sdat, path = tdir, format = "dta"), regexp = NA)
expect_error(write_secuTrial(sdat, path = tdir, format = "sav"), regexp = NA)
expect_error(write_secuTrial(sdat, path = tdir, format = "xpt"), regexp = NA)
expect_error(write_secuTrial(ldat, path = tdir, format = "dta"), regexp = NA)
expect_error(write_secuTrial(ldat, path = tdir, format = "sav"), regexp = NA)
expect_error(write_secuTrial(ldat, path = tdir, format = "xpt"), regexp = NA)
})
test_that("files exist", {
expect_true(file.exists(file.path(tdir, paste0("treatment", ".dta"))))
expect_true(file.exists(file.path(tdir, paste0("treatment", ".sav"))))
expect_true(file.exists(file.path(tdir, paste0("treatment", ".xpt"))))
expect_false(file.exists(file.path(tdir, paste0("cn", ".dta"))))
expect_false(file.exists(file.path(tdir, paste0("cn", ".sav"))))
expect_false(file.exists(file.path(tdir, paste0("cn", ".xpt"))))
expect_true(file.exists(file.path(tdir, paste0("ctu05treatment", ".dta"))))
expect_true(file.exists(file.path(tdir, paste0("ctu05treatment", ".sav"))))
expect_true(file.exists(file.path(tdir, paste0("ctu05treatment", ".xpt"))))
expect_false(file.exists(file.path(tdir, paste0("casenodes", ".dta"))))
expect_false(file.exists(file.path(tdir, paste0("casenodes", ".sav"))))
expect_false(file.exists(file.path(tdir, paste0("casenodes", ".xpt"))))
})
test_that("writing meta", {
expect_error(write_secuTrial(sdat, path = tdir, format = "dta", metadata = TRUE), regexp = NA)
expect_error(write_secuTrial(sdat, path = tdir, format = "sav", metadata = TRUE), regexp = NA)
expect_error(write_secuTrial(sdat, path = tdir, format = "xpt", metadata = TRUE), regexp = NA)
expect_error(write_secuTrial(ldat, path = tdir, format = "dta", metadata = TRUE), regexp = NA)
expect_error(write_secuTrial(ldat, path = tdir, format = "sav", metadata = TRUE), regexp = NA)
expect_error(write_secuTrial(ldat, path = tdir, format = "xpt", metadata = TRUE), regexp = NA)
})
test_that("files exist", {
expect_true(file.exists(file.path(tdir, paste0("treatment", ".dta"))))
expect_true(file.exists(file.path(tdir, paste0("treatment", ".sav"))))
expect_true(file.exists(file.path(tdir, paste0("treatment", ".xpt"))))
expect_true(file.exists(file.path(tdir, paste0("cn", ".dta"))))
expect_true(file.exists(file.path(tdir, paste0("cn", ".sav"))))
expect_true(file.exists(file.path(tdir, paste0("cn", ".xpt"))))
expect_true(file.exists(file.path(tdir, paste0("ctu05treatment", ".dta"))))
expect_true(file.exists(file.path(tdir, paste0("ctu05treatment", ".sav"))))
expect_true(file.exists(file.path(tdir, paste0("ctu05treatment", ".xpt"))))
expect_true(file.exists(file.path(tdir, paste0("casenodes", ".dta"))))
expect_true(file.exists(file.path(tdir, paste0("casenodes", ".sav"))))
expect_true(file.exists(file.path(tdir, paste0("casenodes", ".xpt"))))
})
# test file content
write_secuTrial(sdat, format = "dta", path = tdir)
write_secuTrial(sdat, format = "sav", path = tdir)
write_secuTrial(sdat, format = "xpt", path = tdir)
sdat_dta_bl <- read_dta(paste0(tdir, "/baseline.dta"))
sdat_sav_bl <- read_sav(paste0(tdir, "/baseline.sav"))
sdat_xpt_bl <- read_xpt(paste0(tdir, "/baseline.xpt"))
test_that("Baseline weight data is equal exist", {
expect_true(all.equal(as.vector(sdat_dta_bl$weight), as.vector(sdat_sav_bl$weight)))
expect_true(all.equal(as.vector(sdat_dta_bl$weight), as.vector(sdat_xpt_bl$weight)))
expect_true(all.equal(as.vector(sdat_dta_bl$weight), as.vector(sdat$baseline$weight)))
expect_true(all.equal(as.vector(sdat_dta_bl$weight), as.vector(ldat$ctu05baseline$weight)))
})
# test error catch for non-included formats
test_that("Format illegal", {
expect_error(write_secuTrial(sdat, format = "thatsnotit", path = tdir))
expect_error(write_secuTrial(sdat, format = "sas", path = tdir))
})