Last updated on 2026-02-28 11:49:36 CET.
| Flavor | Version | Tinstall | Tcheck | Ttotal | Status | Flags |
|---|---|---|---|---|---|---|
| r-devel-linux-x86_64-debian-clang | 0.3.2 | 2.25 | 52.32 | 54.57 | ERROR | |
| r-devel-linux-x86_64-debian-gcc | 0.3.2 | 1.85 | 38.55 | 40.40 | ERROR | |
| r-devel-linux-x86_64-fedora-clang | 0.3.2 | 84.62 | ERROR | |||
| r-devel-linux-x86_64-fedora-gcc | 0.3.2 | 92.92 | ERROR | |||
| r-devel-macos-arm64 | 0.3.2 | 1.00 | 23.00 | 24.00 | OK | |
| r-devel-windows-x86_64 | 0.3.2 | 3.00 | 74.00 | 77.00 | ERROR | |
| r-patched-linux-x86_64 | 0.3.2 | 2.58 | 47.82 | 50.40 | ERROR | |
| r-release-linux-x86_64 | 0.3.2 | 1.55 | 47.80 | 49.35 | ERROR | |
| r-release-macos-arm64 | 0.3.2 | OK | ||||
| r-release-macos-x86_64 | 0.3.2 | 2.00 | 105.00 | 107.00 | OK | |
| r-release-windows-x86_64 | 0.3.2 | 4.00 | 70.00 | 74.00 | ERROR | |
| r-oldrel-macos-arm64 | 0.3.2 | OK | ||||
| r-oldrel-macos-x86_64 | 0.3.2 | 2.00 | 111.00 | 113.00 | OK | |
| r-oldrel-windows-x86_64 | 0.3.2 | 4.00 | 84.00 | 88.00 | ERROR |
Version: 0.3.2
Check: tests
Result: ERROR
Running ‘test-as.data.frame.R’ [1s/1s]
Running ‘test-build_r_pkg.R’ [3s/5s]
Running ‘test-export.R’ [0s/3s]
Running ‘test-format_record.R’ [1s/1s]
Running ‘test-keyring.R’ [0s/1s]
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
Flavor: r-devel-linux-x86_64-debian-clang
Version: 0.3.2
Check: tests
Result: ERROR
Running ‘test-as.data.frame.R’ [1s/1s]
Running ‘test-build_r_pkg.R’ [2s/2s]
Running ‘test-export.R’ [0s/3s]
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
Flavor: r-devel-linux-x86_64-debian-gcc
Version: 0.3.2
Check: tests
Result: ERROR
Running ‘test-as.data.frame.R’
Running ‘test-build_r_pkg.R’
Running ‘test-export.R’
Running ‘test-format_record.R’
Running ‘test-keyring.R’
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
Flavors: r-devel-linux-x86_64-fedora-clang, r-devel-linux-x86_64-fedora-gcc
Version: 0.3.2
Check: tests
Result: ERROR
Running 'test-as.data.frame.R' [1s]
Running 'test-build_r_pkg.R' [3s]
Running 'test-export.R' [3s]
Running 'test-format_record.R' [1s]
Running 'test-keyring.R' [1s]
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
Flavor: r-devel-windows-x86_64
Version: 0.3.2
Check: tests
Result: ERROR
Running ‘test-as.data.frame.R’ [1s/1s]
Running ‘test-build_r_pkg.R’ [3s/4s]
Running ‘test-export.R’ [0s/3s]
Running ‘test-format_record.R’ [1s/1s]
Running ‘test-keyring.R’ [0s/1s]
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
Flavors: r-patched-linux-x86_64, r-release-linux-x86_64
Version: 0.3.2
Check: tests
Result: ERROR
Running 'test-as.data.frame.R' [1s]
Running 'test-build_r_pkg.R' [3s]
Running 'test-export.R' [3s]
Running 'test-format_record.R' [1s]
Running 'test-keyring.R' [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
Flavor: r-release-windows-x86_64
Version: 0.3.2
Check: tests
Result: ERROR
Running 'test-as.data.frame.R' [1s]
Running 'test-build_r_pkg.R' [4s]
Running 'test-export.R' [3s]
Running 'test-format_record.R' [1s]
Running 'test-keyring.R' [1s]
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
Flavor: r-oldrel-windows-x86_64
These binaries (installable software) and packages are in development.
They may not be fully stable and should be used with caution. We make no claims about them.
Health stats visible at Monitor.