mirror of
https://github.com/agdamsbo/REDCapCAST.git
synced 2024-11-22 13:30:23 +01:00
58 lines
1.6 KiB
R
58 lines
1.6 KiB
R
|
|
|
|
# Global variables --------------------------------------------------------
|
|
|
|
# Cars
|
|
metadata <-
|
|
jsonlite::fromJSON(get_data_location("ExampleProject_metadata.json"))
|
|
|
|
records <-
|
|
jsonlite::fromJSON(get_data_location("ExampleProject_records.json"))
|
|
|
|
redcap_output_json <- REDCap_split(records, metadata, forms = "all")
|
|
|
|
# Longitudinal
|
|
file_paths <- sapply(
|
|
c(records = "WARRIORtestForSoftwa_DATA_2018-06-21_1431.csv",
|
|
metadata = "WARRIORtestForSoftwareUpgrades_DataDictionary_2018-06-21.csv"),
|
|
get_data_location
|
|
)
|
|
|
|
redcap <- lapply(file_paths, read.csv, stringsAsFactors = FALSE)
|
|
redcap[["metadata"]] <- with(redcap, metadata[metadata[, 1] > "",])
|
|
redcap_output_long <-
|
|
with(redcap, REDCap_split(records, metadata, forms = "all"))
|
|
redcap_long_names <- names(redcap[[1]])
|
|
|
|
# Tests -------------------------------------------------------------------
|
|
|
|
test_that("Each form is an element in the list", {
|
|
expect_length(redcap_output_json, 3L)
|
|
expect_identical(names(redcap_output_json),
|
|
c("motor_trend_cars", "grouping", "sale"))
|
|
|
|
})
|
|
|
|
test_that("All variables land somewhere", {
|
|
expect_true(setequal(names(records), Reduce(
|
|
"union", sapply(redcap_output_json, names)
|
|
)))
|
|
|
|
})
|
|
|
|
|
|
test_that("Primary table name is ignored", {
|
|
expect_identical(REDCap_split(records, metadata, "HELLO", "all"),
|
|
redcap_output_json)
|
|
})
|
|
|
|
test_that("Supports longitudinal data", {
|
|
# setdiff(redcap_long_names, Reduce("union", sapply(redcap_output_long, names)))
|
|
## [1] "informed_consent_and_addendum_timestamp"
|
|
|
|
expect_true(setequal(redcap_long_names, Reduce(
|
|
"union", sapply(redcap_output_long, names)
|
|
)))
|
|
|
|
})
|