andreas/REDCapCAST
1
0
Fork 0
mirror of https://github.com/agdamsbo/REDCapCAST.git synced 2026-06-19 13:17:30 +02:00
Code Issues Projects Releases Packages Wiki Activity

linting

Browse source
This commit is contained in:
Andreas Gammelgaard Damsbo 2024-02-27 13:20:21 +01:00
commit 9e33057c06
32 changed files with 456 additions and 340 deletions
Download patch file Download diff file Expand all files Collapse all files

31
tests/testthat/data/create-ref-data.R
View file

@ -7,22 +7,23 @@ library(magrittr)
library(jsonlite)
ref_data_location <- function(x) file.path("tests","testthat","data", x)
ref_data_location <- function(x) file.path("tests", "testthat", "data", x)
# RCurl -------------------------------------------------------------------
REDCap_split(
ref_data_location("ExampleProject_records.json") %>% fromJSON,
ref_data_location("ExampleProject_metadata.json") %>% fromJSON
) %>% digest
ref_data_location("ExampleProject_records.json") %>% fromJSON(),
ref_data_location("ExampleProject_metadata.json") %>% fromJSON()
) %>% digest()
# Basic CSV ---------------------------------------------------------------
REDCap_split(
ref_data_location("ExampleProject_DATA_2018-06-07_1129.csv") %>% read.csv,
ref_data_location("ExampleProject_DataDictionary_2018-06-07.csv") %>% read.csv
) %>% digest
ref_data_location("ExampleProject_DATA_2018-06-07_1129.csv") %>% read.csv(),
ref_data_location("ExampleProject_DataDictionary_2018-06-07.csv") %>%
read.csv()
) %>% digest()
# REDCap R Export ---------------------------------------------------------
@ -30,10 +31,11 @@ source("tests/testthat/helper-ExampleProject_R_2018-06-07_1129.r")
REDCap_split(
ref_data_location("ExampleProject_DATA_2018-06-07_1129.csv") %>%
read.csv %>%
REDCap_process_csv,
ref_data_location("ExampleProject_DataDictionary_2018-06-07.csv") %>% read.csv
) %>% digest
read.csv() %>%
REDCap_process_csv(),
ref_data_location("ExampleProject_DataDictionary_2018-06-07.csv") %>%
read.csv()
) %>% digest()
# Longitudinal data from @pbchase; Issue #7 -------------------------------
@ -41,9 +43,10 @@ file_paths <- vapply(
c(
records = "WARRIORtestForSoftwa_DATA_2018-06-21_1431.csv",
metadata = "WARRIORtestForSoftwareUpgrades_DataDictionary_2018-06-21.csv"
), FUN.VALUE = "character", ref_data_location
),
FUN.VALUE = "character", ref_data_location
)
redcap <- lapply(file_paths, read.csv, stringsAsFactors = FALSE)
redcap[["metadata"]] <- with(redcap, metadata[metadata[,1] > "",])
with(redcap, REDCap_split(records, metadata)) %>% digest
redcap[["metadata"]] <- with(redcap, metadata[metadata[, 1] > "", ])
with(redcap, REDCap_split(records, metadata)) %>% digest()