"load_mcm run using sequential and parallel loading returns same results"

"load_med run using sequential and parallel loading returns same results"

Error in `if (length(res) == 0 || res == -1) {
    return(list(path = path, extension = ""))
}`: missing value where TRUE/FALSE needed

"load_mic for whether sequential and parallel loading returns same results with report"
"load_notes for whether sequential and parallel loading returns same results with original report"

"load_mrn run using sequential and parallel loading returns same results"

" run using sequential and parallel loading returns same results without report"
" run using sequential and parallel loading returns same results with report"
" run using sequential and parallel loading returns same results with original report"

"load_phy run using sequential and parallel loading returns same results"

Error in `split.default(v, sort(rep_len(1:nThread, length(v))))`: first argument must be a vector

## Description: Test load_prc() function
d_fname <- list.files(paste0(folder_raw, "LEGACY/"), full.names = TRUE)[grep("badprocedures.txt", list.files(paste0(folder_raw, "LEGACY/")), ignore.case = TRUE)]
d_s <- suppressMessages(load_prc(d_fname, nThread = 1))
d_fname <- list.files(folder_raw, full.names = TRUE)[grep("prc.txt", list.files(folder_raw), ignore.case = TRUE)]
d_p <- suppressMessages(load_prc(d_fname, nThread = 2))
test_that("load_prc run using sequential and parallel loading returns same results", {
if(OVERWRITE | !file.exists(paste0(folder_parse, "prc.csv"))) {data.table::fwrite(d_s, paste0(folder_parse, "prc.csv"))}
l_s <- data.table::fread(paste0(folder_parse, "prc.csv"), na.strings = "NA", strip.white = FALSE, colClasses = apply(d_s, 2, class))

"load_prc run using sequential and parallel loading returns same results"

"load_prv run using sequential and parallel loading returns same results"

"load_ptd run using sequential and parallel loading returns same results"

"load_rdt run using sequential and parallel loading returns same results"