mirror of
https://github.com/agdamsbo/REDCapCAST.git
synced 2026-06-19 13:17:30 +02:00
new tests
This commit is contained in:
parent
2aa268f747
commit
9390735af3
2 changed files with 58 additions and 1 deletions
|
|
@ -1,3 +1,4 @@
|
|||
library(testthat)
|
||||
test_that("redcap_wider() returns expected output", {
|
||||
list <-
|
||||
list(
|
||||
|
|
@ -15,7 +16,7 @@ test_that("redcap_wider() returns expected output", {
|
|||
|
||||
expect_equal(
|
||||
redcap_wider(list),
|
||||
data.frame(
|
||||
dplyr::tibble(
|
||||
record_id = c(1, 2),
|
||||
age_baseline = c(25, 26),
|
||||
age_followup = c(27, 28),
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue