Last updated on 2026-03-07 01:52:00 CET.
| Flavor | Version | Tinstall | Tcheck | Ttotal | Status | Flags |
|---|---|---|---|---|---|---|
| r-devel-linux-x86_64-debian-clang | 0.3.3 | 2.20 | 52.32 | 54.52 | OK | |
| r-devel-linux-x86_64-debian-gcc | 0.3.3 | 1.69 | 37.71 | 39.40 | ERROR | |
| r-devel-linux-x86_64-fedora-clang | 0.3.3 | 84.08 | OK | |||
| r-devel-linux-x86_64-fedora-gcc | 0.3.3 | 96.94 | OK | |||
| r-devel-macos-arm64 | 0.3.3 | 1.00 | 25.00 | 26.00 | OK | |
| r-devel-windows-x86_64 | 0.3.3 | 8.00 | 87.00 | 95.00 | OK | |
| r-patched-linux-x86_64 | 0.3.3 | 2.49 | 47.69 | 50.18 | OK | |
| r-release-linux-x86_64 | 0.3.2 | 2.19 | 47.83 | 50.02 | ERROR | |
| r-release-macos-arm64 | 0.3.3 | 1.00 | 25.00 | 26.00 | OK | |
| r-release-macos-x86_64 | 0.3.3 | 2.00 | 140.00 | 142.00 | OK | |
| r-release-windows-x86_64 | 0.3.3 | 4.00 | 72.00 | 76.00 | OK | |
| r-oldrel-macos-arm64 | 0.3.3 | 1.00 | 27.00 | 28.00 | OK | |
| r-oldrel-macos-x86_64 | 0.3.3 | 2.00 | 170.00 | 172.00 | OK | |
| r-oldrel-windows-x86_64 | 0.3.3 | 4.00 | 89.00 | 93.00 | OK |
Version: 0.3.3
Check: tests
Result: ERROR
Running ‘test-as.data.frame.R’ [1s/1s]
Running ‘test-build_r_pkg.R’ [2s/3s]
Running ‘test-export.R’ [0s/0s]
Running ‘test-format_record.R’ [1s/1s]
Running ‘test-keyring.R’ [0s/0s]
Running the tests in ‘tests/test-build_r_pkg.R’ failed.
Complete output:
> library(REDCapExporter)
> temppath <- tempdir()
> build_r_data_package(
+ x = avs_raw_core,
+ path = temppath,
+ author_roles = list(dewittp = c("cre", "aut")),
+ )
Creating source package at /tmp/RtmpQ5m01F/rcd14465
ℹ Updating rcd14465 documentation
First time using roxygen2. Upgrading automatically...
ℹ Setting RoxygenNote to "7.3.3"
ℹ Loading rcd14465
Writing 'NAMESPACE'
Writing 'project.Rd'
Writing 'metadata.Rd'
Writing 'user.Rd'
Writing 'record.Rd'
>
> x <- fs::dir_tree(temppath)
/tmp/RtmpQ5m01F
└── rcd14465
├── DESCRIPTION
├── LICENSE
├── NAMESPACE
├── R
│ └── datasets.R
├── data
│ ├── metadata.rda
│ ├── project.rda
│ ├── record.rda
│ └── user.rda
├── inst
│ └── raw-data
│ ├── metadata.rds
│ ├── project.rds
│ ├── record.rds
│ └── user.rds
└── man
├── metadata.Rd
├── project.Rd
├── record.Rd
└── user.Rd
> x <- unname(sapply(strsplit(x, "rcd14465"), `[`, 2))
> x[is.na(x)] <- ""
> x <- sort(paste0("rcd14465", x))
>
> print(x)
[1] "rcd14465" "rcd14465"
[3] "rcd14465" "rcd14465/DESCRIPTION"
[5] "rcd14465/LICENSE" "rcd14465/NAMESPACE"
[7] "rcd14465/R" "rcd14465/R/datasets.R"
[9] "rcd14465/data" "rcd14465/data/metadata.rda"
[11] "rcd14465/data/project.rda" "rcd14465/data/record.rda"
[13] "rcd14465/data/user.rda" "rcd14465/inst"
[15] "rcd14465/inst/raw-data" "rcd14465/inst/raw-data/metadata.rds"
[17] "rcd14465/inst/raw-data/project.rds" "rcd14465/inst/raw-data/record.rds"
[19] "rcd14465/inst/raw-data/user.rds" "rcd14465/man"
[21] "rcd14465/man/metadata.Rd" "rcd14465/man/project.Rd"
[23] "rcd14465/man/record.Rd" "rcd14465/man/user.Rd"
>
> stopifnot(
+ identical(
+ x,
+ sort(
+ c("rcd14465", "rcd14465/DESCRIPTION", "rcd14465/LICENSE", "rcd14465/NAMESPACE",
+ "rcd14465/R", "rcd14465/R/datasets.R", "rcd14465/data", "rcd14465/data/metadata.rda",
+ "rcd14465/data/project.rda", "rcd14465/data/record.rda", "rcd14465/data/user.rda",
+ "rcd14465/inst", "rcd14465/inst/raw-data", "rcd14465/inst/raw-data/metadata.rds",
+ "rcd14465/inst/raw-data/project.rds", "rcd14465/inst/raw-data/record.rds",
+ "rcd14465/inst/raw-data/user.rds", "rcd14465/man", "rcd14465/man/metadata.Rd",
+ "rcd14465/man/project.Rd", "rcd14465/man/record.Rd", "rcd14465/man/user.Rd")
+ )
+ )
+ )
Error: identical(x, sort(c("rcd14465", "rcd14465/DESCRIPTION", "rcd14465/LICENSE", .... is not TRUE
Execution halted
Flavor: r-devel-linux-x86_64-debian-gcc
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-release-linux-x86_64