andreas/REDCapCAST
1
0
Fork 0
mirror of https://github.com/agdamsbo/REDCapCAST.git synced 2026-06-21 05:59:07 +02:00
Code Issues Projects Releases Packages Wiki Activity

trying to overcome error messagein github actions by moving R package to root.

Browse source
This commit is contained in:
AG Damsbo 2022-12-21 08:29:00 +01:00
commit 582a481942
33 changed files with 1 additions and 1276 deletions
Download patch file Download diff file Expand all files Collapse all files

17
tests/testthat/test-longitudinal.R Normal file
View file

@ -0,0 +1,17 @@
context("Longitudinal data")
test_that("CSV export matches reference", {
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 <- with(redcap, REDCap_split(records, metadata))
expect_known_hash(redcap_output, "0934bcb292")
})