Nothing
tests/testthat/test-cdisc_report.R
In clinCompare: Dataset Comparison with 'CDISC' Validation for Clinical Trial Data
test_that("generate_cdisc_report works with text format", {
dm1 <- data.frame(
STUDYID = "STUDY01", DOMAIN = "DM", USUBJID = "SUBJ01",
SUBJID = "01", RFSTDTC = "2024-01-01", RFENDTC = "2024-06-01",
SITEID = "SITE01", SEX = "M", AGE = 45, AGEU = "YEARS",
ARMCD = "TRT", ARM = "Treatment", COUNTRY = "USA",
ACTARMCD = "TRT", ACTARM = "Treatment",
stringsAsFactors = FALSE
)
dm2 <- dm1
dm2$AGE <- 46
results <- cdisc_compare(dm1, dm2, domain = "DM", standard = "SDTM")
expect_no_error(
capture.output(generate_cdisc_report(results, output_format = "text"))
)
})
test_that("generate_cdisc_report creates HTML file", {
dm1 <- data.frame(
STUDYID = "STUDY01", DOMAIN = "DM", USUBJID = "SUBJ01",
SUBJID = "01", RFSTDTC = "2024-01-01", RFENDTC = "2024-06-01",
SITEID = "SITE01", SEX = "M", AGE = 45, AGEU = "YEARS",
ARMCD = "TRT", ARM = "Treatment", COUNTRY = "USA",
ACTARMCD = "TRT", ACTARM = "Treatment",
stringsAsFactors = FALSE
)
dm2 <- dm1
results <- cdisc_compare(dm1, dm2, domain = "DM", standard = "SDTM")
tmp_file <- tempfile(fileext = ".html")
generate_cdisc_report(results, output_format = "html", file_name = tmp_file)
expect_true(file.exists(tmp_file))
content <- readLines(tmp_file)
expect_true(any(grepl("<html>", content, ignore.case = TRUE)))
unlink(tmp_file)
})
test_that("print_cdisc_validation produces output", {
dm <- data.frame(
STUDYID = "STUDY01", DOMAIN = "DM", USUBJID = "SUBJ01",
SUBJID = "01", RFSTDTC = "2024-01-01", RFENDTC = "2024-06-01",
SITEID = "SITE01", SEX = "M",
ARMCD = "TRT", ARM = "Treatment", COUNTRY = "USA",
ACTARMCD = "TRT", ACTARM = "Treatment",
stringsAsFactors = FALSE
)
validation <- validate_cdisc(dm, domain = "DM", standard = "SDTM")
expect_message(print_cdisc_validation(validation))
})
Try the clinCompare package in your browser
Any scripts or data that you put into this service are public.
clinCompare documentation built on Feb. 19, 2026, 1:07 a.m.
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
test_that("generate_cdisc_report works with text format", {
dm1 <- data.frame(
STUDYID = "STUDY01", DOMAIN = "DM", USUBJID = "SUBJ01",
SUBJID = "01", RFSTDTC = "2024-01-01", RFENDTC = "2024-06-01",
SITEID = "SITE01", SEX = "M", AGE = 45, AGEU = "YEARS",
ARMCD = "TRT", ARM = "Treatment", COUNTRY = "USA",
ACTARMCD = "TRT", ACTARM = "Treatment",
stringsAsFactors = FALSE
)
dm2 <- dm1
dm2$AGE <- 46
results <- cdisc_compare(dm1, dm2, domain = "DM", standard = "SDTM")
expect_no_error(
capture.output(generate_cdisc_report(results, output_format = "text"))
)
})
test_that("generate_cdisc_report creates HTML file", {
dm1 <- data.frame(
STUDYID = "STUDY01", DOMAIN = "DM", USUBJID = "SUBJ01",
SUBJID = "01", RFSTDTC = "2024-01-01", RFENDTC = "2024-06-01",
SITEID = "SITE01", SEX = "M", AGE = 45, AGEU = "YEARS",
ARMCD = "TRT", ARM = "Treatment", COUNTRY = "USA",
ACTARMCD = "TRT", ACTARM = "Treatment",
stringsAsFactors = FALSE
)
dm2 <- dm1
results <- cdisc_compare(dm1, dm2, domain = "DM", standard = "SDTM")
tmp_file <- tempfile(fileext = ".html")
generate_cdisc_report(results, output_format = "html", file_name = tmp_file)
expect_true(file.exists(tmp_file))
content <- readLines(tmp_file)
expect_true(any(grepl("<html>", content, ignore.case = TRUE)))
unlink(tmp_file)
})
test_that("print_cdisc_validation produces output", {
dm <- data.frame(
STUDYID = "STUDY01", DOMAIN = "DM", USUBJID = "SUBJ01",
SUBJID = "01", RFSTDTC = "2024-01-01", RFENDTC = "2024-06-01",
SITEID = "SITE01", SEX = "M",
ARMCD = "TRT", ARM = "Treatment", COUNTRY = "USA",
ACTARMCD = "TRT", ACTARM = "Treatment",
stringsAsFactors = FALSE
)
validation <- validate_cdisc(dm, domain = "DM", standard = "SDTM")
expect_message(print_cdisc_validation(validation))
})
Try the clinCompare package in your browser
Any scripts or data that you put into this service are public.
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
Embedding an R snippet on your website
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.