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

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

@@ -0,0 +1,49 @@
+# 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 <- sapply(
+  c(
+    records = "WARRIORtestForSoftwa_DATA_2018-06-21_1431.csv",
+    metadata = "WARRIORtestForSoftwareUpgrades_DataDictionary_2018-06-21.csv"
+  ), 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