mirror of
https://github.com/agdamsbo/REDCapCAST.git
synced 2024-10-30 03:21:53 +01:00
34 lines
1.2 KiB
R
34 lines
1.2 KiB
R
test_that("redcap_wider() returns expected output", {
|
|
list <- list(data.frame(record_id = c(1,2,1,2), redcap_event_name = c("baseline", "baseline", "followup", "followup"), age = c(25,26,27,28)),
|
|
data.frame(record_id = c(1,2), redcap_event_name = c("baseline", "baseline"), gender = c("male", "female")))
|
|
|
|
expect_equal(redcap_wider(list),
|
|
data.frame(record_id = c(1,2),
|
|
age_baseline = c(25,26),
|
|
age_followup = c(27,28),
|
|
gender = c("male","female")))
|
|
})
|
|
|
|
|
|
# Using test data
|
|
|
|
# Set up the path and data -------------------------------------------------
|
|
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] > "",])
|
|
list <-
|
|
with(redcap, REDCap_split(records, metadata, forms = "all"))
|
|
|
|
wide_ds <- redcap_wider(list)
|
|
|
|
test_that("redcap_wider() returns wide output from CSV",{
|
|
expect_equal(ncol(wide_ds),171)
|
|
})
|
|
|
|
|