R Under development (unstable) (2024-01-07 r85787 ucrt) -- "Unsuffered Consequences"
Copyright (C) 2024 The R Foundation for Statistical Computing
Platform: x86_64-w64-mingw32/x64

R is free software and comes with ABSOLUTELY NO WARRANTY.
You are welcome to redistribute it under certain conditions.
Type 'license()' or 'licence()' for distribution details.

R is a collaborative project with many contributors.
Type 'contributors()' for more information and
'citation()' on how to cite R or R packages in publications.

Type 'demo()' for some demos, 'help()' for on-line help, or
'help.start()' for an HTML browser interface to help.
Type 'q()' to quit R.

> library(testthat)
> library(parseRPDR)


                                                        _/_/_/    _/_/_/    _/_/_/    _/_/_/
     _/_/_/      _/_/_/  _/  _/_/    _/_/_/    _/_/    _/    _/  _/    _/  _/    _/  _/    _/
    _/    _/  _/    _/  _/_/      _/_/      _/_/_/_/  _/_/_/    _/_/_/    _/    _/  _/_/_/
   _/    _/  _/    _/  _/            _/_/  _/        _/    _/  _/        _/    _/  _/    _/
  _/_/_/      _/_/_/  _/        _/_/_/      _/_/_/  _/    _/  _/        _/_/_/    _/    _/
 _/
_/

                                by: Márton Kolossváry, MD PhD


Please cite:
Kolossváry M et al.
Deep Learning Analysis of Chest Radiographs to Triage Patients with Acute Chest Pain Syndrome.
Radiology. 2023;306(2):e221926.
DOI: 10.1148/radiol.221926

> 
> testthat::test_check("parseRPDR")
[ FAIL 33 | WARN 3 | SKIP 0 | PASS 66 ]

══ Failed tests ════════════════════════════════════════════════════════════════
── Error ('test-create_img_db.R:46:3'): (code run outside of `test_that()`) ────
Error in `as.vector(d_s[, lapply(.SD, class)])[1, ]`: incorrect number of dimensions
Backtrace:
    ▆
 1. ├─testthat::expect_true(...) at test-create_img_db.R:45:1
 2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
 3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
 4. └─base::which(as.vector(d_s[, lapply(.SD, class)])[1, ] == "POSIXct") at test-create_img_db.R:46:3
── Error ('test-find_exam.R:20:1'): (code run outside of `test_that()`) ────────
Error in `data.table::fread(file, showProgress = FALSE, colClasses = "character", 
    nThread = nThread, fill = fill, sep = sep_load)`: input= must be a single character string containing a file name, a system command containing at least one space, a URL starting 'http[s]://', 'ftp[s]://' or 'file://', or, the input data itself containing at least one \n or \r
Backtrace:
    ▆
 1. ├─base::suppressMessages(load_enc(d_fname, nThread = 2)) at test-find_exam.R:20:1
 2. │ └─base::withCallingHandlers(...)
 3. └─parseRPDR::load_enc(d_fname, nThread = 2)
 4.   └─parseRPDR:::load_base(...)
 5.     └─data.table::fread(...)
── Error ('test-load_all.R:20:1'): (code run outside of `test_that()`) ─────────
Error in `data.table::fread(file, showProgress = FALSE, colClasses = "character", 
    nThread = nThread, fill = fill, sep = sep_load)`: input= must be a single character string containing a file name, a system command containing at least one space, a URL starting 'http[s]://', 'ftp[s]://' or 'file://', or, the input data itself containing at least one \n or \r
Backtrace:
    ▆
 1. ├─base::suppressMessages(load_all(d_fname, nThread = 1)) at test-load_all.R:20:1
 2. │ └─base::withCallingHandlers(...)
 3. └─parseRPDR::load_all(d_fname, nThread = 1)
 4.   └─parseRPDR:::load_base(...)
 5.     └─data.table::fread(...)
── Error ('test-load_bib.R:20:1'): (code run outside of `test_that()`) ─────────
Error in `data.table::fread(file, showProgress = FALSE, colClasses = "character", 
    nThread = nThread, fill = fill, sep = sep_load)`: input= must be a single character string containing a file name, a system command containing at least one space, a URL starting 'http[s]://', 'ftp[s]://' or 'file://', or, the input data itself containing at least one \n or \r
Backtrace:
    ▆
 1. ├─base::suppressMessages(load_bib(d_fname, nThread = 1)) at test-load_bib.R:20:1
 2. │ └─base::withCallingHandlers(...)
 3. └─parseRPDR::load_bib(d_fname, nThread = 1)
 4.   └─parseRPDR:::load_base(...)
 5.     └─data.table::fread(...)
── Error ('test-load_con.R:20:1'): (code run outside of `test_that()`) ─────────
Error in `data.table::fread(file, showProgress = FALSE, colClasses = "character", 
    nThread = nThread, fill = fill, sep = sep_load)`: input= must be a single character string containing a file name, a system command containing at least one space, a URL starting 'http[s]://', 'ftp[s]://' or 'file://', or, the input data itself containing at least one \n or \r
Backtrace:
    ▆
 1. ├─base::suppressMessages(load_con(d_fname, nThread = 1)) at test-load_con.R:20:1
 2. │ └─base::withCallingHandlers(...)
 3. └─parseRPDR::load_con(d_fname, nThread = 1)
 4.   └─parseRPDR:::load_base(...)
 5.     └─data.table::fread(...)
── Error ('test-load_dem.R:20:1'): (code run outside of `test_that()`) ─────────
Error in `data.table::fread(file, showProgress = FALSE, colClasses = "character", 
    nThread = nThread, fill = fill, sep = sep_load)`: input= must be a single character string containing a file name, a system command containing at least one space, a URL starting 'http[s]://', 'ftp[s]://' or 'file://', or, the input data itself containing at least one \n or \r
Backtrace:
    ▆
 1. ├─base::suppressMessages(load_dem(d_fname, nThread = 1)) at test-load_dem.R:20:1
 2. │ └─base::withCallingHandlers(...)
 3. └─parseRPDR::load_dem(d_fname, nThread = 1)
 4.   └─parseRPDR:::load_base(...)
 5.     └─data.table::fread(...)
── Error ('test-load_dem_old.R:20:1'): (code run outside of `test_that()`) ─────
Error in `data.table::fread(file, showProgress = FALSE, colClasses = "character", 
    nThread = nThread, fill = fill, sep = sep_load)`: input= must be a single character string containing a file name, a system command containing at least one space, a URL starting 'http[s]://', 'ftp[s]://' or 'file://', or, the input data itself containing at least one \n or \r
Backtrace:
    ▆
 1. ├─base::suppressMessages(load_dem_old(d_fname, nThread = 1)) at test-load_dem_old.R:20:1
 2. │ └─base::withCallingHandlers(...)
 3. └─parseRPDR::load_dem_old(d_fname, nThread = 1)
 4.   └─parseRPDR:::load_base(...)
 5.     └─data.table::fread(...)
── Error ('test-load_dia.R:20:1'): (code run outside of `test_that()`) ─────────
Error in `data.table::fread(file, showProgress = FALSE, colClasses = "character", 
    nThread = nThread, fill = fill, sep = sep_load)`: input= must be a single character string containing a file name, a system command containing at least one space, a URL starting 'http[s]://', 'ftp[s]://' or 'file://', or, the input data itself containing at least one \n or \r
Backtrace:
    ▆
 1. ├─base::suppressMessages(load_dia(d_fname, nThread = 1)) at test-load_dia.R:20:1
 2. │ └─base::withCallingHandlers(...)
 3. └─parseRPDR::load_dia(d_fname, nThread = 1)
 4.   └─parseRPDR:::load_base(...)
 5.     └─data.table::fread(...)
── Error ('test-load_enc.R:20:1'): (code run outside of `test_that()`) ─────────
Error in `data.table::fread(file, showProgress = FALSE, colClasses = "character", 
    nThread = nThread, fill = fill, sep = sep_load)`: input= must be a single character string containing a file name, a system command containing at least one space, a URL starting 'http[s]://', 'ftp[s]://' or 'file://', or, the input data itself containing at least one \n or \r
Backtrace:
    ▆
 1. ├─base::suppressMessages(load_enc(d_fname, nThread = 1)) at test-load_enc.R:20:1
 2. │ └─base::withCallingHandlers(...)
 3. └─parseRPDR::load_enc(d_fname, nThread = 1)
 4.   └─parseRPDR:::load_base(...)
 5.     └─data.table::fread(...)
── Error ('test-load_lab.R:20:1'): (code run outside of `test_that()`) ─────────
Error in `data.table::fread(file, showProgress = FALSE, colClasses = "character", 
    nThread = nThread, fill = fill, sep = sep_load)`: input= must be a single character string containing a file name, a system command containing at least one space, a URL starting 'http[s]://', 'ftp[s]://' or 'file://', or, the input data itself containing at least one \n or \r
Backtrace:
    ▆
 1. ├─base::suppressMessages(load_lab(d_fname, nThread = 1)) at test-load_lab.R:20:1
 2. │ └─base::withCallingHandlers(...)
 3. └─parseRPDR::load_lab(d_fname, nThread = 1)
 4.   └─parseRPDR:::load_base(...)
 5.     └─data.table::fread(...)
── Error ('test-load_lno.R:20:1'): (code run outside of `test_that()`) ─────────
<subscriptOutOfBoundsError/error/condition>
Error in `which_rows[[x]]`: subscript out of bounds
Backtrace:
    ▆
 1. ├─base::suppressMessages(load_lno(d_fname, nThread = 1)) at test-load_lno.R:20:1
 2. │ └─base::withCallingHandlers(...)
 3. └─parseRPDR::load_lno(d_fname, nThread = 1)
 4.   └─base::lapply(...)
 5.     └─parseRPDR (local) FUN(X[[i]], ...)
 6.       ├─base::paste(...)
 7.       └─base::paste(record[1:max(which_rows[[x]])], collapse = " ")
── Error ('test-load_mcm.R:20:1'): (code run outside of `test_that()`) ─────────
Error in `if (is.na(file_info$size)) stop("File '", file, "' does not exist or is non-readable. getwd()=='", 
    getwd(), "'")`: argument is of length zero
Backtrace:
    ▆
 1. ├─base::suppressMessages(load_mcm(d_fname, nThread = 1)) at test-load_mcm.R:20:1
 2. │ └─base::withCallingHandlers(...)
 3. └─parseRPDR::load_mcm(d_fname, nThread = 1)
 4.   └─data.table::fread(file = file, nThread = nThread, colClasses = "character")
── Error ('test-load_med.R:20:1'): (code run outside of `test_that()`) ─────────
Error in `data.table::fread(file, showProgress = FALSE, colClasses = "character", 
    nThread = nThread, fill = fill, sep = sep_load)`: input= must be a single character string containing a file name, a system command containing at least one space, a URL starting 'http[s]://', 'ftp[s]://' or 'file://', or, the input data itself containing at least one \n or \r
Backtrace:
    ▆
 1. ├─base::suppressMessages(load_med(d_fname, nThread = 1)) at test-load_med.R:20:1
 2. │ └─base::withCallingHandlers(...)
 3. └─parseRPDR::load_med(d_fname, nThread = 1)
 4.   └─parseRPDR:::load_base(...)
 5.     └─data.table::fread(...)
── Error ('test-load_mic.R:23:3'): (code run outside of `test_that()`) ─────────
Error in `if (length(res) == 0 || res == -1) {
    return(list(path = path, extension = ""))
}`: missing value where TRUE/FALSE needed
Backtrace:
    ▆
 1. ├─base::suppressMessages(load_mic(d_fname[i], nThread = 1)) at test-load_mic.R:23:3
 2. │ └─base::withCallingHandlers(...)
 3. ├─parseRPDR::load_mic(d_fname[i], nThread = 1)
 4. │ └─readr::read_lines(...)
 5. │   └─vroom::vroom_lines(...)
 6. │     └─vroom:::vroom_(...)
 7. └─vroom (local) `<fn>`(NA_character_)
 8.   └─vroom:::split_path_ext(basename_utf8(path))
── Error ('test-load_mrn.R:20:1'): (code run outside of `test_that()`) ─────────
Error in `data.table::fread(file, showProgress = FALSE, colClasses = "character", 
    nThread = nThread, fill = fill, sep = sep_load)`: input= must be a single character string containing a file name, a system command containing at least one space, a URL starting 'http[s]://', 'ftp[s]://' or 'file://', or, the input data itself containing at least one \n or \r
Backtrace:
    ▆
 1. ├─base::suppressMessages(load_mrn(d_fname, nThread = 1)) at test-load_mrn.R:20:1
 2. │ └─base::withCallingHandlers(...)
 3. └─parseRPDR::load_mrn(d_fname, nThread = 1)
 4.   └─parseRPDR:::load_base(...)
 5.     └─data.table::fread(...)
── Error ('test-load_notes.R:27:3'): (code run outside of `test_that()`) ───────
Error in `if (length(res) == 0 || res == -1) {
    return(list(path = path, extension = ""))
}`: missing value where TRUE/FALSE needed
Backtrace:
    ▆
 1. ├─base::suppressMessages(...) at test-load_notes.R:27:3
 2. │ └─base::withCallingHandlers(...)
 3. ├─parseRPDR::load_notes(...)
 4. │ └─readr::read_lines(...)
 5. │   └─vroom::vroom_lines(...)
 6. │     └─vroom:::vroom_(...)
 7. └─vroom (local) `<fn>`(NA_character_)
 8.   └─vroom:::split_path_ext(basename_utf8(path))
── Error ('test-load_phy.R:20:1'): (code run outside of `test_that()`) ─────────
Error in `data.table::fread(file, showProgress = FALSE, colClasses = "character", 
    nThread = nThread, fill = fill, sep = sep_load)`: input= must be a single character string containing a file name, a system command containing at least one space, a URL starting 'http[s]://', 'ftp[s]://' or 'file://', or, the input data itself containing at least one \n or \r
Backtrace:
    ▆
 1. ├─base::suppressMessages(load_phy(d_fname, nThread = 1)) at test-load_phy.R:20:1
 2. │ └─base::withCallingHandlers(...)
 3. └─parseRPDR::load_phy(d_fname, nThread = 1)
 4.   └─parseRPDR:::load_base(...)
 5.     └─data.table::fread(...)
── Error ('test-load_prc.R:21:3'): (code run outside of `test_that()`) ─────────
Error in `split.default(v, sort(rep_len(1:nThread, length(v))))`: first argument must be a vector
Backtrace:
     ▆
  1. ├─testthat::expect_true(...) at test-load_prc.R:19:1
  2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
  3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
  4. ├─base::suppressMessages(load_prc(d_fname, nThread = 1)) at test-load_prc.R:21:3
  5. │ └─base::withCallingHandlers(...)
  6. └─parseRPDR::load_prc(d_fname, nThread = 1)
  7.   └─base::lapply(...)
  8.     └─parseRPDR (local) FUN(X[[i]], ...)
  9.       ├─base::suppressMessages(...)
 10.       │ └─base::withCallingHandlers(...)
 11.       └─parseRPDR:::load_base(...)
 12.         └─parseRPDR::pretty_mrn(...)
 13.           ├─base::split(v, sort(rep_len(1:nThread, length(v))))
 14.           └─base::split.default(v, sort(rep_len(1:nThread, length(v))))
── Error ('test-load_prv.R:20:1'): (code run outside of `test_that()`) ─────────
Error in `data.table::fread(file, showProgress = FALSE, colClasses = "character", 
    nThread = nThread, fill = fill, sep = sep_load)`: input= must be a single character string containing a file name, a system command containing at least one space, a URL starting 'http[s]://', 'ftp[s]://' or 'file://', or, the input data itself containing at least one \n or \r
Backtrace:
    ▆
 1. ├─base::suppressMessages(load_prv(d_fname, nThread = 1)) at test-load_prv.R:20:1
 2. │ └─base::withCallingHandlers(...)
 3. └─parseRPDR::load_prv(d_fname, nThread = 1)
 4.   └─parseRPDR:::load_base(...)
 5.     └─data.table::fread(...)
── Error ('test-load_ptd.R:20:1'): (code run outside of `test_that()`) ─────────
Error in `data.table::fread(file, showProgress = FALSE, colClasses = "character", 
    nThread = nThread, fill = fill, sep = sep_load)`: input= must be a single character string containing a file name, a system command containing at least one space, a URL starting 'http[s]://', 'ftp[s]://' or 'file://', or, the input data itself containing at least one \n or \r
Backtrace:
    ▆
 1. ├─base::suppressMessages(load_ptd(d_fname, nThread = 1)) at test-load_ptd.R:20:1
 2. │ └─base::withCallingHandlers(...)
 3. └─parseRPDR::load_ptd(d_fname, nThread = 1)
 4.   └─parseRPDR:::load_base(...)
 5.     └─data.table::fread(...)
── Error ('test-load_rdt.R:20:1'): (code run outside of `test_that()`) ─────────
Error in `data.table::fread(file, showProgress = FALSE, colClasses = "character", 
    nThread = nThread, fill = fill, sep = sep_load)`: input= must be a single character string containing a file name, a system command containing at least one space, a URL starting 'http[s]://', 'ftp[s]://' or 'file://', or, the input data itself containing at least one \n or \r
Backtrace:
    ▆
 1. ├─base::suppressMessages(load_rdt(d_fname, nThread = 1)) at test-load_rdt.R:20:1
 2. │ └─base::withCallingHandlers(...)
 3. └─parseRPDR::load_rdt(d_fname, nThread = 1)
 4.   └─parseRPDR:::load_base(...)
 5.     └─data.table::fread(...)
── Error ('test-load_rfv.R:20:1'): (code run outside of `test_that()`) ─────────
Error in `data.table::fread(file, showProgress = FALSE, colClasses = "character", 
    nThread = nThread, fill = fill, sep = sep_load)`: input= must be a single character string containing a file name, a system command containing at least one space, a URL starting 'http[s]://', 'ftp[s]://' or 'file://', or, the input data itself containing at least one \n or \r
Backtrace:
    ▆
 1. ├─base::suppressMessages(load_rfv(d_fname, nThread = 1)) at test-load_rfv.R:20:1
 2. │ └─base::withCallingHandlers(...)
 3. └─parseRPDR::load_rfv(d_fname, nThread = 1)
 4.   └─parseRPDR:::load_base(...)
 5.     └─data.table::fread(...)
── Error ('test-load_trn.R:20:1'): (code run outside of `test_that()`) ─────────
Error in `data.table::fread(file, showProgress = FALSE, colClasses = "character", 
    nThread = nThread, fill = fill, sep = sep_load)`: input= must be a single character string containing a file name, a system command containing at least one space, a URL starting 'http[s]://', 'ftp[s]://' or 'file://', or, the input data itself containing at least one \n or \r
Backtrace:
    ▆
 1. ├─base::suppressMessages(load_trn(d_fname, nThread = 1)) at test-load_trn.R:20:1
 2. │ └─base::withCallingHandlers(...)
 3. └─parseRPDR::load_trn(d_fname, nThread = 1)
 4.   └─parseRPDR:::load_base(...)
 5.     └─data.table::fread(...)
── Error ('test-convert_dia.R:21:1'): (code run outside of `test_that()`) ──────
Error in `data.table::fread(file, showProgress = FALSE, colClasses = "character", 
    nThread = nThread, fill = fill, sep = sep_load)`: input= must be a single character string containing a file name, a system command containing at least one space, a URL starting 'http[s]://', 'ftp[s]://' or 'file://', or, the input data itself containing at least one \n or \r
Backtrace:
    ▆
 1. ├─base::suppressMessages(load_dia(d_fname, nThread = 2)) at test-convert_dia.R:21:1
 2. │ └─base::withCallingHandlers(...)
 3. └─parseRPDR::load_dia(d_fname, nThread = 2)
 4.   └─parseRPDR:::load_base(...)
 5.     └─data.table::fread(...)
── Error ('test-convert_enc.R:21:1'): (code run outside of `test_that()`) ──────
Error in `data.table::fread(file, showProgress = FALSE, colClasses = "character", 
    nThread = nThread, fill = fill, sep = sep_load)`: input= must be a single character string containing a file name, a system command containing at least one space, a URL starting 'http[s]://', 'ftp[s]://' or 'file://', or, the input data itself containing at least one \n or \r
Backtrace:
    ▆
 1. ├─base::suppressMessages(load_enc(d_fname, nThread = 2)) at test-convert_enc.R:21:1
 2. │ └─base::withCallingHandlers(...)
 3. └─parseRPDR::load_enc(d_fname, nThread = 2)
 4.   └─parseRPDR:::load_base(...)
 5.     └─data.table::fread(...)
── Error ('test-convert_lab.R:21:1'): (code run outside of `test_that()`) ──────
Error in `data.table::fread(file, showProgress = FALSE, colClasses = "character", 
    nThread = nThread, fill = fill, sep = sep_load)`: input= must be a single character string containing a file name, a system command containing at least one space, a URL starting 'http[s]://', 'ftp[s]://' or 'file://', or, the input data itself containing at least one \n or \r
Backtrace:
    ▆
 1. ├─base::suppressMessages(load_lab(d_fname, nThread = 2)) at test-convert_lab.R:21:1
 2. │ └─base::withCallingHandlers(...)
 3. └─parseRPDR::load_lab(d_fname, nThread = 2)
 4.   └─parseRPDR:::load_base(...)
 5.     └─data.table::fread(...)
── Error ('test-convert_med.R:21:1'): (code run outside of `test_that()`) ──────
Error in `data.table::fread(file, showProgress = FALSE, colClasses = "character", 
    nThread = nThread, fill = fill, sep = sep_load)`: input= must be a single character string containing a file name, a system command containing at least one space, a URL starting 'http[s]://', 'ftp[s]://' or 'file://', or, the input data itself containing at least one \n or \r
Backtrace:
    ▆
 1. ├─base::suppressMessages(load_med(d_fname, nThread = 2)) at test-convert_med.R:21:1
 2. │ └─base::withCallingHandlers(...)
 3. └─parseRPDR::load_med(d_fname, nThread = 2)
 4.   └─parseRPDR:::load_base(...)
 5.     └─data.table::fread(...)
── Error ('test-convert_notes.R:21:1'): (code run outside of `test_that()`) ────
Error in `1:max(which_rows[[x]])`: result would be too long a vector
Backtrace:
    ▆
 1. ├─base::suppressMessages(load_notes(d_fname, type = "rad", nThread = 2)) at test-convert_notes.R:21:1
 2. │ └─base::withCallingHandlers(...)
 3. └─parseRPDR::load_notes(d_fname, type = "rad", nThread = 2)
 4.   └─base::lapply(...)
 5.     └─parseRPDR (local) FUN(X[[i]], ...)
 6.       ├─base::paste(...)
 7.       └─base::paste(record[1:max(which_rows[[x]])], collapse = " ")
── Error ('test-convert_phy.R:21:1'): (code run outside of `test_that()`) ──────
Error in `data.table::fread(file, showProgress = FALSE, colClasses = "character", 
    nThread = nThread, fill = fill, sep = sep_load)`: input= must be a single character string containing a file name, a system command containing at least one space, a URL starting 'http[s]://', 'ftp[s]://' or 'file://', or, the input data itself containing at least one \n or \r
Backtrace:
    ▆
 1. ├─base::suppressMessages(load_phy(d_fname, nThread = 2)) at test-convert_phy.R:21:1
 2. │ └─base::withCallingHandlers(...)
 3. └─parseRPDR::load_phy(d_fname, nThread = 2)
 4.   └─parseRPDR:::load_base(...)
 5.     └─data.table::fread(...)
── Error ('test-convert_prc.R:21:1'): (code run outside of `test_that()`) ──────
Error in `split.default(v, sort(rep_len(1:nThread, length(v))))`: first argument must be a vector
Backtrace:
     ▆
  1. ├─base::suppressMessages(load_prc(d_fname, nThread = 2)) at test-convert_prc.R:21:1
  2. │ └─base::withCallingHandlers(...)
  3. └─parseRPDR::load_prc(d_fname, nThread = 2)
  4.   └─base::lapply(...)
  5.     └─parseRPDR (local) FUN(X[[i]], ...)
  6.       ├─base::suppressMessages(...)
  7.       │ └─base::withCallingHandlers(...)
  8.       └─parseRPDR:::load_base(...)
  9.         └─parseRPDR::pretty_mrn(...)
 10.           ├─base::split(v, sort(rep_len(1:nThread, length(v))))
 11.           └─base::split.default(v, sort(rep_len(1:nThread, length(v))))
── Error ('test-convert_rfv.R:21:1'): (code run outside of `test_that()`) ──────
Error in `data.table::fread(file, showProgress = FALSE, colClasses = "character", 
    nThread = nThread, fill = fill, sep = sep_load)`: input= must be a single character string containing a file name, a system command containing at least one space, a URL starting 'http[s]://', 'ftp[s]://' or 'file://', or, the input data itself containing at least one \n or \r
Backtrace:
    ▆
 1. ├─base::suppressMessages(load_rfv(d_fname, nThread = 2)) at test-convert_rfv.R:21:1
 2. │ └─base::withCallingHandlers(...)
 3. └─parseRPDR::load_rfv(d_fname, nThread = 2)
 4.   └─parseRPDR:::load_base(...)
 5.     └─data.table::fread(...)
── Error ('test-all_ids_mi2b2.R:20:1'): (code run outside of `test_that()`) ────
Error in `data.table::fread(file, showProgress = FALSE, colClasses = "character", 
    nThread = nThread, fill = fill, sep = sep_load)`: input= must be a single character string containing a file name, a system command containing at least one space, a URL starting 'http[s]://', 'ftp[s]://' or 'file://', or, the input data itself containing at least one \n or \r
Backtrace:
    ▆
 1. ├─base::suppressMessages(load_mrn(d_fname, nThread = 1)) at test-all_ids_mi2b2.R:20:1
 2. │ └─base::withCallingHandlers(...)
 3. └─parseRPDR::load_mrn(d_fname, nThread = 1)
 4.   └─parseRPDR:::load_base(...)
 5.     └─data.table::fread(...)
── Error ('test-export_notes.R:24:1'): (code run outside of `test_that()`) ─────
Error in `if (length(res) == 0 || res == -1) {
    return(list(path = path, extension = ""))
}`: missing value where TRUE/FALSE needed
Backtrace:
    ▆
 1. ├─base::suppressMessages(...) at test-export_notes.R:24:1
 2. │ └─base::withCallingHandlers(...)
 3. ├─parseRPDR::load_notes(...)
 4. │ └─readr::read_lines(...)
 5. │   └─vroom::vroom_lines(...)
 6. │     └─vroom:::vroom_(...)
 7. └─vroom (local) `<fn>`(NA_character_)
 8.   └─vroom:::split_path_ext(basename_utf8(path))

[ FAIL 33 | WARN 3 | SKIP 0 | PASS 66 ]
Error: Test failures
Execution halted