mirror of
https://github.com/agdamsbo/REDCapCAST.git
synced 2024-11-22 21:40:23 +01:00
11 lines
575 B
R
11 lines
575 B
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_long = c(25,26),
|
||
|
|
age_followup_long = c(27,28),
|
||
|
|
gender = c("male","female")))
|
||
|
|
})
|