REDCapCAST/tests/testthat/data/create-ref-data.R

# Setup -------------------------------------------------------------------

devtools::load_all()

library(digest)
library(magrittr)
library(jsonlite)


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


# 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

# REDCap R Export ---------------------------------------------------------

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

# Longitudinal data from @pbchase; Issue #7 -------------------------------

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
)

redcap <- lapply(file_paths, read.csv, stringsAsFactors = FALSE)
redcap[["metadata"]] <- with(redcap, metadata[metadata[,1] > "",])
with(redcap, REDCap_split(records, metadata)) %>% digest