Running ‘test-as.data.frame.R’ [1s/1s]
  Running ‘test-build_r_pkg.R’ [2s/3s]
  Running ‘test-export.R’ [0s/4s]
  Running ‘test-format_record.R’ [1s/1s]
  Running ‘test-keyring.R’ [0s/0s]
Running the tests in ‘tests/test-export.R’ failed.
Complete output:
  > library(REDCapExporter)
  > 
  > # Tests rely on publicly available REDCap and tokens published
  > # https://github.com/redcap-tools/redcap-test-datasets/tree/master
  > 
  > # project_name  token                             server_url                          pid  server         read_only  operational  notes
  > # archer        9A81268476645C4E5F03428B8AC3AA7B  https://bbmc.ouhsc.edu/redcap/api/  153  oklahoma-bbmc  TRUE       TRUE         simple structure; read-only
  > # archer        D70F9ACD1EDD6F151C6EA78683944E98  https://bbmc.ouhsc.edu/redcap/api/  213  oklahoma-bbmc  FALSE      TRUE         simple structure; read & write
  > # archer        0434F0E9CF53ED0587847AB6E51DE762  https://bbmc.ouhsc.edu/redcap/api/  212  oklahoma-bbmc  TRUE       TRUE         longitudinal structure; read-only
  > # archer        D72C6485B52FE9F75D27B696977FBA43  https://bbmc.ouhsc.edu/redcap/api/  268  oklahoma-bbmc  TRUE       TRUE         Russian characters; read-only
  > 
  > archer01_csv <-
  +   tryCatch(
  +     export_core(uri = 'https://bbmc.ouhsc.edu/redcap/api/', token = '9A81268476645C4E5F03428B8AC3AA7B'),
  +     error = function(e) {e}
  +     )
  Getting Project Info
  Getting project metadata
  Getting user data
  Getting project record
  > 
  > Sys.setenv("REDCap_API_URI" = 'https://bbmc.ouhsc.edu/redcap/api/')
  > Sys.setenv("REDCap_API_TOKEN" = '9A81268476645C4E5F03428B8AC3AA7B')
  > archer01_json <- tryCatch(export_core(format = "json"), error = function(e) {e})
  Getting Project Info
  Getting project metadata
  Getting user data
  Getting project record
  > 
  > if (inherits(archer01_csv, "error") | inherits(archer01_json, "error")) {
  +   if (inherits(archer01_csv, "curl_error") | inherits(archer01_json, "curl_error")) {
  +     # skip the rest of the testing
  +     print(sprintf("Skip test-export.R after curl error: %s", archer01_csv$message))
  +   } else {
  +     stop("in test-export.R an non curl related error occured when initially calling export_core")
  +   }
  + } else {
  + 
  +   stopifnot(
  +     inherits(archer01_csv, "rcer_rccore"),
  +     inherits(archer01_json, "rcer_rccore"),
  +     inherits(archer01_csv$project_raw, "rcer_raw_project"),
  +     inherits(archer01_json$project_raw, "rcer_raw_project"),
  +     inherits(archer01_csv$metadata_raw, "rcer_raw_metadata"),
  +     inherits(archer01_json$metadata_raw, "rcer_raw_metadata"),
  +     inherits(archer01_csv$project_raw, "rcer_raw_project"),
  +     inherits(archer01_json$project_raw, "rcer_raw_project"),
  +     inherits(archer01_csv$record_raw, "rcer_raw_record"),
  +     inherits(archer01_json$record_raw, "rcer_raw_record"),
  +     grepl("text/csv", attr(archer01_csv$record_raw, "Content-Type")),
  +     grepl("application/json", attr(archer01_json$record_raw, "Content-Type"))
  +   )
  + 
  +   a1 <- format_record(archer01_csv)
  +   a2 <- format_record(archer01_json)
  + 
  + # apparently the end of line characters are exported differently
  +   a1$address  <- gsub('\n', ' ', gsub('\r', '', a1$address))
  +   a2$address  <- gsub('\n', ' ', gsub('\r', '', a2$address))
  +   a1$comments <- gsub('\n', ' ', gsub('\r', '', a1$comments))
  +   a2$comments <- gsub('\n', ' ', gsub('\r', '', a2$comments))
  + 
  +   stopifnot(isTRUE(all.equal(a1, a2)))
  + 
  + }
  Error in `$<-.data.frame`(`*tmp*`, address, value = character(0)) : 
    replacement has 0 rows, data has 1
  Calls: $<- -> $<-.data.frame
  Execution halted