Last updated on 2025-12-19 23:49:42 CET.
| Flavor | Version | Tinstall | Tcheck | Ttotal | Status | Flags |
|---|---|---|---|---|---|---|
| r-devel-linux-x86_64-debian-clang | 0.2.2 | 6.25 | 99.21 | 105.46 | OK | |
| r-devel-linux-x86_64-debian-gcc | 0.2.2 | 5.01 | 61.43 | 66.44 | ERROR | |
| r-devel-linux-x86_64-fedora-clang | 0.2.2 | 11.00 | 132.93 | 143.93 | ERROR | |
| r-devel-linux-x86_64-fedora-gcc | 0.2.2 | 11.00 | 147.70 | 158.70 | ERROR | |
| r-devel-windows-x86_64 | 0.2.2 | 8.00 | 126.00 | 134.00 | OK | |
| r-patched-linux-x86_64 | 0.2.2 | 6.72 | 94.15 | 100.87 | OK | |
| r-release-linux-x86_64 | 0.2.2 | 6.76 | 93.39 | 100.15 | OK | |
| r-release-macos-arm64 | 0.2.2 | 2.00 | 35.00 | 37.00 | OK | |
| r-release-macos-x86_64 | 0.2.2 | 5.00 | 124.00 | 129.00 | OK | |
| r-release-windows-x86_64 | 0.2.2 | 11.00 | 114.00 | 125.00 | OK | |
| r-oldrel-macos-arm64 | 0.2.2 | 2.00 | 37.00 | 39.00 | NOTE | |
| r-oldrel-macos-x86_64 | 0.2.2 | 5.00 | 128.00 | 133.00 | NOTE | |
| r-oldrel-windows-x86_64 | 0.2.2 | 12.00 | 148.00 | 160.00 | NOTE |
Version: 0.2.2
Check: examples
Result: ERROR
Running examples in ‘clinUtils-Ex.R’ failed
The error most likely occurred in:
> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: compareTables
> ### Title: Compare tables
> ### Aliases: compareTables
>
> ### ** Examples
>
> ## Example 1
> # In this case the referenceVar 'a' is the same
> # the comparison highlights only as change in the variables 'c' and 'd'
> newData <- data.frame(
+ "a" = c(1, 2, 3, 4),
+ "b" = c(5, 6, 7, 8),
+ "c" = rep(1, 4),
+ "d" = rep(2, 4)
+ )
> oldData <- data.frame(
+ "a" = c(1, 2, 3, 4),
+ "b" = c(3, 4, 7, 8),
+ "c" = rep(2, 4),
+ "d" = rep(1, 4)
+ )
> compareTables(
+ newData = newData,
+ oldData = oldData,
+ referenceVars = "a",
+ changeableVars = c("c", "d")
+ )
Error in `[.data.table`(diffDataDetailed, , `:=`((colsDiff), { :
attempt access index 5/5 in VECTOR_ELT
Calls: compareTables ... exportDiffData -> formatDetailsComparison -> [ -> [.data.table
Execution halted
Flavor: r-devel-linux-x86_64-debian-gcc
Version: 0.2.2
Check: tests
Result: ERROR
Running ‘testthat.R’ [10s/12s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
> library(testthat)
> library(clinUtils)
>
> test_check("clinUtils")
Saving _problems/test_compareTables-121.R
[ FAIL 6 | WARN 1 | SKIP 2 | PASS 289 ]
══ Skipped tests (2) ═══════════════════════════════════════════════════════════
• On CRAN (2): 'test_getClinDT.R:838:7', 'test_getClinDT.R:855:7'
══ Failed tests ════════════════════════════════════════════════════════════════
── Error ('test_compareTables.R:118:7'): When reference columns are not specified, all columns are used as the reference ──
Error in ``[.data.table`(diffDataDetailed, , `:=`((colsDiff), { if (all(`Comparison type` == "Addition")) { as.list(rep("+", length(cols))) } else if (all(`Comparison type` == "Removal")) { as.list(rep("-", length(cols))) } else { lapply(.SD, function(x) { ifelse(uniqueN(x) == 1, "==", "!=") }) } }), .SDcols = cols, by = referenceVars)`: attempt access index 5/5 in VECTOR_ELT
Backtrace:
▆
1. ├─testthat::expect_equal(...) at test_compareTables.R:118:7
2. │ └─testthat::quasi_label(enquo(object), label)
3. │ └─rlang::eval_bare(expr, quo_get_env(quo))
4. └─clinUtils::compareTables(newData, oldData)
5. └─clinUtils::exportDiffData(...)
6. └─clinUtils:::formatDetailsComparison(...)
7. ├─...[]
8. └─data.table:::`[.data.table`(...)
── Error ('test_compareTables.R:266:7'): The difference dataset is exported correctly to an interactive table ──
Error in ``[.data.table`(diffDataDetailed, , `:=`((colsDiff), { if (all(`Comparison type` == "Addition")) { as.list(rep("+", length(cols))) } else if (all(`Comparison type` == "Removal")) { as.list(rep("-", length(cols))) } else { lapply(.SD, function(x) { ifelse(uniqueN(x) == 1, "==", "!=") }) } }), .SDcols = cols, by = referenceVars)`: attempt access index 5/5 in VECTOR_ELT
Backtrace:
▆
1. ├─testthat::expect_silent(res <- exportDiffData(diffData)) at test_compareTables.R:266:7
2. │ └─testthat:::quasi_capture(enquo(object), NULL, evaluate_promise)
3. │ ├─testthat (local) .capture(...)
4. │ │ ├─withr::with_output_sink(...)
5. │ │ │ └─base::force(code)
6. │ │ ├─base::withCallingHandlers(...)
7. │ │ └─base::withVisible(code)
8. │ └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
9. └─clinUtils::exportDiffData(diffData)
10. └─clinUtils:::formatDetailsComparison(...)
11. ├─...[]
12. └─data.table:::`[.data.table`(...)
── Error ('test_compareTables.R:292:7'): The merged product of the difference dataset and new dataset is exported correctly to an interactive table ──
Error in ``[.data.table`(diffDataDetailed, , `:=`((colsDiff), { if (all(`Comparison type` == "Addition")) { as.list(rep("+", length(cols))) } else if (all(`Comparison type` == "Removal")) { as.list(rep("-", length(cols))) } else { lapply(.SD, function(x) { ifelse(uniqueN(x) == 1, "==", "!=") }) } }), .SDcols = cols, by = referenceVars)`: attempt access index 5/5 in VECTOR_ELT
Backtrace:
▆
1. ├─testthat::expect_silent(res <- exportDiffData(diffData, newDataDiff = newDataDiff)) at test_compareTables.R:292:7
2. │ └─testthat:::quasi_capture(enquo(object), NULL, evaluate_promise)
3. │ ├─testthat (local) .capture(...)
4. │ │ ├─withr::with_output_sink(...)
5. │ │ │ └─base::force(code)
6. │ │ ├─base::withCallingHandlers(...)
7. │ │ └─base::withVisible(code)
8. │ └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
9. └─clinUtils::exportDiffData(diffData, newDataDiff = newDataDiff)
10. └─clinUtils:::formatDetailsComparison(...)
11. ├─...[]
12. └─data.table:::`[.data.table`(...)
── Error ('test_compareTables.R:316:7'): The merged product of the difference dataset and old dataset is exported correctly to an interactive table ──
Error in ``[.data.table`(diffDataDetailed, , `:=`((colsDiff), { if (all(`Comparison type` == "Addition")) { as.list(rep("+", length(cols))) } else if (all(`Comparison type` == "Removal")) { as.list(rep("-", length(cols))) } else { lapply(.SD, function(x) { ifelse(uniqueN(x) == 1, "==", "!=") }) } }), .SDcols = cols, by = referenceVars)`: attempt access index 5/5 in VECTOR_ELT
Backtrace:
▆
1. ├─testthat::expect_silent(...) at test_compareTables.R:316:7
2. │ └─testthat:::quasi_capture(enquo(object), NULL, evaluate_promise)
3. │ ├─testthat (local) .capture(...)
4. │ │ ├─withr::with_output_sink(...)
5. │ │ │ └─base::force(code)
6. │ │ ├─base::withCallingHandlers(...)
7. │ │ └─base::withVisible(code)
8. │ └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
9. └─clinUtils::compareTables(...)
10. └─clinUtils::exportDiffData(...)
11. └─clinUtils:::formatDetailsComparison(...)
12. ├─...[]
13. └─data.table:::`[.data.table`(...)
── Error ('test_compareTables.R:357:7'): A placeholder is displayed in the interactive table if there is no difference between the new and old data ──
Error in ``[.data.table`(diffDataDetailed, , `:=`((colsDiff), { if (all(`Comparison type` == "Addition")) { as.list(rep("+", length(cols))) } else if (all(`Comparison type` == "Removal")) { as.list(rep("-", length(cols))) } else { lapply(.SD, function(x) { ifelse(uniqueN(x) == 1, "==", "!=") }) } }), .SDcols = cols, by = referenceVars)`: attempt access index 3/3 in VECTOR_ELT
Backtrace:
▆
1. ├─testthat::expect_silent(res <- exportDiffData(diffData)) at test_compareTables.R:357:7
2. │ └─testthat:::quasi_capture(enquo(object), NULL, evaluate_promise)
3. │ ├─testthat (local) .capture(...)
4. │ │ ├─withr::with_output_sink(...)
5. │ │ │ └─base::force(code)
6. │ │ ├─base::withCallingHandlers(...)
7. │ │ └─base::withVisible(code)
8. │ └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
9. └─clinUtils::exportDiffData(diffData)
10. └─clinUtils:::formatDetailsComparison(...)
11. ├─...[]
12. └─data.table:::`[.data.table`(...)
── Error ('test_compareTables.R:378:7'): Column names are renamed correctly in the interactive difference data table ──
Error in ``[.data.table`(diffDataDetailed, , `:=`((colsDiff), { if (all(`Comparison type` == "Addition")) { as.list(rep("+", length(cols))) } else if (all(`Comparison type` == "Removal")) { as.list(rep("-", length(cols))) } else { lapply(.SD, function(x) { ifelse(uniqueN(x) == 1, "==", "!=") }) } }), .SDcols = cols, by = referenceVars)`: attempt access index 5/5 in VECTOR_ELT
Backtrace:
▆
1. ├─testthat::expect_silent(...) at test_compareTables.R:378:7
2. │ └─testthat:::quasi_capture(enquo(object), NULL, evaluate_promise)
3. │ ├─testthat (local) .capture(...)
4. │ │ ├─withr::with_output_sink(...)
5. │ │ │ └─base::force(code)
6. │ │ ├─base::withCallingHandlers(...)
7. │ │ └─base::withVisible(code)
8. │ └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
9. └─clinUtils::exportDiffData(...)
10. └─clinUtils:::formatDetailsComparison(...)
11. ├─...[]
12. └─data.table:::`[.data.table`(...)
[ FAIL 6 | WARN 1 | SKIP 2 | PASS 289 ]
Error:
! Test failures.
Execution halted
Flavor: r-devel-linux-x86_64-debian-gcc
Version: 0.2.2
Check: re-building of vignette outputs
Result: ERROR
Error(s) in re-building vignettes:
...
--- re-building ‘clinUtils-vignette.Rmd’ using rmarkdown
Quitting from clinUtils-vignette.Rmd:339-366 [compareTables]
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
<error/rlang_error>
Error in `[.data.table`:
! attempt access index 8/8 in VECTOR_ELT
---
Backtrace:
▆
1. └─clinUtils::compareTables(...)
2. └─clinUtils::exportDiffData(...)
3. └─clinUtils:::formatDetailsComparison(...)
4. ├─...[]
5. └─data.table:::`[.data.table`(...)
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Error: processing vignette 'clinUtils-vignette.Rmd' failed with diagnostics:
attempt access index 8/8 in VECTOR_ELT
--- failed re-building ‘clinUtils-vignette.Rmd’
SUMMARY: processing the following file failed:
‘clinUtils-vignette.Rmd’
Error: Vignette re-building failed.
Execution halted
Flavor: r-devel-linux-x86_64-debian-gcc
Version: 0.2.2
Check: examples
Result: ERROR
Running examples in ‘clinUtils-Ex.R’ failed
The error most likely occurred in:
> ### Name: compareTables
> ### Title: Compare tables
> ### Aliases: compareTables
>
> ### ** Examples
>
> ## Example 1
> # In this case the referenceVar 'a' is the same
> # the comparison highlights only as change in the variables 'c' and 'd'
> newData <- data.frame(
+ "a" = c(1, 2, 3, 4),
+ "b" = c(5, 6, 7, 8),
+ "c" = rep(1, 4),
+ "d" = rep(2, 4)
+ )
> oldData <- data.frame(
+ "a" = c(1, 2, 3, 4),
+ "b" = c(3, 4, 7, 8),
+ "c" = rep(2, 4),
+ "d" = rep(1, 4)
+ )
> compareTables(
+ newData = newData,
+ oldData = oldData,
+ referenceVars = "a",
+ changeableVars = c("c", "d")
+ )
Error in `[.data.table`(diffDataDetailed, , `:=`((colsDiff), { :
attempt access index 5/5 in VECTOR_ELT
Calls: compareTables ... exportDiffData -> formatDetailsComparison -> [ -> [.data.table
Execution halted
Flavors: r-devel-linux-x86_64-fedora-clang, r-devel-linux-x86_64-fedora-gcc
Version: 0.2.2
Check: tests
Result: ERROR
Running ‘testthat.R’ [23s/42s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
> library(testthat)
> library(clinUtils)
>
> test_check("clinUtils")
Saving _problems/test_compareTables-121.R
[ FAIL 6 | WARN 1 | SKIP 2 | PASS 289 ]
══ Skipped tests (2) ═══════════════════════════════════════════════════════════
• On CRAN (2): 'test_getClinDT.R:838:7', 'test_getClinDT.R:855:7'
══ Failed tests ════════════════════════════════════════════════════════════════
── Error ('test_compareTables.R:118:7'): When reference columns are not specified, all columns are used as the reference ──
Error in ``[.data.table`(diffDataDetailed, , `:=`((colsDiff), { if (all(`Comparison type` == "Addition")) { as.list(rep("+", length(cols))) } else if (all(`Comparison type` == "Removal")) { as.list(rep("-", length(cols))) } else { lapply(.SD, function(x) { ifelse(uniqueN(x) == 1, "==", "!=") }) } }), .SDcols = cols, by = referenceVars)`: attempt access index 5/5 in VECTOR_ELT
Backtrace:
▆
1. ├─testthat::expect_equal(...) at test_compareTables.R:118:7
2. │ └─testthat::quasi_label(enquo(object), label)
3. │ └─rlang::eval_bare(expr, quo_get_env(quo))
4. └─clinUtils::compareTables(newData, oldData)
5. └─clinUtils::exportDiffData(...)
6. └─clinUtils:::formatDetailsComparison(...)
7. ├─...[]
8. └─data.table:::`[.data.table`(...)
── Error ('test_compareTables.R:266:7'): The difference dataset is exported correctly to an interactive table ──
Error in ``[.data.table`(diffDataDetailed, , `:=`((colsDiff), { if (all(`Comparison type` == "Addition")) { as.list(rep("+", length(cols))) } else if (all(`Comparison type` == "Removal")) { as.list(rep("-", length(cols))) } else { lapply(.SD, function(x) { ifelse(uniqueN(x) == 1, "==", "!=") }) } }), .SDcols = cols, by = referenceVars)`: attempt access index 5/5 in VECTOR_ELT
Backtrace:
▆
1. ├─testthat::expect_silent(res <- exportDiffData(diffData)) at test_compareTables.R:266:7
2. │ └─testthat:::quasi_capture(enquo(object), NULL, evaluate_promise)
3. │ ├─testthat (local) .capture(...)
4. │ │ ├─withr::with_output_sink(...)
5. │ │ │ └─base::force(code)
6. │ │ ├─base::withCallingHandlers(...)
7. │ │ └─base::withVisible(code)
8. │ └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
9. └─clinUtils::exportDiffData(diffData)
10. └─clinUtils:::formatDetailsComparison(...)
11. ├─...[]
12. └─data.table:::`[.data.table`(...)
── Error ('test_compareTables.R:292:7'): The merged product of the difference dataset and new dataset is exported correctly to an interactive table ──
Error in ``[.data.table`(diffDataDetailed, , `:=`((colsDiff), { if (all(`Comparison type` == "Addition")) { as.list(rep("+", length(cols))) } else if (all(`Comparison type` == "Removal")) { as.list(rep("-", length(cols))) } else { lapply(.SD, function(x) { ifelse(uniqueN(x) == 1, "==", "!=") }) } }), .SDcols = cols, by = referenceVars)`: attempt access index 5/5 in VECTOR_ELT
Backtrace:
▆
1. ├─testthat::expect_silent(res <- exportDiffData(diffData, newDataDiff = newDataDiff)) at test_compareTables.R:292:7
2. │ └─testthat:::quasi_capture(enquo(object), NULL, evaluate_promise)
3. │ ├─testthat (local) .capture(...)
4. │ │ ├─withr::with_output_sink(...)
5. │ │ │ └─base::force(code)
6. │ │ ├─base::withCallingHandlers(...)
7. │ │ └─base::withVisible(code)
8. │ └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
9. └─clinUtils::exportDiffData(diffData, newDataDiff = newDataDiff)
10. └─clinUtils:::formatDetailsComparison(...)
11. ├─...[]
12. └─data.table:::`[.data.table`(...)
── Error ('test_compareTables.R:316:7'): The merged product of the difference dataset and old dataset is exported correctly to an interactive table ──
Error in ``[.data.table`(diffDataDetailed, , `:=`((colsDiff), { if (all(`Comparison type` == "Addition")) { as.list(rep("+", length(cols))) } else if (all(`Comparison type` == "Removal")) { as.list(rep("-", length(cols))) } else { lapply(.SD, function(x) { ifelse(uniqueN(x) == 1, "==", "!=") }) } }), .SDcols = cols, by = referenceVars)`: attempt access index 5/5 in VECTOR_ELT
Backtrace:
▆
1. ├─testthat::expect_silent(...) at test_compareTables.R:316:7
2. │ └─testthat:::quasi_capture(enquo(object), NULL, evaluate_promise)
3. │ ├─testthat (local) .capture(...)
4. │ │ ├─withr::with_output_sink(...)
5. │ │ │ └─base::force(code)
6. │ │ ├─base::withCallingHandlers(...)
7. │ │ └─base::withVisible(code)
8. │ └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
9. └─clinUtils::compareTables(...)
10. └─clinUtils::exportDiffData(...)
11. └─clinUtils:::formatDetailsComparison(...)
12. ├─...[]
13. └─data.table:::`[.data.table`(...)
── Error ('test_compareTables.R:357:7'): A placeholder is displayed in the interactive table if there is no difference between the new and old data ──
Error in ``[.data.table`(diffDataDetailed, , `:=`((colsDiff), { if (all(`Comparison type` == "Addition")) { as.list(rep("+", length(cols))) } else if (all(`Comparison type` == "Removal")) { as.list(rep("-", length(cols))) } else { lapply(.SD, function(x) { ifelse(uniqueN(x) == 1, "==", "!=") }) } }), .SDcols = cols, by = referenceVars)`: attempt access index 3/3 in VECTOR_ELT
Backtrace:
▆
1. ├─testthat::expect_silent(res <- exportDiffData(diffData)) at test_compareTables.R:357:7
2. │ └─testthat:::quasi_capture(enquo(object), NULL, evaluate_promise)
3. │ ├─testthat (local) .capture(...)
4. │ │ ├─withr::with_output_sink(...)
5. │ │ │ └─base::force(code)
6. │ │ ├─base::withCallingHandlers(...)
7. │ │ └─base::withVisible(code)
8. │ └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
9. └─clinUtils::exportDiffData(diffData)
10. └─clinUtils:::formatDetailsComparison(...)
11. ├─...[]
12. └─data.table:::`[.data.table`(...)
── Error ('test_compareTables.R:378:7'): Column names are renamed correctly in the interactive difference data table ──
Error in ``[.data.table`(diffDataDetailed, , `:=`((colsDiff), { if (all(`Comparison type` == "Addition")) { as.list(rep("+", length(cols))) } else if (all(`Comparison type` == "Removal")) { as.list(rep("-", length(cols))) } else { lapply(.SD, function(x) { ifelse(uniqueN(x) == 1, "==", "!=") }) } }), .SDcols = cols, by = referenceVars)`: attempt access index 5/5 in VECTOR_ELT
Backtrace:
▆
1. ├─testthat::expect_silent(...) at test_compareTables.R:378:7
2. │ └─testthat:::quasi_capture(enquo(object), NULL, evaluate_promise)
3. │ ├─testthat (local) .capture(...)
4. │ │ ├─withr::with_output_sink(...)
5. │ │ │ └─base::force(code)
6. │ │ ├─base::withCallingHandlers(...)
7. │ │ └─base::withVisible(code)
8. │ └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
9. └─clinUtils::exportDiffData(...)
10. └─clinUtils:::formatDetailsComparison(...)
11. ├─...[]
12. └─data.table:::`[.data.table`(...)
[ FAIL 6 | WARN 1 | SKIP 2 | PASS 289 ]
Error:
! Test failures.
Execution halted
Flavor: r-devel-linux-x86_64-fedora-clang
Version: 0.2.2
Check: re-building of vignette outputs
Result: ERROR
Error(s) in re-building vignettes:
--- re-building ‘clinUtils-vignette.Rmd’ using rmarkdown
Quitting from clinUtils-vignette.Rmd:339-366 [compareTables]
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
<error/rlang_error>
Error in `[.data.table`:
! attempt access index 8/8 in VECTOR_ELT
---
Backtrace:
▆
1. └─clinUtils::compareTables(...)
2. └─clinUtils::exportDiffData(...)
3. └─clinUtils:::formatDetailsComparison(...)
4. ├─...[]
5. └─data.table:::`[.data.table`(...)
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Error: processing vignette 'clinUtils-vignette.Rmd' failed with diagnostics:
attempt access index 8/8 in VECTOR_ELT
--- failed re-building ‘clinUtils-vignette.Rmd’
SUMMARY: processing the following file failed:
‘clinUtils-vignette.Rmd’
Error: Vignette re-building failed.
Execution halted
Flavors: r-devel-linux-x86_64-fedora-clang, r-devel-linux-x86_64-fedora-gcc
Version: 0.2.2
Check: tests
Result: ERROR
Running ‘testthat.R’ [24s/66s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
> library(testthat)
> library(clinUtils)
>
> test_check("clinUtils")
Saving _problems/test_compareTables-121.R
[ FAIL 6 | WARN 1 | SKIP 2 | PASS 289 ]
══ Skipped tests (2) ═══════════════════════════════════════════════════════════
• On CRAN (2): 'test_getClinDT.R:838:7', 'test_getClinDT.R:855:7'
══ Failed tests ════════════════════════════════════════════════════════════════
── Error ('test_compareTables.R:118:7'): When reference columns are not specified, all columns are used as the reference ──
Error in ``[.data.table`(diffDataDetailed, , `:=`((colsDiff), { if (all(`Comparison type` == "Addition")) { as.list(rep("+", length(cols))) } else if (all(`Comparison type` == "Removal")) { as.list(rep("-", length(cols))) } else { lapply(.SD, function(x) { ifelse(uniqueN(x) == 1, "==", "!=") }) } }), .SDcols = cols, by = referenceVars)`: attempt access index 5/5 in VECTOR_ELT
Backtrace:
▆
1. ├─testthat::expect_equal(...) at test_compareTables.R:118:7
2. │ └─testthat::quasi_label(enquo(object), label)
3. │ └─rlang::eval_bare(expr, quo_get_env(quo))
4. └─clinUtils::compareTables(newData, oldData)
5. └─clinUtils::exportDiffData(...)
6. └─clinUtils:::formatDetailsComparison(...)
7. ├─...[]
8. └─data.table:::`[.data.table`(...)
── Error ('test_compareTables.R:266:7'): The difference dataset is exported correctly to an interactive table ──
Error in ``[.data.table`(diffDataDetailed, , `:=`((colsDiff), { if (all(`Comparison type` == "Addition")) { as.list(rep("+", length(cols))) } else if (all(`Comparison type` == "Removal")) { as.list(rep("-", length(cols))) } else { lapply(.SD, function(x) { ifelse(uniqueN(x) == 1, "==", "!=") }) } }), .SDcols = cols, by = referenceVars)`: attempt access index 5/5 in VECTOR_ELT
Backtrace:
▆
1. ├─testthat::expect_silent(res <- exportDiffData(diffData)) at test_compareTables.R:266:7
2. │ └─testthat:::quasi_capture(enquo(object), NULL, evaluate_promise)
3. │ ├─testthat (local) .capture(...)
4. │ │ ├─withr::with_output_sink(...)
5. │ │ │ └─base::force(code)
6. │ │ ├─base::withCallingHandlers(...)
7. │ │ └─base::withVisible(code)
8. │ └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
9. └─clinUtils::exportDiffData(diffData)
10. └─clinUtils:::formatDetailsComparison(...)
11. ├─...[]
12. └─data.table:::`[.data.table`(...)
── Error ('test_compareTables.R:292:7'): The merged product of the difference dataset and new dataset is exported correctly to an interactive table ──
Error in ``[.data.table`(diffDataDetailed, , `:=`((colsDiff), { if (all(`Comparison type` == "Addition")) { as.list(rep("+", length(cols))) } else if (all(`Comparison type` == "Removal")) { as.list(rep("-", length(cols))) } else { lapply(.SD, function(x) { ifelse(uniqueN(x) == 1, "==", "!=") }) } }), .SDcols = cols, by = referenceVars)`: attempt access index 5/5 in VECTOR_ELT
Backtrace:
▆
1. ├─testthat::expect_silent(res <- exportDiffData(diffData, newDataDiff = newDataDiff)) at test_compareTables.R:292:7
2. │ └─testthat:::quasi_capture(enquo(object), NULL, evaluate_promise)
3. │ ├─testthat (local) .capture(...)
4. │ │ ├─withr::with_output_sink(...)
5. │ │ │ └─base::force(code)
6. │ │ ├─base::withCallingHandlers(...)
7. │ │ └─base::withVisible(code)
8. │ └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
9. └─clinUtils::exportDiffData(diffData, newDataDiff = newDataDiff)
10. └─clinUtils:::formatDetailsComparison(...)
11. ├─...[]
12. └─data.table:::`[.data.table`(...)
── Error ('test_compareTables.R:316:7'): The merged product of the difference dataset and old dataset is exported correctly to an interactive table ──
Error in ``[.data.table`(diffDataDetailed, , `:=`((colsDiff), { if (all(`Comparison type` == "Addition")) { as.list(rep("+", length(cols))) } else if (all(`Comparison type` == "Removal")) { as.list(rep("-", length(cols))) } else { lapply(.SD, function(x) { ifelse(uniqueN(x) == 1, "==", "!=") }) } }), .SDcols = cols, by = referenceVars)`: attempt access index 5/5 in VECTOR_ELT
Backtrace:
▆
1. ├─testthat::expect_silent(...) at test_compareTables.R:316:7
2. │ └─testthat:::quasi_capture(enquo(object), NULL, evaluate_promise)
3. │ ├─testthat (local) .capture(...)
4. │ │ ├─withr::with_output_sink(...)
5. │ │ │ └─base::force(code)
6. │ │ ├─base::withCallingHandlers(...)
7. │ │ └─base::withVisible(code)
8. │ └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
9. └─clinUtils::compareTables(...)
10. └─clinUtils::exportDiffData(...)
11. └─clinUtils:::formatDetailsComparison(...)
12. ├─...[]
13. └─data.table:::`[.data.table`(...)
── Error ('test_compareTables.R:357:7'): A placeholder is displayed in the interactive table if there is no difference between the new and old data ──
Error in ``[.data.table`(diffDataDetailed, , `:=`((colsDiff), { if (all(`Comparison type` == "Addition")) { as.list(rep("+", length(cols))) } else if (all(`Comparison type` == "Removal")) { as.list(rep("-", length(cols))) } else { lapply(.SD, function(x) { ifelse(uniqueN(x) == 1, "==", "!=") }) } }), .SDcols = cols, by = referenceVars)`: attempt access index 3/3 in VECTOR_ELT
Backtrace:
▆
1. ├─testthat::expect_silent(res <- exportDiffData(diffData)) at test_compareTables.R:357:7
2. │ └─testthat:::quasi_capture(enquo(object), NULL, evaluate_promise)
3. │ ├─testthat (local) .capture(...)
4. │ │ ├─withr::with_output_sink(...)
5. │ │ │ └─base::force(code)
6. │ │ ├─base::withCallingHandlers(...)
7. │ │ └─base::withVisible(code)
8. │ └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
9. └─clinUtils::exportDiffData(diffData)
10. └─clinUtils:::formatDetailsComparison(...)
11. ├─...[]
12. └─data.table:::`[.data.table`(...)
── Error ('test_compareTables.R:378:7'): Column names are renamed correctly in the interactive difference data table ──
Error in ``[.data.table`(diffDataDetailed, , `:=`((colsDiff), { if (all(`Comparison type` == "Addition")) { as.list(rep("+", length(cols))) } else if (all(`Comparison type` == "Removal")) { as.list(rep("-", length(cols))) } else { lapply(.SD, function(x) { ifelse(uniqueN(x) == 1, "==", "!=") }) } }), .SDcols = cols, by = referenceVars)`: attempt access index 5/5 in VECTOR_ELT
Backtrace:
▆
1. ├─testthat::expect_silent(...) at test_compareTables.R:378:7
2. │ └─testthat:::quasi_capture(enquo(object), NULL, evaluate_promise)
3. │ ├─testthat (local) .capture(...)
4. │ │ ├─withr::with_output_sink(...)
5. │ │ │ └─base::force(code)
6. │ │ ├─base::withCallingHandlers(...)
7. │ │ └─base::withVisible(code)
8. │ └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
9. └─clinUtils::exportDiffData(...)
10. └─clinUtils:::formatDetailsComparison(...)
11. ├─...[]
12. └─data.table:::`[.data.table`(...)
[ FAIL 6 | WARN 1 | SKIP 2 | PASS 289 ]
Error:
! Test failures.
Execution halted
Flavor: r-devel-linux-x86_64-fedora-gcc
Version: 0.2.2
Check: installed package size
Result: NOTE
installed size is 7.7Mb
sub-directories of 1Mb or more:
doc 6.6Mb
Flavors: r-oldrel-macos-arm64, r-oldrel-macos-x86_64, r-oldrel-windows-x86_64