Last updated on 2025-12-21 11:50:33 CET.
| Package | ERROR | OK |
|---|---|---|
| pacta.loanbook | 3 | 10 |
| pacta.multi.loanbook | 3 | 10 |
| r2dii.analysis | 3 | 10 |
| r2dii.data | 13 | |
| r2dii.match | 4 | 9 |
Current CRAN status: ERROR: 3, OK: 10
Version: 0.1.1
Check: examples
Result: ERROR
Running examples in ‘pacta.loanbook-Ex.R’ failed
The error most likely occurred in:
> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: match_name
> ### Title: Match a loanbook to asset-based company data (abcd) by the
> ### name_* columns
> ### Aliases: match_name
>
> ### ** Examples
>
> library(r2dii.data)
Attaching package: ‘r2dii.data’
The following object is masked from ‘package:pacta.loanbook’:
data_dictionary
> library(tibble)
>
> # Small data for examples
> loanbook <- head(loanbook_demo, 50)
> abcd <- head(abcd_demo, 50)
>
> match_name(loanbook, abcd)
Error in `[.data.table`(matched, , `:=`(pick, none_is_one(score) | some_is_one(score)), :
attempt access index 10/10 in VECTOR_ELT
Calls: match_name -> match_name_impl -> [ -> [.data.table
Execution halted
Flavors: r-devel-linux-x86_64-debian-clang, r-devel-linux-x86_64-debian-gcc
Version: 0.1.1
Check: examples
Result: ERROR
Running examples in ‘pacta.loanbook-Ex.R’ failed
The error most likely occurred in:
> ### Name: match_name
> ### Title: Match a loanbook to asset-based company data (abcd) by the
> ### name_* columns
> ### Aliases: match_name
>
> ### ** Examples
>
> library(r2dii.data)
Attaching package: ‘r2dii.data’
The following object is masked from ‘package:pacta.loanbook’:
data_dictionary
> library(tibble)
>
> # Small data for examples
> loanbook <- head(loanbook_demo, 50)
> abcd <- head(abcd_demo, 50)
>
> match_name(loanbook, abcd)
Error in `[.data.table`(matched, , `:=`(pick, none_is_one(score) | some_is_one(score)), :
attempt access index 10/10 in VECTOR_ELT
Calls: match_name -> match_name_impl -> [ -> [.data.table
Execution halted
Flavor: r-devel-linux-x86_64-fedora-clang
Current CRAN status: ERROR: 3, OK: 10
Version: 0.1.1
Check: tests
Result: ERROR
Running ‘testthat.R’ [13s/17s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
> # This file is part of the standard setup for testthat.
> # It is recommended that you do not modify it.
> #
> # Where should you do additional test configuration?
> # Learn more about the roles of various files in:
> # * https://r-pkgs.org/testing-design.html#sec-tests-files-overview
> # * https://testthat.r-lib.org/articles/special-files.html
>
> library(testthat)
> library(pacta.multi.loanbook)
>
> test_check("pacta.multi.loanbook")
Saving _problems/test-2-match_loanbooks-24.R
Saving _problems/test-3-prioritise_and_diagnose-43.R
Saving _problems/test-4-analyse-30.R
Saving _problems/test-run_calculate_match_success_rate-29.R
Saving _problems/test-run_calculate_match_success_rate-64.R
Saving _problems/test-run_calculate_match_success_rate-94.R
Saving _problems/test-run_calculate_match_success_rate-132.R
Saving _problems/test-run_calculate_match_success_rate-193.R
[ FAIL 8 | WARN 0 | SKIP 0 | PASS 140 ]
══ Failed tests ════════════════════════════════════════════════════════════════
── Failure ('test-2-match_loanbooks.R:24:3'): with known input, runs without error ──
Expected `suppressMessages(match_loanbooks(config))` not to throw any errors.
Actually got a <simpleError> with message:
attempt access index 10/10 in VECTOR_ELT
── Error ('test-3-prioritise_and_diagnose.R:40:3'): with known input, runs without error ──
Error: '/home/hornik/tmp/scratch/RtmpDMbdoi/test-data/output/matched_loanbooks/matched_lbk_raw_loanbook_1.csv' does not exist.
Backtrace:
▆
1. ├─... %>% readr::write_csv(manual_path, na = "") at test-3-prioritise_and_diagnose.R:40:3
2. ├─readr::write_csv(., manual_path, na = "")
3. │ └─readr::write_delim(...)
4. │ ├─base::stopifnot(is.data.frame(x))
5. │ └─base::is.data.frame(x)
6. ├─dplyr::slice_head(., by = id_loan)
7. ├─dplyr::slice_max(., order_by = score, by = id_loan)
8. ├─readr::read_csv(matched_path, show_col_types = FALSE)
9. │ └─vroom::vroom(...)
10. │ └─vroom:::vroom_(...)
11. └─vroom (local) `<fn>`("/home/hornik/tmp/scratch/RtmpDMbdoi/test-data/output/matched_loanbooks/matched_lbk_raw_loanbook_1.csv")
12. └─vroom:::check_path(path)
── Failure ('test-4-analyse.R:30:3'): with known input, runs without error ─────
Expected `suppressMessages(suppressWarnings(analyse(config)))` not to throw any errors.
Actually got a <rlang_error> with message:
x No matched prioritized loan book CSVs found.
i Directory searched: '/home/hornik/tmp/scratch/RtmpDMbdoi/test-data/output/prioritized_loanbooks_and_diagnostics'
i Check the `dir_prioritized_loanbooks_and_diagnostics` parameter in your 'config.yml'.
── Error ('test-run_calculate_match_success_rate.R:28:3'): combine_raw_and_matched_loan_books identifies correct matched and unmatched loans ──
Error in ``[.data.table`(matched, , `:=`(pick, none_is_one(score) | some_is_one(score)), by = id_2dii)`: attempt access index 10/10 in VECTOR_ELT
Backtrace:
▆
1. ├─test_raw %>% ... at test-run_calculate_match_success_rate.R:28:3
2. └─r2dii.match::match_name(...)
3. └─r2dii.match:::match_name_impl(...)
4. ├─...[]
5. └─data.table:::`[.data.table`(...)
── Error ('test-run_calculate_match_success_rate.R:62:3'): combine_raw_and_matched_loan_books removes group_id from id_loan where needed (GH #90) ──
Error in ``[.data.table`(matched, , `:=`(pick, none_is_one(score) | some_is_one(score)), by = id_2dii)`: attempt access index 10/10 in VECTOR_ELT
Backtrace:
▆
1. ├─... %>% ... at test-run_calculate_match_success_rate.R:62:3
2. ├─dplyr::mutate(., id_loan = paste(id_loan, group_id, sep = "_"))
3. └─r2dii.match::match_name(...)
4. └─r2dii.match:::match_name_impl(...)
5. ├─...[]
6. └─data.table:::`[.data.table`(...)
── Error ('test-run_calculate_match_success_rate.R:92:3'): combine_raw_and_matched_loan_books removes sector_abcd from id_loan where needed (GH #90) ──
Error in ``[.data.table`(matched, , `:=`(pick, none_is_one(score) | some_is_one(score)), by = id_2dii)`: attempt access index 10/10 in VECTOR_ELT
Backtrace:
▆
1. ├─... %>% ... at test-run_calculate_match_success_rate.R:92:3
2. ├─dplyr::mutate(., id_loan = paste(id_loan, sector_abcd, sep = "_"))
3. └─r2dii.match::match_name(...)
4. └─r2dii.match:::match_name_impl(...)
5. ├─...[]
6. └─data.table:::`[.data.table`(...)
── Error ('test-run_calculate_match_success_rate.R:130:3'): calculate_match_success_rate returns results for each group of variable by_group available in matched_prioritized ──
Error in ``[.data.table`(matched, , `:=`(pick, none_is_one(score) | some_is_one(score)), by = id_2dii)`: attempt access index 10/10 in VECTOR_ELT
Backtrace:
▆
1. ├─... %>% ... at test-run_calculate_match_success_rate.R:130:3
2. ├─dplyr::filter(., .data[["level"]] == "direct_loantaker")
3. └─r2dii.match::match_name(...)
4. └─r2dii.match:::match_name_impl(...)
5. ├─...[]
6. └─data.table:::`[.data.table`(...)
── Error ('test-run_calculate_match_success_rate.R:191:3'): calculate_match_success_rate can only be calculated for by_groups that are available the raw and the matched priortized loan books ──
Error in ``[.data.table`(matched, , `:=`(pick, none_is_one(score) | some_is_one(score)), by = id_2dii)`: attempt access index 10/10 in VECTOR_ELT
Backtrace:
▆
1. ├─... %>% ... at test-run_calculate_match_success_rate.R:191:3
2. ├─dplyr::filter(., .data[["level"]] == "direct_loantaker")
3. └─r2dii.match::match_name(...)
4. └─r2dii.match:::match_name_impl(...)
5. ├─...[]
6. └─data.table:::`[.data.table`(...)
[ FAIL 8 | WARN 0 | SKIP 0 | PASS 140 ]
Error:
! Test failures.
Execution halted
Flavor: r-devel-linux-x86_64-debian-clang
Version: 0.1.1
Check: tests
Result: ERROR
Running ‘testthat.R’ [9s/12s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
> # This file is part of the standard setup for testthat.
> # It is recommended that you do not modify it.
> #
> # Where should you do additional test configuration?
> # Learn more about the roles of various files in:
> # * https://r-pkgs.org/testing-design.html#sec-tests-files-overview
> # * https://testthat.r-lib.org/articles/special-files.html
>
> library(testthat)
> library(pacta.multi.loanbook)
>
> test_check("pacta.multi.loanbook")
Saving _problems/test-2-match_loanbooks-24.R
Saving _problems/test-3-prioritise_and_diagnose-43.R
Saving _problems/test-4-analyse-30.R
Saving _problems/test-run_calculate_match_success_rate-29.R
Saving _problems/test-run_calculate_match_success_rate-64.R
Saving _problems/test-run_calculate_match_success_rate-94.R
Saving _problems/test-run_calculate_match_success_rate-132.R
Saving _problems/test-run_calculate_match_success_rate-193.R
[ FAIL 8 | WARN 0 | SKIP 0 | PASS 140 ]
══ Failed tests ════════════════════════════════════════════════════════════════
── Failure ('test-2-match_loanbooks.R:24:3'): with known input, runs without error ──
Expected `suppressMessages(match_loanbooks(config))` not to throw any errors.
Actually got a <simpleError> with message:
attempt access index 10/10 in VECTOR_ELT
── Error ('test-3-prioritise_and_diagnose.R:40:3'): with known input, runs without error ──
Error: '/tmp/RtmpqIKLBA/test-data/output/matched_loanbooks/matched_lbk_raw_loanbook_1.csv' does not exist.
Backtrace:
▆
1. ├─... %>% readr::write_csv(manual_path, na = "") at test-3-prioritise_and_diagnose.R:40:3
2. ├─readr::write_csv(., manual_path, na = "")
3. │ └─readr::write_delim(...)
4. │ ├─base::stopifnot(is.data.frame(x))
5. │ └─base::is.data.frame(x)
6. ├─dplyr::slice_head(., by = id_loan)
7. ├─dplyr::slice_max(., order_by = score, by = id_loan)
8. ├─readr::read_csv(matched_path, show_col_types = FALSE)
9. │ └─vroom::vroom(...)
10. │ └─vroom:::vroom_(...)
11. └─vroom (local) `<fn>`("/tmp/RtmpqIKLBA/test-data/output/matched_loanbooks/matched_lbk_raw_loanbook_1.csv")
12. └─vroom:::check_path(path)
── Failure ('test-4-analyse.R:30:3'): with known input, runs without error ─────
Expected `suppressMessages(suppressWarnings(analyse(config)))` not to throw any errors.
Actually got a <rlang_error> with message:
x No matched prioritized loan book CSVs found.
i Directory searched: '/tmp/RtmpqIKLBA/test-data/output/prioritized_loanbooks_and_diagnostics'
i Check the `dir_prioritized_loanbooks_and_diagnostics` parameter in your 'config.yml'.
── Error ('test-run_calculate_match_success_rate.R:28:3'): combine_raw_and_matched_loan_books identifies correct matched and unmatched loans ──
Error in ``[.data.table`(matched, , `:=`(pick, none_is_one(score) | some_is_one(score)), by = id_2dii)`: attempt access index 10/10 in VECTOR_ELT
Backtrace:
▆
1. ├─test_raw %>% ... at test-run_calculate_match_success_rate.R:28:3
2. └─r2dii.match::match_name(...)
3. └─r2dii.match:::match_name_impl(...)
4. ├─...[]
5. └─data.table:::`[.data.table`(...)
── Error ('test-run_calculate_match_success_rate.R:62:3'): combine_raw_and_matched_loan_books removes group_id from id_loan where needed (GH #90) ──
Error in ``[.data.table`(matched, , `:=`(pick, none_is_one(score) | some_is_one(score)), by = id_2dii)`: attempt access index 10/10 in VECTOR_ELT
Backtrace:
▆
1. ├─... %>% ... at test-run_calculate_match_success_rate.R:62:3
2. ├─dplyr::mutate(., id_loan = paste(id_loan, group_id, sep = "_"))
3. └─r2dii.match::match_name(...)
4. └─r2dii.match:::match_name_impl(...)
5. ├─...[]
6. └─data.table:::`[.data.table`(...)
── Error ('test-run_calculate_match_success_rate.R:92:3'): combine_raw_and_matched_loan_books removes sector_abcd from id_loan where needed (GH #90) ──
Error in ``[.data.table`(matched, , `:=`(pick, none_is_one(score) | some_is_one(score)), by = id_2dii)`: attempt access index 10/10 in VECTOR_ELT
Backtrace:
▆
1. ├─... %>% ... at test-run_calculate_match_success_rate.R:92:3
2. ├─dplyr::mutate(., id_loan = paste(id_loan, sector_abcd, sep = "_"))
3. └─r2dii.match::match_name(...)
4. └─r2dii.match:::match_name_impl(...)
5. ├─...[]
6. └─data.table:::`[.data.table`(...)
── Error ('test-run_calculate_match_success_rate.R:130:3'): calculate_match_success_rate returns results for each group of variable by_group available in matched_prioritized ──
Error in ``[.data.table`(matched, , `:=`(pick, none_is_one(score) | some_is_one(score)), by = id_2dii)`: attempt access index 10/10 in VECTOR_ELT
Backtrace:
▆
1. ├─... %>% ... at test-run_calculate_match_success_rate.R:130:3
2. ├─dplyr::filter(., .data[["level"]] == "direct_loantaker")
3. └─r2dii.match::match_name(...)
4. └─r2dii.match:::match_name_impl(...)
5. ├─...[]
6. └─data.table:::`[.data.table`(...)
── Error ('test-run_calculate_match_success_rate.R:191:3'): calculate_match_success_rate can only be calculated for by_groups that are available the raw and the matched priortized loan books ──
Error in ``[.data.table`(matched, , `:=`(pick, none_is_one(score) | some_is_one(score)), by = id_2dii)`: attempt access index 10/10 in VECTOR_ELT
Backtrace:
▆
1. ├─... %>% ... at test-run_calculate_match_success_rate.R:191:3
2. ├─dplyr::filter(., .data[["level"]] == "direct_loantaker")
3. └─r2dii.match::match_name(...)
4. └─r2dii.match:::match_name_impl(...)
5. ├─...[]
6. └─data.table:::`[.data.table`(...)
[ FAIL 8 | WARN 0 | SKIP 0 | PASS 140 ]
Error:
! Test failures.
Execution halted
Flavor: r-devel-linux-x86_64-debian-gcc
Version: 0.1.1
Check: tests
Result: ERROR
Running ‘testthat.R’ [18s/45s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
> # This file is part of the standard setup for testthat.
> # It is recommended that you do not modify it.
> #
> # Where should you do additional test configuration?
> # Learn more about the roles of various files in:
> # * https://r-pkgs.org/testing-design.html#sec-tests-files-overview
> # * https://testthat.r-lib.org/articles/special-files.html
>
> library(testthat)
> library(pacta.multi.loanbook)
>
> test_check("pacta.multi.loanbook")
Saving _problems/test-2-match_loanbooks-24.R
Saving _problems/test-3-prioritise_and_diagnose-43.R
Saving _problems/test-4-analyse-30.R
Saving _problems/test-run_calculate_match_success_rate-29.R
Saving _problems/test-run_calculate_match_success_rate-64.R
Saving _problems/test-run_calculate_match_success_rate-94.R
Saving _problems/test-run_calculate_match_success_rate-132.R
Saving _problems/test-run_calculate_match_success_rate-193.R
[ FAIL 8 | WARN 0 | SKIP 0 | PASS 140 ]
══ Failed tests ════════════════════════════════════════════════════════════════
── Failure ('test-2-match_loanbooks.R:24:3'): with known input, runs without error ──
Expected `suppressMessages(match_loanbooks(config))` not to throw any errors.
Actually got a <simpleError> with message:
attempt access index 10/10 in VECTOR_ELT
── Error ('test-3-prioritise_and_diagnose.R:40:3'): with known input, runs without error ──
Error: '/tmp/RtmpPIJh4d/working_dir/RtmpP96NzC/test-data/output/matched_loanbooks/matched_lbk_raw_loanbook_1.csv' does not exist.
Backtrace:
▆
1. ├─... %>% readr::write_csv(manual_path, na = "") at test-3-prioritise_and_diagnose.R:40:3
2. ├─readr::write_csv(., manual_path, na = "")
3. │ └─readr::write_delim(...)
4. │ ├─base::stopifnot(is.data.frame(x))
5. │ └─base::is.data.frame(x)
6. ├─dplyr::slice_head(., by = id_loan)
7. ├─dplyr::slice_max(., order_by = score, by = id_loan)
8. ├─readr::read_csv(matched_path, show_col_types = FALSE)
9. │ └─vroom::vroom(...)
10. │ └─vroom:::vroom_(...)
11. └─vroom (local) `<fn>`("/tmp/RtmpPIJh4d/working_dir/RtmpP96NzC/test-data/output/matched_loanbooks/matched_lbk_raw_loanbook_1.csv")
12. └─vroom:::check_path(path)
── Failure ('test-4-analyse.R:30:3'): with known input, runs without error ─────
Expected `suppressMessages(suppressWarnings(analyse(config)))` not to throw any errors.
Actually got a <rlang_error> with message:
x No matched prioritized loan book CSVs found.
i Directory searched: '/tmp/RtmpPIJh4d/working_dir/RtmpP96NzC/test-data/output/prioritized_loanbooks_and_diagnostics'
i Check the `dir_prioritized_loanbooks_and_diagnostics` parameter in your 'config.yml'.
── Error ('test-run_calculate_match_success_rate.R:28:3'): combine_raw_and_matched_loan_books identifies correct matched and unmatched loans ──
Error in ``[.data.table`(matched, , `:=`(pick, none_is_one(score) | some_is_one(score)), by = id_2dii)`: attempt access index 10/10 in VECTOR_ELT
Backtrace:
▆
1. ├─test_raw %>% ... at test-run_calculate_match_success_rate.R:28:3
2. └─r2dii.match::match_name(...)
3. └─r2dii.match:::match_name_impl(...)
4. ├─...[]
5. └─data.table:::`[.data.table`(...)
── Error ('test-run_calculate_match_success_rate.R:62:3'): combine_raw_and_matched_loan_books removes group_id from id_loan where needed (GH #90) ──
Error in ``[.data.table`(matched, , `:=`(pick, none_is_one(score) | some_is_one(score)), by = id_2dii)`: attempt access index 10/10 in VECTOR_ELT
Backtrace:
▆
1. ├─... %>% ... at test-run_calculate_match_success_rate.R:62:3
2. ├─dplyr::mutate(., id_loan = paste(id_loan, group_id, sep = "_"))
3. └─r2dii.match::match_name(...)
4. └─r2dii.match:::match_name_impl(...)
5. ├─...[]
6. └─data.table:::`[.data.table`(...)
── Error ('test-run_calculate_match_success_rate.R:92:3'): combine_raw_and_matched_loan_books removes sector_abcd from id_loan where needed (GH #90) ──
Error in ``[.data.table`(matched, , `:=`(pick, none_is_one(score) | some_is_one(score)), by = id_2dii)`: attempt access index 10/10 in VECTOR_ELT
Backtrace:
▆
1. ├─... %>% ... at test-run_calculate_match_success_rate.R:92:3
2. ├─dplyr::mutate(., id_loan = paste(id_loan, sector_abcd, sep = "_"))
3. └─r2dii.match::match_name(...)
4. └─r2dii.match:::match_name_impl(...)
5. ├─...[]
6. └─data.table:::`[.data.table`(...)
── Error ('test-run_calculate_match_success_rate.R:130:3'): calculate_match_success_rate returns results for each group of variable by_group available in matched_prioritized ──
Error in ``[.data.table`(matched, , `:=`(pick, none_is_one(score) | some_is_one(score)), by = id_2dii)`: attempt access index 10/10 in VECTOR_ELT
Backtrace:
▆
1. ├─... %>% ... at test-run_calculate_match_success_rate.R:130:3
2. ├─dplyr::filter(., .data[["level"]] == "direct_loantaker")
3. └─r2dii.match::match_name(...)
4. └─r2dii.match:::match_name_impl(...)
5. ├─...[]
6. └─data.table:::`[.data.table`(...)
── Error ('test-run_calculate_match_success_rate.R:191:3'): calculate_match_success_rate can only be calculated for by_groups that are available the raw and the matched priortized loan books ──
Error in ``[.data.table`(matched, , `:=`(pick, none_is_one(score) | some_is_one(score)), by = id_2dii)`: attempt access index 10/10 in VECTOR_ELT
Backtrace:
▆
1. ├─... %>% ... at test-run_calculate_match_success_rate.R:191:3
2. ├─dplyr::filter(., .data[["level"]] == "direct_loantaker")
3. └─r2dii.match::match_name(...)
4. └─r2dii.match:::match_name_impl(...)
5. ├─...[]
6. └─data.table:::`[.data.table`(...)
[ FAIL 8 | WARN 0 | SKIP 0 | PASS 140 ]
Error:
! Test failures.
Execution halted
Flavor: r-devel-linux-x86_64-fedora-clang
Current CRAN status: ERROR: 3, OK: 10
Version: 0.5.2
Check: examples
Result: ERROR
Running examples in ‘r2dii.analysis-Ex.R’ failed
The error most likely occurred in:
> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: join_abcd_scenario
> ### Title: Join a data-loanbook object to the abcd and scenario
> ### Aliases: join_abcd_scenario
> ### Keywords: internal
>
> ### ** Examples
>
> ## Don't show:
> if (rlang::is_installed("r2dii.data") && rlang::is_installed("r2dii.match", version = "0.1.0")) (if (getRversion() >= "3.4") withAutoprint else force)({ # examplesIf
+ ## End(Don't show)
+ library(r2dii.data)
+ library(r2dii.match)
+
+ valid_matches <- match_name(loanbook_demo, abcd_demo) %>%
+ # WARNING: Remember to validate matches (see `?prioritize`)
+ prioritize()
+
+ valid_matches %>%
+ join_abcd_scenario(
+ abcd = abcd_demo,
+ scenario = scenario_demo_2020,
+ region_isos = region_isos_demo
+ )
+ ## Don't show:
+ }) # examplesIf
> library(r2dii.data)
Attaching package: ‘r2dii.data’
The following object is masked from ‘package:r2dii.analysis’:
data_dictionary
> library(r2dii.match)
Attaching package: ‘r2dii.match’
The following object is masked from ‘package:r2dii.data’:
data_dictionary
The following object is masked from ‘package:r2dii.analysis’:
data_dictionary
> valid_matches <- match_name(loanbook_demo, abcd_demo) %>% prioritize()
Error in `[.data.table`(matched, , `:=`(pick, none_is_one(score) | some_is_one(score)), :
attempt access index 10/10 in VECTOR_ELT
Calls: <Anonymous> ... nrow -> match_name -> match_name_impl -> [ -> [.data.table
Execution halted
Flavors: r-devel-linux-x86_64-debian-clang, r-devel-linux-x86_64-debian-gcc
Version: 0.5.2
Check: examples
Result: ERROR
Running examples in ‘r2dii.analysis-Ex.R’ failed
The error most likely occurred in:
> ### Name: join_abcd_scenario
> ### Title: Join a data-loanbook object to the abcd and scenario
> ### Aliases: join_abcd_scenario
> ### Keywords: internal
>
> ### ** Examples
>
> ## Don't show:
> if (rlang::is_installed("r2dii.data") && rlang::is_installed("r2dii.match", version = "0.1.0")) (if (getRversion() >= "3.4") withAutoprint else force)({ # examplesIf
+ ## End(Don't show)
+ library(r2dii.data)
+ library(r2dii.match)
+
+ valid_matches <- match_name(loanbook_demo, abcd_demo) %>%
+ # WARNING: Remember to validate matches (see `?prioritize`)
+ prioritize()
+
+ valid_matches %>%
+ join_abcd_scenario(
+ abcd = abcd_demo,
+ scenario = scenario_demo_2020,
+ region_isos = region_isos_demo
+ )
+ ## Don't show:
+ }) # examplesIf
> library(r2dii.data)
Attaching package: ‘r2dii.data’
The following object is masked from ‘package:r2dii.analysis’:
data_dictionary
> library(r2dii.match)
Attaching package: ‘r2dii.match’
The following object is masked from ‘package:r2dii.data’:
data_dictionary
The following object is masked from ‘package:r2dii.analysis’:
data_dictionary
> valid_matches <- match_name(loanbook_demo, abcd_demo) %>% prioritize()
Error in `[.data.table`(matched, , `:=`(pick, none_is_one(score) | some_is_one(score)), :
attempt access index 10/10 in VECTOR_ELT
Calls: <Anonymous> ... nrow -> match_name -> match_name_impl -> [ -> [.data.table
Execution halted
Flavor: r-devel-linux-x86_64-fedora-clang
Current CRAN status: OK: 13
Current CRAN status: ERROR: 4, OK: 9
Version: 0.4.1
Check: examples
Result: ERROR
Running examples in ‘r2dii.match-Ex.R’ failed
The error most likely occurred in:
> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: match_name
> ### Title: Match a loanbook to asset-based company data (abcd) by the
> ### name_* columns
> ### Aliases: match_name
>
> ### ** Examples
>
> library(r2dii.data)
Attaching package: ‘r2dii.data’
The following object is masked from ‘package:r2dii.match’:
data_dictionary
> library(tibble)
>
> # Small data for examples
> loanbook <- head(loanbook_demo, 50)
> abcd <- head(abcd_demo, 50)
>
> match_name(loanbook, abcd)
Error in `[.data.table`(matched, , `:=`(pick, none_is_one(score) | some_is_one(score)), :
attempt access index 10/10 in VECTOR_ELT
Calls: match_name -> match_name_impl -> [ -> [.data.table
Execution halted
Flavors: r-devel-linux-x86_64-debian-clang, r-devel-linux-x86_64-debian-gcc
Version: 0.4.1
Check: tests
Result: ERROR
Running ‘spelling.R’ [0s/0s]
Running ‘testthat.R’ [26s/25s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
> Sys.setenv("OMP_THREAD_LIMIT" = 2)
>
> library(testthat)
> library(r2dii.match)
>
> test_check("r2dii.match")
Saving _problems/test-match_name-25.R
Found no match via fuzzy matching.
Saving _problems/test-match_name-68.R
Saving _problems/test-match_name-81.R
Found no match via fuzzy matching.
Saving _problems/test-match_name-129.R
Found no match via fuzzy matching.
Saving _problems/test-match_name-140.R
Found no match via fuzzy matching.
Saving _problems/test-match_name-174.R
Saving _problems/test-match_name-185.R
Saving _problems/test-match_name-191.R
Saving _problems/test-match_name-203.R
Saving _problems/test-match_name-215.R
Saving _problems/test-match_name-233.R
Saving _problems/test-match_name-248.R
Saving _problems/test-match_name-257.R
Saving _problems/test-match_name-263.R
Saving _problems/test-match_name-267.R
Saving _problems/test-match_name-272.R
Saving _problems/test-match_name-285.R
Saving _problems/test-match_name-296.R
Saving _problems/test-match_name-309.R
Saving _problems/test-match_name-313.R
Saving _problems/test-match_name-319.R
Saving _problems/test-match_name-357.R
Saving _problems/test-match_name-372.R
Saving _problems/test-match_name-462.R
Found no match via fuzzy matching.
Saving _problems/test-match_name-499.R
Saving _problems/test-match_name-510.R
Saving _problems/test-match_name-516.R
Saving _problems/test-match_name-517.R
Saving _problems/test-match_name-585.R
Saving _problems/test-match_name-591.R
Saving _problems/test-match_name-604.R
Saving _problems/test-match_name-620.R
Saving _problems/test-match_name-637.R
Found no match via fuzzy matching.
Saving _problems/test-match_name-670.R
Saving _problems/test-match_name-712.R
Found no match via fuzzy matching.
Saving _problems/test-match_name-828.R
Saving _problems/test-match_name-856.R
Saving _problems/test-prioritize-9.R
Found no match via fuzzy matching.
Saving _problems/test-prioritize-253.R
[ FAIL 39 | WARN 0 | SKIP 1 | PASS 136 ]
══ Skipped tests (1) ═══════════════════════════════════════════════════════════
• Not run in R CMD check (env var `R_CMD` is set) (1):
'test-data_dictionary.R:3:5'
══ Failed tests ════════════════════════════════════════════════════════════════
── Error ('test-match_name.R:25:3'): w/ non-NA only at intermediate level yields matches at intermediate
level only ──
Error in ``[.data.table`(matched, , `:=`(pick, none_is_one(score) | some_is_one(score)), by = id_2dii)`: attempt access index 10/10 in VECTOR_ELT
Backtrace:
▆
1. └─r2dii.match::match_name(lbk, abcd) at test-match_name.R:25:3
2. └─r2dii.match:::match_name_impl(...)
3. ├─...[]
4. └─data.table:::`[.data.table`(...)
── Error ('test-match_name.R:68:3'): w/ 1 lbk row matching 1 abcd company in 2 sectors outputs 2 rows ──
Error in ``[.data.table`(matched, , `:=`(pick, none_is_one(score) | some_is_one(score)), by = id_2dii)`: attempt access index 10/10 in VECTOR_ELT
Backtrace:
▆
1. └─r2dii.match::match_name(lbk, abcd, by_sector = FALSE) at test-match_name.R:68:3
2. └─r2dii.match:::match_name_impl(...)
3. ├─...[]
4. └─data.table:::`[.data.table`(...)
── Error ('test-match_name.R:76:3'): `by_sector = TRUE` yields only matching sectors ──
Error in ``[.data.table`(matched, , `:=`(pick, none_is_one(score) | some_is_one(score)), by = id_2dii)`: attempt access index 10/10 in VECTOR_ELT
Backtrace:
▆
1. ├─... %>% filter(sector != sector_abcd) at test-match_name.R:76:3
2. ├─dplyr::filter(., sector != sector_abcd)
3. └─r2dii.match::match_name(fake_lbk(), fake_abcd(), by_sector = TRUE)
4. └─r2dii.match:::match_name_impl(...)
5. ├─...[]
6. └─data.table:::`[.data.table`(...)
── Error ('test-match_name.R:126:3'): w/ row 1 of loanbook and crucial cols yields expected ──
Error in ``[.data.table`(matched, , `:=`(pick, none_is_one(score) | some_is_one(score)), by = id_2dii)`: attempt access index 10/10 in VECTOR_ELT
Backtrace:
▆
1. ├─testthat::expect_equal(match_name(fake_lbk(), fake_abcd()), expected) at test-match_name.R:126:3
2. │ └─testthat::quasi_label(enquo(object), label)
3. │ └─rlang::eval_bare(expr, quo_get_env(quo))
4. └─r2dii.match::match_name(fake_lbk(), fake_abcd())
5. └─r2dii.match:::match_name_impl(...)
6. ├─...[]
7. └─data.table:::`[.data.table`(...)
── Failure ('test-match_name.R:140:3'): takes unprepared loanbook and abcd datasets ──
Expected `match_name(slice(r2dii.data::loanbook_demo, 1), r2dii.data::abcd_demo)` not to throw any errors.
Actually got a <simpleError> with message:
attempt access index 10/10 in VECTOR_ELT
Backtrace:
▆
1. ├─r2dii.match:::expect_no_error(...) at test-match_name.R:140:3
2. │ └─testthat::expect_error(regexp = NA, ...) at ./helper-cnd.R:4:3
3. │ └─testthat:::expect_condition_matching_(...)
4. │ └─testthat:::quasi_capture(...)
5. │ ├─testthat (local) .capture(...)
6. │ │ └─base::withCallingHandlers(...)
7. │ └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
8. └─r2dii.match::match_name(...)
9. └─r2dii.match:::match_name_impl(...)
10. ├─...[]
11. └─data.table:::`[.data.table`(...)
── Error ('test-match_name.R:171:3'): w/ 2 lbk rows matching 2 abcd rows, yields expected names ──
Error in ``[.data.table`(matched, , `:=`(pick, none_is_one(score) | some_is_one(score)), by = id_2dii)`: attempt access index 10/10 in VECTOR_ELT
Backtrace:
▆
1. ├─testthat::expect_named(...) at test-match_name.R:171:3
2. │ └─testthat::quasi_label(enquo(object), label)
3. │ └─rlang::eval_bare(expr, quo_get_env(quo))
4. └─r2dii.match::match_name(lbk45, r2dii.data::abcd_demo)
5. └─r2dii.match:::match_name_impl(...)
6. ├─...[]
7. └─data.table:::`[.data.table`(...)
── Error ('test-match_name.R:182:3'): w/ 1 lbk row matching ultimate, yields expected names ──
Error in ``[.data.table`(matched, , `:=`(pick, none_is_one(score) | some_is_one(score)), by = id_2dii)`: attempt access index 10/10 in VECTOR_ELT
Backtrace:
▆
1. ├─testthat::expect_named(...) at test-match_name.R:182:3
2. │ └─testthat::quasi_label(enquo(object), label)
3. │ └─rlang::eval_bare(expr, quo_get_env(quo))
4. └─r2dii.match::match_name(lbk1, r2dii.data::abcd_demo)
5. └─r2dii.match:::match_name_impl(...)
6. ├─...[]
7. └─data.table:::`[.data.table`(...)
── Failure ('test-match_name.R:189:3'): takes `min_score` ──────────────────────
Expected `match_name(...)` not to throw any errors.
Actually got a <simpleError> with message:
attempt access index 10/10 in VECTOR_ELT
Backtrace:
▆
1. ├─r2dii.match:::expect_no_error(...) at test-match_name.R:189:3
2. │ └─testthat::expect_error(regexp = NA, ...) at ./helper-cnd.R:4:3
3. │ └─testthat:::expect_condition_matching_(...)
4. │ └─testthat:::quasi_capture(...)
5. │ ├─testthat (local) .capture(...)
6. │ │ └─base::withCallingHandlers(...)
7. │ └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
8. └─r2dii.match::match_name(...)
9. └─r2dii.match:::match_name_impl(...)
10. ├─...[]
11. └─data.table:::`[.data.table`(...)
── Error ('test-match_name.R:198:3'): takes `method` ───────────────────────────
Error in ``[.data.table`(matched, , `:=`(pick, none_is_one(score) | some_is_one(score)), by = id_2dii)`: attempt access index 10/10 in VECTOR_ELT
Backtrace:
▆
1. ├─testthat::expect_false(...) at test-match_name.R:198:3
2. │ └─testthat::quasi_label(enquo(object), label)
3. │ └─rlang::eval_bare(expr, quo_get_env(quo))
4. ├─base::identical(...)
5. └─r2dii.match::match_name(lbk_method, r2dii.data::abcd_demo, method = "jw")
6. └─r2dii.match:::match_name_impl(...)
7. ├─...[]
8. └─data.table:::`[.data.table`(...)
── Error ('test-match_name.R:210:3'): takes `p` ────────────────────────────────
Error in ``[.data.table`(matched, , `:=`(pick, none_is_one(score) | some_is_one(score)), by = id_2dii)`: attempt access index 10/10 in VECTOR_ELT
Backtrace:
▆
1. ├─testthat::expect_false(...) at test-match_name.R:210:3
2. │ └─testthat::quasi_label(enquo(object), label)
3. │ └─rlang::eval_bare(expr, quo_get_env(quo))
4. ├─base::identical(...)
5. └─r2dii.match::match_name(lbk_p, r2dii.data::abcd_demo, p = 0.1)
6. └─r2dii.match:::match_name_impl(...)
7. ├─...[]
8. └─data.table:::`[.data.table`(...)
── Error ('test-match_name.R:228:3'): takes `overwrite` ────────────────────────
Error in ``[.data.table`(matched, , `:=`(pick, none_is_one(score) | some_is_one(score)), by = id_2dii)`: attempt access index 10/10 in VECTOR_ELT
Backtrace:
▆
1. ├─testthat::expect_false(...) at test-match_name.R:228:3
2. │ └─testthat::quasi_label(enquo(object), label)
3. │ └─rlang::eval_bare(expr, quo_get_env(quo))
4. ├─base::identical(...)
5. └─r2dii.match::match_name(lbk, r2dii.data::abcd_demo, overwrite = NULL)
6. └─r2dii.match:::match_name_impl(...)
7. ├─...[]
8. └─data.table:::`[.data.table`(...)
── Error ('test-match_name.R:245:3'): warns overwrite ──────────────────────────
Error in ``[.data.table`(matched, , `:=`(pick, none_is_one(score) | some_is_one(score)), by = id_2dii)`: attempt access index 10/10 in VECTOR_ELT
Backtrace:
▆
1. ├─testthat::expect_warning(...) at test-match_name.R:245:3
2. │ └─testthat:::expect_condition_matching_(...)
3. │ └─testthat:::quasi_capture(...)
4. │ ├─testthat (local) .capture(...)
5. │ │ └─base::withCallingHandlers(...)
6. │ └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
7. └─r2dii.match::match_name(lbk, r2dii.data::abcd_demo, overwrite = overwrite_demo)
8. └─r2dii.match:::match_name_impl(...)
9. ├─...[]
10. └─data.table:::`[.data.table`(...)
── Error ('test-match_name.R:252:3'): recovers `sector_lbk` ────────────────────
Error in ``[.data.table`(matched, , `:=`(pick, none_is_one(score) | some_is_one(score)), by = id_2dii)`: attempt access index 10/10 in VECTOR_ELT
Backtrace:
▆
1. ├─testthat::expect_true(...) at test-match_name.R:252:3
2. │ └─testthat::quasi_label(enquo(object), label)
3. │ └─rlang::eval_bare(expr, quo_get_env(quo))
4. ├─rlang::has_name(...)
5. │ ├─name %in% names2(x)
6. │ └─rlang::names2(x)
7. └─r2dii.match::match_name(...)
8. └─r2dii.match:::match_name_impl(...)
9. ├─...[]
10. └─data.table:::`[.data.table`(...)
── Error ('test-match_name.R:261:3'): recovers `sector_abcd` ───────────────────
Error in ``[.data.table`(matched, , `:=`(pick, none_is_one(score) | some_is_one(score)), by = id_2dii)`: attempt access index 10/10 in VECTOR_ELT
Backtrace:
▆
1. ├─testthat::expect_true(...) at test-match_name.R:261:3
2. │ └─testthat::quasi_label(enquo(object), label)
3. │ └─rlang::eval_bare(expr, quo_get_env(quo))
4. ├─rlang::has_name(...)
5. │ ├─name %in% names2(x)
6. │ └─rlang::names2(x)
7. └─r2dii.match::match_name(r2dii.data::loanbook_demo, r2dii.data::abcd_demo)
8. └─r2dii.match:::match_name_impl(...)
9. ├─...[]
10. └─data.table:::`[.data.table`(...)
── Error ('test-match_name.R:267:3'): outputs name from loanbook, not name.y (bug fix) ──
Error in ``[.data.table`(matched, , `:=`(pick, none_is_one(score) | some_is_one(score)), by = id_2dii)`: attempt access index 10/10 in VECTOR_ELT
Backtrace:
▆
1. └─r2dii.match::match_name(...) at test-match_name.R:267:3
2. └─r2dii.match:::match_name_impl(...)
3. ├─...[]
4. └─data.table:::`[.data.table`(...)
── Failure ('test-match_name.R:272:3'): works with `min_score = 0` (bug fix) ───
Expected `match_name(...)` not to throw any errors.
Actually got a <simpleError> with message:
attempt access index 10/10 in VECTOR_ELT
Backtrace:
▆
1. ├─r2dii.match:::expect_no_error(...) at test-match_name.R:272:3
2. │ └─testthat::expect_error(regexp = NA, ...) at ./helper-cnd.R:4:3
3. │ └─testthat:::expect_condition_matching_(...)
4. │ └─testthat:::quasi_capture(...)
5. │ ├─testthat (local) .capture(...)
6. │ │ └─base::withCallingHandlers(...)
7. │ └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
8. └─r2dii.match::match_name(...)
9. └─r2dii.match:::match_name_impl(...)
10. ├─...[]
11. └─data.table:::`[.data.table`(...)
── Error ('test-match_name.R:281:3'): outputs only perfect matches if any (#40 @2diiKlaus) ──
Error in ``[.data.table`(matched, , `:=`(pick, none_is_one(score) | some_is_one(score)), by = id_2dii)`: attempt access index 10/10 in VECTOR_ELT
Backtrace:
▆
1. ├─... %>% pull(score) at test-match_name.R:281:3
2. ├─dplyr::pull(., score)
3. ├─dplyr::filter(., alias == this_alias)
4. ├─dplyr::mutate(., alias = to_alias(name))
5. └─r2dii.match::match_name(., r2dii.data::abcd_demo)
6. └─r2dii.match:::match_name_impl(...)
7. ├─...[]
8. └─data.table:::`[.data.table`(...)
── Error ('test-match_name.R:296:3'): match_name()$level lacks prefix 'name_' suffix '_lbk' ──
Error in ``[.data.table`(matched, , `:=`(pick, none_is_one(score) | some_is_one(score)), by = id_2dii)`: attempt access index 10/10 in VECTOR_ELT
Backtrace:
▆
1. └─r2dii.match::match_name(...) at test-match_name.R:296:3
2. └─r2dii.match:::match_name_impl(...)
3. ├─...[]
4. └─data.table:::`[.data.table`(...)
── Error ('test-match_name.R:309:3'): preserves groups ─────────────────────────
Error in ``[.data.table`(matched, , `:=`(pick, none_is_one(score) | some_is_one(score)), by = id_2dii)`: attempt access index 10/10 in VECTOR_ELT
Backtrace:
▆
1. ├─testthat::expect_true(...) at test-match_name.R:309:3
2. │ └─testthat::quasi_label(enquo(object), label)
3. │ └─rlang::eval_bare(expr, quo_get_env(quo))
4. ├─dplyr::is_grouped_df(match_name(grouped_loanbook, r2dii.data::abcd_demo))
5. └─r2dii.match::match_name(grouped_loanbook, r2dii.data::abcd_demo)
6. └─r2dii.match:::match_name_impl(...)
7. ├─...[]
8. └─data.table:::`[.data.table`(...)
── Error ('test-match_name.R:313:3'): outputs id consistent with level ─────────
Error in ``[.data.table`(matched, , `:=`(pick, none_is_one(score) | some_is_one(score)), by = id_2dii)`: attempt access index 10/10 in VECTOR_ELT
Backtrace:
▆
1. ├─slice(r2dii.data::loanbook_demo, 6) %>% ... at test-match_name.R:313:3
2. └─r2dii.match::match_name(., r2dii.data::abcd_demo)
3. └─r2dii.match:::match_name_impl(...)
4. ├─...[]
5. └─data.table:::`[.data.table`(...)
── Error ('test-match_name.R:319:3'): no longer yiels all NAs in lbk columns (#85 @jdhoffa) ──
Error in ``[.data.table`(matched, , `:=`(pick, none_is_one(score) | some_is_one(score)), by = id_2dii)`: attempt access index 10/10 in VECTOR_ELT
Backtrace:
▆
1. └─r2dii.match::match_name(r2dii.data::loanbook_demo, r2dii.data::abcd_demo) at test-match_name.R:319:3
2. └─r2dii.match:::match_name_impl(...)
3. ├─...[]
4. └─data.table:::`[.data.table`(...)
── Error ('test-match_name.R:357:3'): handles any number of intermediate_parent columns (#84) ──
Error in ``[.data.table`(matched, , `:=`(pick, none_is_one(score) | some_is_one(score)), by = id_2dii)`: attempt access index 10/10 in VECTOR_ELT
Backtrace:
▆
1. └─r2dii.match::match_name(lbk_mini, fake_abcd()) at test-match_name.R:357:3
2. └─r2dii.match:::match_name_impl(...)
3. ├─...[]
4. └─data.table:::`[.data.table`(...)
── Error ('test-match_name.R:369:3'): warns/errors if some/all system classification is unknown ──
Error in ``[.data.table`(matched, , `:=`(pick, none_is_one(score) | some_is_one(score)), by = id_2dii)`: attempt access index 10/10 in VECTOR_ELT
Backtrace:
▆
1. ├─testthat::expect_warning(...) at test-match_name.R:369:3
2. │ └─testthat:::expect_condition_matching_(...)
3. │ └─testthat:::quasi_capture(...)
4. │ ├─testthat (local) .capture(...)
5. │ │ └─base::withCallingHandlers(...)
6. │ └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
7. └─r2dii.match::match_name(some_bad_system, fake_abcd())
8. └─r2dii.match:::match_name_impl(...)
9. ├─...[]
10. └─data.table:::`[.data.table`(...)
── Failure ('test-match_name.R:462:3'): with bad input errors gracefully ───────
Expected `match_name(bad_loanbook, r2dii.data::abcd_demo)` not to throw any errors.
Actually got a <simpleError> with message:
attempt access index 10/10 in VECTOR_ELT
Backtrace:
▆
1. ├─r2dii.match:::expect_no_error(match_name(bad_loanbook, r2dii.data::abcd_demo)) at test-match_name.R:462:3
2. │ └─testthat::expect_error(regexp = NA, ...) at ./helper-cnd.R:4:3
3. │ └─testthat:::expect_condition_matching_(...)
4. │ └─testthat:::quasi_capture(...)
5. │ ├─testthat (local) .capture(...)
6. │ │ └─base::withCallingHandlers(...)
7. │ └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
8. └─r2dii.match::match_name(bad_loanbook, r2dii.data::abcd_demo)
9. └─r2dii.match:::match_name_impl(...)
10. ├─...[]
11. └─data.table:::`[.data.table`(...)
── Error ('test-match_name.R:495:3'): w/ mismatching sector_classification and `by_sector = FALSE` yields
a match ──
Error in ``[.data.table`(matched, , `:=`(pick, none_is_one(score) | some_is_one(score)), by = id_2dii)`: attempt access index 10/10 in VECTOR_ELT
Backtrace:
▆
1. └─r2dii.match::match_name(...) at test-match_name.R:495:3
2. └─r2dii.match:::match_name_impl(...)
3. ├─...[]
4. └─data.table:::`[.data.table`(...)
── Error ('test-match_name.R:505:3'): takes `by_sector` ────────────────────────
Error in ``[.data.table`(matched, , `:=`(pick, none_is_one(score) | some_is_one(score)), by = id_2dii)`: attempt access index 10/10 in VECTOR_ELT
Backtrace:
▆
1. ├─testthat::expect_false(...) at test-match_name.R:505:3
2. │ └─testthat::quasi_label(enquo(object), label)
3. │ └─rlang::eval_bare(expr, quo_get_env(quo))
4. ├─base::identical(...)
5. └─r2dii.match::match_name(...)
6. └─r2dii.match:::match_name_impl(...)
7. ├─...[]
8. └─data.table:::`[.data.table`(...)
── Failure ('test-match_name.R:516:3'): w/ duplicates in abcd throws now error; instead remove duplicates ──
Expected `out <- match_name(fake_lbk(), dupl)` not to throw any errors.
Actually got a <simpleError> with message:
attempt access index 10/10 in VECTOR_ELT
Backtrace:
▆
1. ├─testthat::expect_error(out <- match_name(fake_lbk(), dupl), NA) at test-match_name.R:516:3
2. │ └─testthat:::expect_condition_matching_(...)
3. │ └─testthat:::quasi_capture(...)
4. │ ├─testthat (local) .capture(...)
5. │ │ └─base::withCallingHandlers(...)
6. │ └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
7. └─r2dii.match::match_name(fake_lbk(), dupl)
8. └─r2dii.match:::match_name_impl(...)
9. ├─...[]
10. └─data.table:::`[.data.table`(...)
── Error ('test-match_name.R:517:3'): w/ duplicates in abcd throws now error; instead remove duplicates ──
Error in `eval(code, test_env)`: object 'out' not found
Backtrace:
▆
1. ├─testthat::expect_equal(nrow(out), 1L) at test-match_name.R:517:3
2. │ └─testthat::quasi_label(enquo(object), label)
3. │ └─rlang::eval_bare(expr, quo_get_env(quo))
4. └─base::nrow(out)
── Error ('test-match_name.R:585:3'): outputs correct `borderline` (#269) ──────
Error in ``[.data.table`(matched, , `:=`(pick, none_is_one(score) | some_is_one(score)), by = id_2dii)`: attempt access index 10/10 in VECTOR_ELT
Backtrace:
▆
1. └─r2dii.match::match_name(lbk, abcd) at test-match_name.R:585:3
2. └─r2dii.match:::match_name_impl(...)
3. ├─...[]
4. └─data.table:::`[.data.table`(...)
── Error ('test-match_name.R:591:3'): matches any case of abcd$sector, but converts sector to lowercase ──
Error in ``[.data.table`(matched, , `:=`(pick, none_is_one(score) | some_is_one(score)), by = id_2dii)`: attempt access index 10/10 in VECTOR_ELT
Backtrace:
▆
1. └─r2dii.match::match_name(fake_lbk(), fake_abcd(sector = "power")) at test-match_name.R:591:3
2. └─r2dii.match:::match_name_impl(...)
3. ├─...[]
4. └─data.table:::`[.data.table`(...)
── Error ('test-match_name.R:604:3'): matches any case of abcd$name_company, but preserves original case ──
Error in ``[.data.table`(matched, , `:=`(pick, none_is_one(score) | some_is_one(score)), by = id_2dii)`: attempt access index 10/10 in VECTOR_ELT
Backtrace:
▆
1. └─r2dii.match::match_name(fake_lbk(), fake_abcd(name_company = "alpine knits")) at test-match_name.R:604:3
2. └─r2dii.match:::match_name_impl(...)
3. ├─...[]
4. └─data.table:::`[.data.table`(...)
── Failure ('test-match_name.R:620:3'): with arguments passed via ellipsis, throws no error (#310) ──
Expected `match_name(fake_lbk(), fake_abcd(), method = "qgram", q = 1)` not to throw any errors.
Actually got a <simpleError> with message:
attempt access index 10/10 in VECTOR_ELT
Backtrace:
▆
1. ├─r2dii.match:::expect_no_error(...) at test-match_name.R:620:3
2. │ └─testthat::expect_error(regexp = NA, ...) at ./helper-cnd.R:4:3
3. │ └─testthat:::expect_condition_matching_(...)
4. │ └─testthat:::quasi_capture(...)
5. │ ├─testthat (local) .capture(...)
6. │ │ └─base::withCallingHandlers(...)
7. │ └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
8. └─r2dii.match::match_name(...)
9. └─r2dii.match:::match_name_impl(...)
10. ├─...[]
11. └─data.table:::`[.data.table`(...)
── Error ('test-match_name.R:637:3'): with arguments passed via ellipsis, outputs the expected score ──
Error in ``[.data.table`(matched, , `:=`(pick, none_is_one(score) | some_is_one(score)), by = id_2dii)`: attempt access index 10/10 in VECTOR_ELT
Backtrace:
▆
1. └─r2dii.match::match_name(lbk, abcd, method = "qgram", q = this_q) at test-match_name.R:637:3
2. └─r2dii.match:::match_name_impl(...)
3. ├─...[]
4. └─data.table:::`[.data.table`(...)
── Error ('test-match_name.R:670:3'): w/ loanbook w/ reserved cols, outputs sector not i.sector (#330) ──
Error in ``[.data.table`(matched, , `:=`(pick, none_is_one(score) | some_is_one(score)), by = id_2dii)`: attempt access index 10/10 in VECTOR_ELT
Backtrace:
▆
1. └─r2dii.match::match_name(reserved, fake_abcd()) at test-match_name.R:670:3
2. └─r2dii.match:::match_name_impl(...)
3. ├─...[]
4. └─data.table:::`[.data.table`(...)
── Error ('test-match_name.R:712:3'): allows custom `sector_classification` ────
Error in ``[.data.table`(matched, , `:=`(pick, none_is_one(score) | some_is_one(score)), by = id_2dii)`: attempt access index 10/10 in VECTOR_ELT
Backtrace:
▆
1. └─r2dii.match::match_name(loanbook, abcd, sector_classification = custom_classification) at test-match_name.R:712:3
2. └─r2dii.match:::match_name_impl(...)
3. ├─...[]
4. └─data.table:::`[.data.table`(...)
── Error ('test-match_name.R:824:3'): with `join_id` and one ID match, one fuzzy match, outputs as expected (#135) ──
Error in ``[.data.table`(matched, , `:=`(pick, none_is_one(score) | some_is_one(score)), by = id_2dii)`: attempt access index 10/10 in VECTOR_ELT
Backtrace:
▆
1. └─r2dii.match::match_name(loanbook, abcd, join_id = c(lei_direct_loantaker = "lei")) at test-match_name.R:824:3
2. └─r2dii.match:::match_name_impl(...)
3. ├─...[]
4. └─data.table:::`[.data.table`(...)
── Error ('test-match_name.R:852:3'): columns in output match what is documented in `data_dictionary` ──
Error in ``[.data.table`(matched, , `:=`(pick, none_is_one(score) | some_is_one(score)), by = id_2dii)`: attempt access index 10/10 in VECTOR_ELT
Backtrace:
▆
1. └─r2dii.match::match_name(loanbook = loanbook, abcd = abcd, join_id = c(lei_direct_loantaker = "lei")) at test-match_name.R:852:3
2. └─r2dii.match:::match_name_impl(...)
3. ├─...[]
4. └─data.table:::`[.data.table`(...)
── Failure ('test-prioritize.R:4:3'): w/ full demo datasets throws no error ────
Expected ``%>%`(...)` not to throw any errors.
Actually got a <simpleError> with message:
attempt access index 10/10 in VECTOR_ELT
Backtrace:
▆
1. ├─r2dii.match:::expect_no_error(...) at test-prioritize.R:4:3
2. │ └─testthat::expect_error(regexp = NA, ...) at ./helper-cnd.R:4:3
3. │ └─testthat:::expect_condition_matching_(...)
4. │ └─testthat:::quasi_capture(...)
5. │ ├─testthat (local) .capture(...)
6. │ │ └─base::withCallingHandlers(...)
7. │ └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
8. ├─... %>% prioritize(priority = "ultimate_parent")
9. ├─r2dii.match::prioritize(., priority = "ultimate_parent")
10. │ └─r2dii.match:::has_zero_rows(data)
11. │ └─base::nrow(data)
12. └─r2dii.match::match_name(., r2dii.data::abcd_demo)
13. └─r2dii.match:::match_name_impl(...)
14. ├─...[]
15. └─data.table:::`[.data.table`(...)
── Error ('test-prioritize.R:253:3'): columns in output match what is documented in `data_dictionary` ──
Error in ``[.data.table`(matched, , `:=`(pick, none_is_one(score) | some_is_one(score)), by = id_2dii)`: attempt access index 10/10 in VECTOR_ELT
Backtrace:
▆
1. └─r2dii.match::match_name(lbk, abcd) at test-prioritize.R:253:3
2. └─r2dii.match:::match_name_impl(...)
3. ├─...[]
4. └─data.table:::`[.data.table`(...)
[ FAIL 39 | WARN 0 | SKIP 1 | PASS 136 ]
Error:
! Test failures.
Execution halted
Flavor: r-devel-linux-x86_64-debian-clang
Version: 0.4.1
Check: tests
Result: ERROR
Running ‘spelling.R’ [0s/0s]
Running ‘testthat.R’ [13s/14s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
> Sys.setenv("OMP_THREAD_LIMIT" = 2)
>
> library(testthat)
> library(r2dii.match)
>
> test_check("r2dii.match")
Saving _problems/test-match_name-25.R
Found no match via fuzzy matching.
Saving _problems/test-match_name-68.R
Saving _problems/test-match_name-81.R
Found no match via fuzzy matching.
Saving _problems/test-match_name-129.R
Found no match via fuzzy matching.
Saving _problems/test-match_name-140.R
Found no match via fuzzy matching.
Saving _problems/test-match_name-174.R
Saving _problems/test-match_name-185.R
Saving _problems/test-match_name-191.R
Saving _problems/test-match_name-203.R
Saving _problems/test-match_name-215.R
Saving _problems/test-match_name-233.R
Saving _problems/test-match_name-248.R
Saving _problems/test-match_name-257.R
Saving _problems/test-match_name-263.R
Saving _problems/test-match_name-267.R
Saving _problems/test-match_name-272.R
Saving _problems/test-match_name-285.R
Saving _problems/test-match_name-296.R
Saving _problems/test-match_name-309.R
Saving _problems/test-match_name-313.R
Saving _problems/test-match_name-319.R
Saving _problems/test-match_name-357.R
Saving _problems/test-match_name-372.R
Saving _problems/test-match_name-462.R
Found no match via fuzzy matching.
Saving _problems/test-match_name-499.R
Saving _problems/test-match_name-510.R
Saving _problems/test-match_name-516.R
Saving _problems/test-match_name-517.R
Saving _problems/test-match_name-585.R
Saving _problems/test-match_name-591.R
Saving _problems/test-match_name-604.R
Saving _problems/test-match_name-620.R
Saving _problems/test-match_name-637.R
Found no match via fuzzy matching.
Saving _problems/test-match_name-670.R
Saving _problems/test-match_name-712.R
Found no match via fuzzy matching.
Saving _problems/test-match_name-828.R
Saving _problems/test-match_name-856.R
Saving _problems/test-prioritize-9.R
Found no match via fuzzy matching.
Saving _problems/test-prioritize-253.R
[ FAIL 39 | WARN 0 | SKIP 1 | PASS 136 ]
══ Skipped tests (1) ═══════════════════════════════════════════════════════════
• Not run in R CMD check (env var `R_CMD` is set) (1):
'test-data_dictionary.R:3:5'
══ Failed tests ════════════════════════════════════════════════════════════════
── Error ('test-match_name.R:25:3'): w/ non-NA only at intermediate level yields matches at intermediate
level only ──
Error in ``[.data.table`(matched, , `:=`(pick, none_is_one(score) | some_is_one(score)), by = id_2dii)`: attempt access index 10/10 in VECTOR_ELT
Backtrace:
▆
1. └─r2dii.match::match_name(lbk, abcd) at test-match_name.R:25:3
2. └─r2dii.match:::match_name_impl(...)
3. ├─...[]
4. └─data.table:::`[.data.table`(...)
── Error ('test-match_name.R:68:3'): w/ 1 lbk row matching 1 abcd company in 2 sectors outputs 2 rows ──
Error in ``[.data.table`(matched, , `:=`(pick, none_is_one(score) | some_is_one(score)), by = id_2dii)`: attempt access index 10/10 in VECTOR_ELT
Backtrace:
▆
1. └─r2dii.match::match_name(lbk, abcd, by_sector = FALSE) at test-match_name.R:68:3
2. └─r2dii.match:::match_name_impl(...)
3. ├─...[]
4. └─data.table:::`[.data.table`(...)
── Error ('test-match_name.R:76:3'): `by_sector = TRUE` yields only matching sectors ──
Error in ``[.data.table`(matched, , `:=`(pick, none_is_one(score) | some_is_one(score)), by = id_2dii)`: attempt access index 10/10 in VECTOR_ELT
Backtrace:
▆
1. ├─... %>% filter(sector != sector_abcd) at test-match_name.R:76:3
2. ├─dplyr::filter(., sector != sector_abcd)
3. └─r2dii.match::match_name(fake_lbk(), fake_abcd(), by_sector = TRUE)
4. └─r2dii.match:::match_name_impl(...)
5. ├─...[]
6. └─data.table:::`[.data.table`(...)
── Error ('test-match_name.R:126:3'): w/ row 1 of loanbook and crucial cols yields expected ──
Error in ``[.data.table`(matched, , `:=`(pick, none_is_one(score) | some_is_one(score)), by = id_2dii)`: attempt access index 10/10 in VECTOR_ELT
Backtrace:
▆
1. ├─testthat::expect_equal(match_name(fake_lbk(), fake_abcd()), expected) at test-match_name.R:126:3
2. │ └─testthat::quasi_label(enquo(object), label)
3. │ └─rlang::eval_bare(expr, quo_get_env(quo))
4. └─r2dii.match::match_name(fake_lbk(), fake_abcd())
5. └─r2dii.match:::match_name_impl(...)
6. ├─...[]
7. └─data.table:::`[.data.table`(...)
── Failure ('test-match_name.R:140:3'): takes unprepared loanbook and abcd datasets ──
Expected `match_name(slice(r2dii.data::loanbook_demo, 1), r2dii.data::abcd_demo)` not to throw any errors.
Actually got a <simpleError> with message:
attempt access index 10/10 in VECTOR_ELT
Backtrace:
▆
1. ├─r2dii.match:::expect_no_error(...) at test-match_name.R:140:3
2. │ └─testthat::expect_error(regexp = NA, ...) at ./helper-cnd.R:4:3
3. │ └─testthat:::expect_condition_matching_(...)
4. │ └─testthat:::quasi_capture(...)
5. │ ├─testthat (local) .capture(...)
6. │ │ └─base::withCallingHandlers(...)
7. │ └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
8. └─r2dii.match::match_name(...)
9. └─r2dii.match:::match_name_impl(...)
10. ├─...[]
11. └─data.table:::`[.data.table`(...)
── Error ('test-match_name.R:171:3'): w/ 2 lbk rows matching 2 abcd rows, yields expected names ──
Error in ``[.data.table`(matched, , `:=`(pick, none_is_one(score) | some_is_one(score)), by = id_2dii)`: attempt access index 10/10 in VECTOR_ELT
Backtrace:
▆
1. ├─testthat::expect_named(...) at test-match_name.R:171:3
2. │ └─testthat::quasi_label(enquo(object), label)
3. │ └─rlang::eval_bare(expr, quo_get_env(quo))
4. └─r2dii.match::match_name(lbk45, r2dii.data::abcd_demo)
5. └─r2dii.match:::match_name_impl(...)
6. ├─...[]
7. └─data.table:::`[.data.table`(...)
── Error ('test-match_name.R:182:3'): w/ 1 lbk row matching ultimate, yields expected names ──
Error in ``[.data.table`(matched, , `:=`(pick, none_is_one(score) | some_is_one(score)), by = id_2dii)`: attempt access index 10/10 in VECTOR_ELT
Backtrace:
▆
1. ├─testthat::expect_named(...) at test-match_name.R:182:3
2. │ └─testthat::quasi_label(enquo(object), label)
3. │ └─rlang::eval_bare(expr, quo_get_env(quo))
4. └─r2dii.match::match_name(lbk1, r2dii.data::abcd_demo)
5. └─r2dii.match:::match_name_impl(...)
6. ├─...[]
7. └─data.table:::`[.data.table`(...)
── Failure ('test-match_name.R:189:3'): takes `min_score` ──────────────────────
Expected `match_name(...)` not to throw any errors.
Actually got a <simpleError> with message:
attempt access index 10/10 in VECTOR_ELT
Backtrace:
▆
1. ├─r2dii.match:::expect_no_error(...) at test-match_name.R:189:3
2. │ └─testthat::expect_error(regexp = NA, ...) at ./helper-cnd.R:4:3
3. │ └─testthat:::expect_condition_matching_(...)
4. │ └─testthat:::quasi_capture(...)
5. │ ├─testthat (local) .capture(...)
6. │ │ └─base::withCallingHandlers(...)
7. │ └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
8. └─r2dii.match::match_name(...)
9. └─r2dii.match:::match_name_impl(...)
10. ├─...[]
11. └─data.table:::`[.data.table`(...)
── Error ('test-match_name.R:198:3'): takes `method` ───────────────────────────
Error in ``[.data.table`(matched, , `:=`(pick, none_is_one(score) | some_is_one(score)), by = id_2dii)`: attempt access index 10/10 in VECTOR_ELT
Backtrace:
▆
1. ├─testthat::expect_false(...) at test-match_name.R:198:3
2. │ └─testthat::quasi_label(enquo(object), label)
3. │ └─rlang::eval_bare(expr, quo_get_env(quo))
4. ├─base::identical(...)
5. └─r2dii.match::match_name(lbk_method, r2dii.data::abcd_demo, method = "jw")
6. └─r2dii.match:::match_name_impl(...)
7. ├─...[]
8. └─data.table:::`[.data.table`(...)
── Error ('test-match_name.R:210:3'): takes `p` ────────────────────────────────
Error in ``[.data.table`(matched, , `:=`(pick, none_is_one(score) | some_is_one(score)), by = id_2dii)`: attempt access index 10/10 in VECTOR_ELT
Backtrace:
▆
1. ├─testthat::expect_false(...) at test-match_name.R:210:3
2. │ └─testthat::quasi_label(enquo(object), label)
3. │ └─rlang::eval_bare(expr, quo_get_env(quo))
4. ├─base::identical(...)
5. └─r2dii.match::match_name(lbk_p, r2dii.data::abcd_demo, p = 0.1)
6. └─r2dii.match:::match_name_impl(...)
7. ├─...[]
8. └─data.table:::`[.data.table`(...)
── Error ('test-match_name.R:228:3'): takes `overwrite` ────────────────────────
Error in ``[.data.table`(matched, , `:=`(pick, none_is_one(score) | some_is_one(score)), by = id_2dii)`: attempt access index 10/10 in VECTOR_ELT
Backtrace:
▆
1. ├─testthat::expect_false(...) at test-match_name.R:228:3
2. │ └─testthat::quasi_label(enquo(object), label)
3. │ └─rlang::eval_bare(expr, quo_get_env(quo))
4. ├─base::identical(...)
5. └─r2dii.match::match_name(lbk, r2dii.data::abcd_demo, overwrite = NULL)
6. └─r2dii.match:::match_name_impl(...)
7. ├─...[]
8. └─data.table:::`[.data.table`(...)
── Error ('test-match_name.R:245:3'): warns overwrite ──────────────────────────
Error in ``[.data.table`(matched, , `:=`(pick, none_is_one(score) | some_is_one(score)), by = id_2dii)`: attempt access index 10/10 in VECTOR_ELT
Backtrace:
▆
1. ├─testthat::expect_warning(...) at test-match_name.R:245:3
2. │ └─testthat:::expect_condition_matching_(...)
3. │ └─testthat:::quasi_capture(...)
4. │ ├─testthat (local) .capture(...)
5. │ │ └─base::withCallingHandlers(...)
6. │ └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
7. └─r2dii.match::match_name(lbk, r2dii.data::abcd_demo, overwrite = overwrite_demo)
8. └─r2dii.match:::match_name_impl(...)
9. ├─...[]
10. └─data.table:::`[.data.table`(...)
── Error ('test-match_name.R:252:3'): recovers `sector_lbk` ────────────────────
Error in ``[.data.table`(matched, , `:=`(pick, none_is_one(score) | some_is_one(score)), by = id_2dii)`: attempt access index 10/10 in VECTOR_ELT
Backtrace:
▆
1. ├─testthat::expect_true(...) at test-match_name.R:252:3
2. │ └─testthat::quasi_label(enquo(object), label)
3. │ └─rlang::eval_bare(expr, quo_get_env(quo))
4. ├─rlang::has_name(...)
5. │ ├─name %in% names2(x)
6. │ └─rlang::names2(x)
7. └─r2dii.match::match_name(...)
8. └─r2dii.match:::match_name_impl(...)
9. ├─...[]
10. └─data.table:::`[.data.table`(...)
── Error ('test-match_name.R:261:3'): recovers `sector_abcd` ───────────────────
Error in ``[.data.table`(matched, , `:=`(pick, none_is_one(score) | some_is_one(score)), by = id_2dii)`: attempt access index 10/10 in VECTOR_ELT
Backtrace:
▆
1. ├─testthat::expect_true(...) at test-match_name.R:261:3
2. │ └─testthat::quasi_label(enquo(object), label)
3. │ └─rlang::eval_bare(expr, quo_get_env(quo))
4. ├─rlang::has_name(...)
5. │ ├─name %in% names2(x)
6. │ └─rlang::names2(x)
7. └─r2dii.match::match_name(r2dii.data::loanbook_demo, r2dii.data::abcd_demo)
8. └─r2dii.match:::match_name_impl(...)
9. ├─...[]
10. └─data.table:::`[.data.table`(...)
── Error ('test-match_name.R:267:3'): outputs name from loanbook, not name.y (bug fix) ──
Error in ``[.data.table`(matched, , `:=`(pick, none_is_one(score) | some_is_one(score)), by = id_2dii)`: attempt access index 10/10 in VECTOR_ELT
Backtrace:
▆
1. └─r2dii.match::match_name(...) at test-match_name.R:267:3
2. └─r2dii.match:::match_name_impl(...)
3. ├─...[]
4. └─data.table:::`[.data.table`(...)
── Failure ('test-match_name.R:272:3'): works with `min_score = 0` (bug fix) ───
Expected `match_name(...)` not to throw any errors.
Actually got a <simpleError> with message:
attempt access index 10/10 in VECTOR_ELT
Backtrace:
▆
1. ├─r2dii.match:::expect_no_error(...) at test-match_name.R:272:3
2. │ └─testthat::expect_error(regexp = NA, ...) at ./helper-cnd.R:4:3
3. │ └─testthat:::expect_condition_matching_(...)
4. │ └─testthat:::quasi_capture(...)
5. │ ├─testthat (local) .capture(...)
6. │ │ └─base::withCallingHandlers(...)
7. │ └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
8. └─r2dii.match::match_name(...)
9. └─r2dii.match:::match_name_impl(...)
10. ├─...[]
11. └─data.table:::`[.data.table`(...)
── Error ('test-match_name.R:281:3'): outputs only perfect matches if any (#40 @2diiKlaus) ──
Error in ``[.data.table`(matched, , `:=`(pick, none_is_one(score) | some_is_one(score)), by = id_2dii)`: attempt access index 10/10 in VECTOR_ELT
Backtrace:
▆
1. ├─... %>% pull(score) at test-match_name.R:281:3
2. ├─dplyr::pull(., score)
3. ├─dplyr::filter(., alias == this_alias)
4. ├─dplyr::mutate(., alias = to_alias(name))
5. └─r2dii.match::match_name(., r2dii.data::abcd_demo)
6. └─r2dii.match:::match_name_impl(...)
7. ├─...[]
8. └─data.table:::`[.data.table`(...)
── Error ('test-match_name.R:296:3'): match_name()$level lacks prefix 'name_' suffix '_lbk' ──
Error in ``[.data.table`(matched, , `:=`(pick, none_is_one(score) | some_is_one(score)), by = id_2dii)`: attempt access index 10/10 in VECTOR_ELT
Backtrace:
▆
1. └─r2dii.match::match_name(...) at test-match_name.R:296:3
2. └─r2dii.match:::match_name_impl(...)
3. ├─...[]
4. └─data.table:::`[.data.table`(...)
── Error ('test-match_name.R:309:3'): preserves groups ─────────────────────────
Error in ``[.data.table`(matched, , `:=`(pick, none_is_one(score) | some_is_one(score)), by = id_2dii)`: attempt access index 10/10 in VECTOR_ELT
Backtrace:
▆
1. ├─testthat::expect_true(...) at test-match_name.R:309:3
2. │ └─testthat::quasi_label(enquo(object), label)
3. │ └─rlang::eval_bare(expr, quo_get_env(quo))
4. ├─dplyr::is_grouped_df(match_name(grouped_loanbook, r2dii.data::abcd_demo))
5. └─r2dii.match::match_name(grouped_loanbook, r2dii.data::abcd_demo)
6. └─r2dii.match:::match_name_impl(...)
7. ├─...[]
8. └─data.table:::`[.data.table`(...)
── Error ('test-match_name.R:313:3'): outputs id consistent with level ─────────
Error in ``[.data.table`(matched, , `:=`(pick, none_is_one(score) | some_is_one(score)), by = id_2dii)`: attempt access index 10/10 in VECTOR_ELT
Backtrace:
▆
1. ├─slice(r2dii.data::loanbook_demo, 6) %>% ... at test-match_name.R:313:3
2. └─r2dii.match::match_name(., r2dii.data::abcd_demo)
3. └─r2dii.match:::match_name_impl(...)
4. ├─...[]
5. └─data.table:::`[.data.table`(...)
── Error ('test-match_name.R:319:3'): no longer yiels all NAs in lbk columns (#85 @jdhoffa) ──
Error in ``[.data.table`(matched, , `:=`(pick, none_is_one(score) | some_is_one(score)), by = id_2dii)`: attempt access index 10/10 in VECTOR_ELT
Backtrace:
▆
1. └─r2dii.match::match_name(r2dii.data::loanbook_demo, r2dii.data::abcd_demo) at test-match_name.R:319:3
2. └─r2dii.match:::match_name_impl(...)
3. ├─...[]
4. └─data.table:::`[.data.table`(...)
── Error ('test-match_name.R:357:3'): handles any number of intermediate_parent columns (#84) ──
Error in ``[.data.table`(matched, , `:=`(pick, none_is_one(score) | some_is_one(score)), by = id_2dii)`: attempt access index 10/10 in VECTOR_ELT
Backtrace:
▆
1. └─r2dii.match::match_name(lbk_mini, fake_abcd()) at test-match_name.R:357:3
2. └─r2dii.match:::match_name_impl(...)
3. ├─...[]
4. └─data.table:::`[.data.table`(...)
── Error ('test-match_name.R:369:3'): warns/errors if some/all system classification is unknown ──
Error in ``[.data.table`(matched, , `:=`(pick, none_is_one(score) | some_is_one(score)), by = id_2dii)`: attempt access index 10/10 in VECTOR_ELT
Backtrace:
▆
1. ├─testthat::expect_warning(...) at test-match_name.R:369:3
2. │ └─testthat:::expect_condition_matching_(...)
3. │ └─testthat:::quasi_capture(...)
4. │ ├─testthat (local) .capture(...)
5. │ │ └─base::withCallingHandlers(...)
6. │ └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
7. └─r2dii.match::match_name(some_bad_system, fake_abcd())
8. └─r2dii.match:::match_name_impl(...)
9. ├─...[]
10. └─data.table:::`[.data.table`(...)
── Failure ('test-match_name.R:462:3'): with bad input errors gracefully ───────
Expected `match_name(bad_loanbook, r2dii.data::abcd_demo)` not to throw any errors.
Actually got a <simpleError> with message:
attempt access index 10/10 in VECTOR_ELT
Backtrace:
▆
1. ├─r2dii.match:::expect_no_error(match_name(bad_loanbook, r2dii.data::abcd_demo)) at test-match_name.R:462:3
2. │ └─testthat::expect_error(regexp = NA, ...) at ./helper-cnd.R:4:3
3. │ └─testthat:::expect_condition_matching_(...)
4. │ └─testthat:::quasi_capture(...)
5. │ ├─testthat (local) .capture(...)
6. │ │ └─base::withCallingHandlers(...)
7. │ └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
8. └─r2dii.match::match_name(bad_loanbook, r2dii.data::abcd_demo)
9. └─r2dii.match:::match_name_impl(...)
10. ├─...[]
11. └─data.table:::`[.data.table`(...)
── Error ('test-match_name.R:495:3'): w/ mismatching sector_classification and `by_sector = FALSE` yields
a match ──
Error in ``[.data.table`(matched, , `:=`(pick, none_is_one(score) | some_is_one(score)), by = id_2dii)`: attempt access index 10/10 in VECTOR_ELT
Backtrace:
▆
1. └─r2dii.match::match_name(...) at test-match_name.R:495:3
2. └─r2dii.match:::match_name_impl(...)
3. ├─...[]
4. └─data.table:::`[.data.table`(...)
── Error ('test-match_name.R:505:3'): takes `by_sector` ────────────────────────
Error in ``[.data.table`(matched, , `:=`(pick, none_is_one(score) | some_is_one(score)), by = id_2dii)`: attempt access index 10/10 in VECTOR_ELT
Backtrace:
▆
1. ├─testthat::expect_false(...) at test-match_name.R:505:3
2. │ └─testthat::quasi_label(enquo(object), label)
3. │ └─rlang::eval_bare(expr, quo_get_env(quo))
4. ├─base::identical(...)
5. └─r2dii.match::match_name(...)
6. └─r2dii.match:::match_name_impl(...)
7. ├─...[]
8. └─data.table:::`[.data.table`(...)
── Failure ('test-match_name.R:516:3'): w/ duplicates in abcd throws now error; instead remove duplicates ──
Expected `out <- match_name(fake_lbk(), dupl)` not to throw any errors.
Actually got a <simpleError> with message:
attempt access index 10/10 in VECTOR_ELT
Backtrace:
▆
1. ├─testthat::expect_error(out <- match_name(fake_lbk(), dupl), NA) at test-match_name.R:516:3
2. │ └─testthat:::expect_condition_matching_(...)
3. │ └─testthat:::quasi_capture(...)
4. │ ├─testthat (local) .capture(...)
5. │ │ └─base::withCallingHandlers(...)
6. │ └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
7. └─r2dii.match::match_name(fake_lbk(), dupl)
8. └─r2dii.match:::match_name_impl(...)
9. ├─...[]
10. └─data.table:::`[.data.table`(...)
── Error ('test-match_name.R:517:3'): w/ duplicates in abcd throws now error; instead remove duplicates ──
Error in `eval(code, test_env)`: object 'out' not found
Backtrace:
▆
1. ├─testthat::expect_equal(nrow(out), 1L) at test-match_name.R:517:3
2. │ └─testthat::quasi_label(enquo(object), label)
3. │ └─rlang::eval_bare(expr, quo_get_env(quo))
4. └─base::nrow(out)
── Error ('test-match_name.R:585:3'): outputs correct `borderline` (#269) ──────
Error in ``[.data.table`(matched, , `:=`(pick, none_is_one(score) | some_is_one(score)), by = id_2dii)`: attempt access index 10/10 in VECTOR_ELT
Backtrace:
▆
1. └─r2dii.match::match_name(lbk, abcd) at test-match_name.R:585:3
2. └─r2dii.match:::match_name_impl(...)
3. ├─...[]
4. └─data.table:::`[.data.table`(...)
── Error ('test-match_name.R:591:3'): matches any case of abcd$sector, but converts sector to lowercase ──
Error in ``[.data.table`(matched, , `:=`(pick, none_is_one(score) | some_is_one(score)), by = id_2dii)`: attempt access index 10/10 in VECTOR_ELT
Backtrace:
▆
1. └─r2dii.match::match_name(fake_lbk(), fake_abcd(sector = "power")) at test-match_name.R:591:3
2. └─r2dii.match:::match_name_impl(...)
3. ├─...[]
4. └─data.table:::`[.data.table`(...)
── Error ('test-match_name.R:604:3'): matches any case of abcd$name_company, but preserves original case ──
Error in ``[.data.table`(matched, , `:=`(pick, none_is_one(score) | some_is_one(score)), by = id_2dii)`: attempt access index 10/10 in VECTOR_ELT
Backtrace:
▆
1. └─r2dii.match::match_name(fake_lbk(), fake_abcd(name_company = "alpine knits")) at test-match_name.R:604:3
2. └─r2dii.match:::match_name_impl(...)
3. ├─...[]
4. └─data.table:::`[.data.table`(...)
── Failure ('test-match_name.R:620:3'): with arguments passed via ellipsis, throws no error (#310) ──
Expected `match_name(fake_lbk(), fake_abcd(), method = "qgram", q = 1)` not to throw any errors.
Actually got a <simpleError> with message:
attempt access index 10/10 in VECTOR_ELT
Backtrace:
▆
1. ├─r2dii.match:::expect_no_error(...) at test-match_name.R:620:3
2. │ └─testthat::expect_error(regexp = NA, ...) at ./helper-cnd.R:4:3
3. │ └─testthat:::expect_condition_matching_(...)
4. │ └─testthat:::quasi_capture(...)
5. │ ├─testthat (local) .capture(...)
6. │ │ └─base::withCallingHandlers(...)
7. │ └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
8. └─r2dii.match::match_name(...)
9. └─r2dii.match:::match_name_impl(...)
10. ├─...[]
11. └─data.table:::`[.data.table`(...)
── Error ('test-match_name.R:637:3'): with arguments passed via ellipsis, outputs the expected score ──
Error in ``[.data.table`(matched, , `:=`(pick, none_is_one(score) | some_is_one(score)), by = id_2dii)`: attempt access index 10/10 in VECTOR_ELT
Backtrace:
▆
1. └─r2dii.match::match_name(lbk, abcd, method = "qgram", q = this_q) at test-match_name.R:637:3
2. └─r2dii.match:::match_name_impl(...)
3. ├─...[]
4. └─data.table:::`[.data.table`(...)
── Error ('test-match_name.R:670:3'): w/ loanbook w/ reserved cols, outputs sector not i.sector (#330) ──
Error in ``[.data.table`(matched, , `:=`(pick, none_is_one(score) | some_is_one(score)), by = id_2dii)`: attempt access index 10/10 in VECTOR_ELT
Backtrace:
▆
1. └─r2dii.match::match_name(reserved, fake_abcd()) at test-match_name.R:670:3
2. └─r2dii.match:::match_name_impl(...)
3. ├─...[]
4. └─data.table:::`[.data.table`(...)
── Error ('test-match_name.R:712:3'): allows custom `sector_classification` ────
Error in ``[.data.table`(matched, , `:=`(pick, none_is_one(score) | some_is_one(score)), by = id_2dii)`: attempt access index 10/10 in VECTOR_ELT
Backtrace:
▆
1. └─r2dii.match::match_name(loanbook, abcd, sector_classification = custom_classification) at test-match_name.R:712:3
2. └─r2dii.match:::match_name_impl(...)
3. ├─...[]
4. └─data.table:::`[.data.table`(...)
── Error ('test-match_name.R:824:3'): with `join_id` and one ID match, one fuzzy match, outputs as expected (#135) ──
Error in ``[.data.table`(matched, , `:=`(pick, none_is_one(score) | some_is_one(score)), by = id_2dii)`: attempt access index 10/10 in VECTOR_ELT
Backtrace:
▆
1. └─r2dii.match::match_name(loanbook, abcd, join_id = c(lei_direct_loantaker = "lei")) at test-match_name.R:824:3
2. └─r2dii.match:::match_name_impl(...)
3. ├─...[]
4. └─data.table:::`[.data.table`(...)
── Error ('test-match_name.R:852:3'): columns in output match what is documented in `data_dictionary` ──
Error in ``[.data.table`(matched, , `:=`(pick, none_is_one(score) | some_is_one(score)), by = id_2dii)`: attempt access index 10/10 in VECTOR_ELT
Backtrace:
▆
1. └─r2dii.match::match_name(loanbook = loanbook, abcd = abcd, join_id = c(lei_direct_loantaker = "lei")) at test-match_name.R:852:3
2. └─r2dii.match:::match_name_impl(...)
3. ├─...[]
4. └─data.table:::`[.data.table`(...)
── Failure ('test-prioritize.R:4:3'): w/ full demo datasets throws no error ────
Expected ``%>%`(...)` not to throw any errors.
Actually got a <simpleError> with message:
attempt access index 10/10 in VECTOR_ELT
Backtrace:
▆
1. ├─r2dii.match:::expect_no_error(...) at test-prioritize.R:4:3
2. │ └─testthat::expect_error(regexp = NA, ...) at ./helper-cnd.R:4:3
3. │ └─testthat:::expect_condition_matching_(...)
4. │ └─testthat:::quasi_capture(...)
5. │ ├─testthat (local) .capture(...)
6. │ │ └─base::withCallingHandlers(...)
7. │ └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
8. ├─... %>% prioritize(priority = "ultimate_parent")
9. ├─r2dii.match::prioritize(., priority = "ultimate_parent")
10. │ └─r2dii.match:::has_zero_rows(data)
11. │ └─base::nrow(data)
12. └─r2dii.match::match_name(., r2dii.data::abcd_demo)
13. └─r2dii.match:::match_name_impl(...)
14. ├─...[]
15. └─data.table:::`[.data.table`(...)
── Error ('test-prioritize.R:253:3'): columns in output match what is documented in `data_dictionary` ──
Error in ``[.data.table`(matched, , `:=`(pick, none_is_one(score) | some_is_one(score)), by = id_2dii)`: attempt access index 10/10 in VECTOR_ELT
Backtrace:
▆
1. └─r2dii.match::match_name(lbk, abcd) at test-prioritize.R:253:3
2. └─r2dii.match:::match_name_impl(...)
3. ├─...[]
4. └─data.table:::`[.data.table`(...)
[ FAIL 39 | WARN 0 | SKIP 1 | PASS 136 ]
Error:
! Test failures.
Execution halted
Flavor: r-devel-linux-x86_64-debian-gcc
Version: 0.4.1
Check: examples
Result: ERROR
Running examples in ‘r2dii.match-Ex.R’ failed
The error most likely occurred in:
> ### Name: match_name
> ### Title: Match a loanbook to asset-based company data (abcd) by the
> ### name_* columns
> ### Aliases: match_name
>
> ### ** Examples
>
> library(r2dii.data)
Attaching package: ‘r2dii.data’
The following object is masked from ‘package:r2dii.match’:
data_dictionary
> library(tibble)
>
> # Small data for examples
> loanbook <- head(loanbook_demo, 50)
> abcd <- head(abcd_demo, 50)
>
> match_name(loanbook, abcd)
Error in `[.data.table`(matched, , `:=`(pick, none_is_one(score) | some_is_one(score)), :
attempt access index 10/10 in VECTOR_ELT
Calls: match_name -> match_name_impl -> [ -> [.data.table
Execution halted
Flavors: r-devel-linux-x86_64-fedora-clang, r-devel-linux-x86_64-fedora-gcc
Version: 0.4.1
Check: tests
Result: ERROR
Running ‘spelling.R’
Running ‘testthat.R’ [34s/53s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
> Sys.setenv("OMP_THREAD_LIMIT" = 2)
>
> library(testthat)
> library(r2dii.match)
>
> test_check("r2dii.match")
Saving _problems/test-match_name-25.R
Found no match via fuzzy matching.
Saving _problems/test-match_name-68.R
Saving _problems/test-match_name-81.R
Found no match via fuzzy matching.
Saving _problems/test-match_name-129.R
Found no match via fuzzy matching.
Saving _problems/test-match_name-140.R
Found no match via fuzzy matching.
Saving _problems/test-match_name-174.R
Saving _problems/test-match_name-185.R
Saving _problems/test-match_name-191.R
Saving _problems/test-match_name-203.R
Saving _problems/test-match_name-215.R
Saving _problems/test-match_name-233.R
Saving _problems/test-match_name-248.R
Saving _problems/test-match_name-257.R
Saving _problems/test-match_name-263.R
Saving _problems/test-match_name-267.R
Saving _problems/test-match_name-272.R
Saving _problems/test-match_name-285.R
Saving _problems/test-match_name-296.R
Saving _problems/test-match_name-309.R
Saving _problems/test-match_name-313.R
Saving _problems/test-match_name-319.R
Saving _problems/test-match_name-357.R
Saving _problems/test-match_name-372.R
Saving _problems/test-match_name-462.R
Found no match via fuzzy matching.
Saving _problems/test-match_name-499.R
Saving _problems/test-match_name-510.R
Saving _problems/test-match_name-516.R
Saving _problems/test-match_name-517.R
Saving _problems/test-match_name-585.R
Saving _problems/test-match_name-591.R
Saving _problems/test-match_name-604.R
Saving _problems/test-match_name-620.R
Saving _problems/test-match_name-637.R
Found no match via fuzzy matching.
Saving _problems/test-match_name-670.R
Saving _problems/test-match_name-712.R
Found no match via fuzzy matching.
Saving _problems/test-match_name-828.R
Saving _problems/test-match_name-856.R
Saving _problems/test-prioritize-9.R
Found no match via fuzzy matching.
Saving _problems/test-prioritize-253.R
[ FAIL 39 | WARN 0 | SKIP 1 | PASS 136 ]
══ Skipped tests (1) ═══════════════════════════════════════════════════════════
• Not run in R CMD check (env var `R_CMD` is set) (1):
'test-data_dictionary.R:3:5'
══ Failed tests ════════════════════════════════════════════════════════════════
── Error ('test-match_name.R:25:3'): w/ non-NA only at intermediate level yields matches at intermediate
level only ──
Error in ``[.data.table`(matched, , `:=`(pick, none_is_one(score) | some_is_one(score)), by = id_2dii)`: attempt access index 10/10 in VECTOR_ELT
Backtrace:
▆
1. └─r2dii.match::match_name(lbk, abcd) at test-match_name.R:25:3
2. └─r2dii.match:::match_name_impl(...)
3. ├─...[]
4. └─data.table:::`[.data.table`(...)
── Error ('test-match_name.R:68:3'): w/ 1 lbk row matching 1 abcd company in 2 sectors outputs 2 rows ──
Error in ``[.data.table`(matched, , `:=`(pick, none_is_one(score) | some_is_one(score)), by = id_2dii)`: attempt access index 10/10 in VECTOR_ELT
Backtrace:
▆
1. └─r2dii.match::match_name(lbk, abcd, by_sector = FALSE) at test-match_name.R:68:3
2. └─r2dii.match:::match_name_impl(...)
3. ├─...[]
4. └─data.table:::`[.data.table`(...)
── Error ('test-match_name.R:76:3'): `by_sector = TRUE` yields only matching sectors ──
Error in ``[.data.table`(matched, , `:=`(pick, none_is_one(score) | some_is_one(score)), by = id_2dii)`: attempt access index 10/10 in VECTOR_ELT
Backtrace:
▆
1. ├─... %>% filter(sector != sector_abcd) at test-match_name.R:76:3
2. ├─dplyr::filter(., sector != sector_abcd)
3. └─r2dii.match::match_name(fake_lbk(), fake_abcd(), by_sector = TRUE)
4. └─r2dii.match:::match_name_impl(...)
5. ├─...[]
6. └─data.table:::`[.data.table`(...)
── Error ('test-match_name.R:126:3'): w/ row 1 of loanbook and crucial cols yields expected ──
Error in ``[.data.table`(matched, , `:=`(pick, none_is_one(score) | some_is_one(score)), by = id_2dii)`: attempt access index 10/10 in VECTOR_ELT
Backtrace:
▆
1. ├─testthat::expect_equal(match_name(fake_lbk(), fake_abcd()), expected) at test-match_name.R:126:3
2. │ └─testthat::quasi_label(enquo(object), label)
3. │ └─rlang::eval_bare(expr, quo_get_env(quo))
4. └─r2dii.match::match_name(fake_lbk(), fake_abcd())
5. └─r2dii.match:::match_name_impl(...)
6. ├─...[]
7. └─data.table:::`[.data.table`(...)
── Failure ('test-match_name.R:140:3'): takes unprepared loanbook and abcd datasets ──
Expected `match_name(slice(r2dii.data::loanbook_demo, 1), r2dii.data::abcd_demo)` not to throw any errors.
Actually got a <simpleError> with message:
attempt access index 10/10 in VECTOR_ELT
Backtrace:
▆
1. ├─r2dii.match:::expect_no_error(...) at test-match_name.R:140:3
2. │ └─testthat::expect_error(regexp = NA, ...) at ./helper-cnd.R:4:3
3. │ └─testthat:::expect_condition_matching_(...)
4. │ └─testthat:::quasi_capture(...)
5. │ ├─testthat (local) .capture(...)
6. │ │ └─base::withCallingHandlers(...)
7. │ └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
8. └─r2dii.match::match_name(...)
9. └─r2dii.match:::match_name_impl(...)
10. ├─...[]
11. └─data.table:::`[.data.table`(...)
── Error ('test-match_name.R:171:3'): w/ 2 lbk rows matching 2 abcd rows, yields expected names ──
Error in ``[.data.table`(matched, , `:=`(pick, none_is_one(score) | some_is_one(score)), by = id_2dii)`: attempt access index 10/10 in VECTOR_ELT
Backtrace:
▆
1. ├─testthat::expect_named(...) at test-match_name.R:171:3
2. │ └─testthat::quasi_label(enquo(object), label)
3. │ └─rlang::eval_bare(expr, quo_get_env(quo))
4. └─r2dii.match::match_name(lbk45, r2dii.data::abcd_demo)
5. └─r2dii.match:::match_name_impl(...)
6. ├─...[]
7. └─data.table:::`[.data.table`(...)
── Error ('test-match_name.R:182:3'): w/ 1 lbk row matching ultimate, yields expected names ──
Error in ``[.data.table`(matched, , `:=`(pick, none_is_one(score) | some_is_one(score)), by = id_2dii)`: attempt access index 10/10 in VECTOR_ELT
Backtrace:
▆
1. ├─testthat::expect_named(...) at test-match_name.R:182:3
2. │ └─testthat::quasi_label(enquo(object), label)
3. │ └─rlang::eval_bare(expr, quo_get_env(quo))
4. └─r2dii.match::match_name(lbk1, r2dii.data::abcd_demo)
5. └─r2dii.match:::match_name_impl(...)
6. ├─...[]
7. └─data.table:::`[.data.table`(...)
── Failure ('test-match_name.R:189:3'): takes `min_score` ──────────────────────
Expected `match_name(...)` not to throw any errors.
Actually got a <simpleError> with message:
attempt access index 10/10 in VECTOR_ELT
Backtrace:
▆
1. ├─r2dii.match:::expect_no_error(...) at test-match_name.R:189:3
2. │ └─testthat::expect_error(regexp = NA, ...) at ./helper-cnd.R:4:3
3. │ └─testthat:::expect_condition_matching_(...)
4. │ └─testthat:::quasi_capture(...)
5. │ ├─testthat (local) .capture(...)
6. │ │ └─base::withCallingHandlers(...)
7. │ └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
8. └─r2dii.match::match_name(...)
9. └─r2dii.match:::match_name_impl(...)
10. ├─...[]
11. └─data.table:::`[.data.table`(...)
── Error ('test-match_name.R:198:3'): takes `method` ───────────────────────────
Error in ``[.data.table`(matched, , `:=`(pick, none_is_one(score) | some_is_one(score)), by = id_2dii)`: attempt access index 10/10 in VECTOR_ELT
Backtrace:
▆
1. ├─testthat::expect_false(...) at test-match_name.R:198:3
2. │ └─testthat::quasi_label(enquo(object), label)
3. │ └─rlang::eval_bare(expr, quo_get_env(quo))
4. ├─base::identical(...)
5. └─r2dii.match::match_name(lbk_method, r2dii.data::abcd_demo, method = "jw")
6. └─r2dii.match:::match_name_impl(...)
7. ├─...[]
8. └─data.table:::`[.data.table`(...)
── Error ('test-match_name.R:210:3'): takes `p` ────────────────────────────────
Error in ``[.data.table`(matched, , `:=`(pick, none_is_one(score) | some_is_one(score)), by = id_2dii)`: attempt access index 10/10 in VECTOR_ELT
Backtrace:
▆
1. ├─testthat::expect_false(...) at test-match_name.R:210:3
2. │ └─testthat::quasi_label(enquo(object), label)
3. │ └─rlang::eval_bare(expr, quo_get_env(quo))
4. ├─base::identical(...)
5. └─r2dii.match::match_name(lbk_p, r2dii.data::abcd_demo, p = 0.1)
6. └─r2dii.match:::match_name_impl(...)
7. ├─...[]
8. └─data.table:::`[.data.table`(...)
── Error ('test-match_name.R:228:3'): takes `overwrite` ────────────────────────
Error in ``[.data.table`(matched, , `:=`(pick, none_is_one(score) | some_is_one(score)), by = id_2dii)`: attempt access index 10/10 in VECTOR_ELT
Backtrace:
▆
1. ├─testthat::expect_false(...) at test-match_name.R:228:3
2. │ └─testthat::quasi_label(enquo(object), label)
3. │ └─rlang::eval_bare(expr, quo_get_env(quo))
4. ├─base::identical(...)
5. └─r2dii.match::match_name(lbk, r2dii.data::abcd_demo, overwrite = NULL)
6. └─r2dii.match:::match_name_impl(...)
7. ├─...[]
8. └─data.table:::`[.data.table`(...)
── Error ('test-match_name.R:245:3'): warns overwrite ──────────────────────────
Error in ``[.data.table`(matched, , `:=`(pick, none_is_one(score) | some_is_one(score)), by = id_2dii)`: attempt access index 10/10 in VECTOR_ELT
Backtrace:
▆
1. ├─testthat::expect_warning(...) at test-match_name.R:245:3
2. │ └─testthat:::expect_condition_matching_(...)
3. │ └─testthat:::quasi_capture(...)
4. │ ├─testthat (local) .capture(...)
5. │ │ └─base::withCallingHandlers(...)
6. │ └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
7. └─r2dii.match::match_name(lbk, r2dii.data::abcd_demo, overwrite = overwrite_demo)
8. └─r2dii.match:::match_name_impl(...)
9. ├─...[]
10. └─data.table:::`[.data.table`(...)
── Error ('test-match_name.R:252:3'): recovers `sector_lbk` ────────────────────
Error in ``[.data.table`(matched, , `:=`(pick, none_is_one(score) | some_is_one(score)), by = id_2dii)`: attempt access index 10/10 in VECTOR_ELT
Backtrace:
▆
1. ├─testthat::expect_true(...) at test-match_name.R:252:3
2. │ └─testthat::quasi_label(enquo(object), label)
3. │ └─rlang::eval_bare(expr, quo_get_env(quo))
4. ├─rlang::has_name(...)
5. │ ├─name %in% names2(x)
6. │ └─rlang::names2(x)
7. └─r2dii.match::match_name(...)
8. └─r2dii.match:::match_name_impl(...)
9. ├─...[]
10. └─data.table:::`[.data.table`(...)
── Error ('test-match_name.R:261:3'): recovers `sector_abcd` ───────────────────
Error in ``[.data.table`(matched, , `:=`(pick, none_is_one(score) | some_is_one(score)), by = id_2dii)`: attempt access index 10/10 in VECTOR_ELT
Backtrace:
▆
1. ├─testthat::expect_true(...) at test-match_name.R:261:3
2. │ └─testthat::quasi_label(enquo(object), label)
3. │ └─rlang::eval_bare(expr, quo_get_env(quo))
4. ├─rlang::has_name(...)
5. │ ├─name %in% names2(x)
6. │ └─rlang::names2(x)
7. └─r2dii.match::match_name(r2dii.data::loanbook_demo, r2dii.data::abcd_demo)
8. └─r2dii.match:::match_name_impl(...)
9. ├─...[]
10. └─data.table:::`[.data.table`(...)
── Error ('test-match_name.R:267:3'): outputs name from loanbook, not name.y (bug fix) ──
Error in ``[.data.table`(matched, , `:=`(pick, none_is_one(score) | some_is_one(score)), by = id_2dii)`: attempt access index 10/10 in VECTOR_ELT
Backtrace:
▆
1. └─r2dii.match::match_name(...) at test-match_name.R:267:3
2. └─r2dii.match:::match_name_impl(...)
3. ├─...[]
4. └─data.table:::`[.data.table`(...)
── Failure ('test-match_name.R:272:3'): works with `min_score = 0` (bug fix) ───
Expected `match_name(...)` not to throw any errors.
Actually got a <simpleError> with message:
attempt access index 10/10 in VECTOR_ELT
Backtrace:
▆
1. ├─r2dii.match:::expect_no_error(...) at test-match_name.R:272:3
2. │ └─testthat::expect_error(regexp = NA, ...) at ./helper-cnd.R:4:3
3. │ └─testthat:::expect_condition_matching_(...)
4. │ └─testthat:::quasi_capture(...)
5. │ ├─testthat (local) .capture(...)
6. │ │ └─base::withCallingHandlers(...)
7. │ └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
8. └─r2dii.match::match_name(...)
9. └─r2dii.match:::match_name_impl(...)
10. ├─...[]
11. └─data.table:::`[.data.table`(...)
── Error ('test-match_name.R:281:3'): outputs only perfect matches if any (#40 @2diiKlaus) ──
Error in ``[.data.table`(matched, , `:=`(pick, none_is_one(score) | some_is_one(score)), by = id_2dii)`: attempt access index 10/10 in VECTOR_ELT
Backtrace:
▆
1. ├─... %>% pull(score) at test-match_name.R:281:3
2. ├─dplyr::pull(., score)
3. ├─dplyr::filter(., alias == this_alias)
4. ├─dplyr::mutate(., alias = to_alias(name))
5. └─r2dii.match::match_name(., r2dii.data::abcd_demo)
6. └─r2dii.match:::match_name_impl(...)
7. ├─...[]
8. └─data.table:::`[.data.table`(...)
── Error ('test-match_name.R:296:3'): match_name()$level lacks prefix 'name_' suffix '_lbk' ──
Error in ``[.data.table`(matched, , `:=`(pick, none_is_one(score) | some_is_one(score)), by = id_2dii)`: attempt access index 10/10 in VECTOR_ELT
Backtrace:
▆
1. └─r2dii.match::match_name(...) at test-match_name.R:296:3
2. └─r2dii.match:::match_name_impl(...)
3. ├─...[]
4. └─data.table:::`[.data.table`(...)
── Error ('test-match_name.R:309:3'): preserves groups ─────────────────────────
Error in ``[.data.table`(matched, , `:=`(pick, none_is_one(score) | some_is_one(score)), by = id_2dii)`: attempt access index 10/10 in VECTOR_ELT
Backtrace:
▆
1. ├─testthat::expect_true(...) at test-match_name.R:309:3
2. │ └─testthat::quasi_label(enquo(object), label)
3. │ └─rlang::eval_bare(expr, quo_get_env(quo))
4. ├─dplyr::is_grouped_df(match_name(grouped_loanbook, r2dii.data::abcd_demo))
5. └─r2dii.match::match_name(grouped_loanbook, r2dii.data::abcd_demo)
6. └─r2dii.match:::match_name_impl(...)
7. ├─...[]
8. └─data.table:::`[.data.table`(...)
── Error ('test-match_name.R:313:3'): outputs id consistent with level ─────────
Error in ``[.data.table`(matched, , `:=`(pick, none_is_one(score) | some_is_one(score)), by = id_2dii)`: attempt access index 10/10 in VECTOR_ELT
Backtrace:
▆
1. ├─slice(r2dii.data::loanbook_demo, 6) %>% ... at test-match_name.R:313:3
2. └─r2dii.match::match_name(., r2dii.data::abcd_demo)
3. └─r2dii.match:::match_name_impl(...)
4. ├─...[]
5. └─data.table:::`[.data.table`(...)
── Error ('test-match_name.R:319:3'): no longer yiels all NAs in lbk columns (#85 @jdhoffa) ──
Error in ``[.data.table`(matched, , `:=`(pick, none_is_one(score) | some_is_one(score)), by = id_2dii)`: attempt access index 10/10 in VECTOR_ELT
Backtrace:
▆
1. └─r2dii.match::match_name(r2dii.data::loanbook_demo, r2dii.data::abcd_demo) at test-match_name.R:319:3
2. └─r2dii.match:::match_name_impl(...)
3. ├─...[]
4. └─data.table:::`[.data.table`(...)
── Error ('test-match_name.R:357:3'): handles any number of intermediate_parent columns (#84) ──
Error in ``[.data.table`(matched, , `:=`(pick, none_is_one(score) | some_is_one(score)), by = id_2dii)`: attempt access index 10/10 in VECTOR_ELT
Backtrace:
▆
1. └─r2dii.match::match_name(lbk_mini, fake_abcd()) at test-match_name.R:357:3
2. └─r2dii.match:::match_name_impl(...)
3. ├─...[]
4. └─data.table:::`[.data.table`(...)
── Error ('test-match_name.R:369:3'): warns/errors if some/all system classification is unknown ──
Error in ``[.data.table`(matched, , `:=`(pick, none_is_one(score) | some_is_one(score)), by = id_2dii)`: attempt access index 10/10 in VECTOR_ELT
Backtrace:
▆
1. ├─testthat::expect_warning(...) at test-match_name.R:369:3
2. │ └─testthat:::expect_condition_matching_(...)
3. │ └─testthat:::quasi_capture(...)
4. │ ├─testthat (local) .capture(...)
5. │ │ └─base::withCallingHandlers(...)
6. │ └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
7. └─r2dii.match::match_name(some_bad_system, fake_abcd())
8. └─r2dii.match:::match_name_impl(...)
9. ├─...[]
10. └─data.table:::`[.data.table`(...)
── Failure ('test-match_name.R:462:3'): with bad input errors gracefully ───────
Expected `match_name(bad_loanbook, r2dii.data::abcd_demo)` not to throw any errors.
Actually got a <simpleError> with message:
attempt access index 10/10 in VECTOR_ELT
Backtrace:
▆
1. ├─r2dii.match:::expect_no_error(match_name(bad_loanbook, r2dii.data::abcd_demo)) at test-match_name.R:462:3
2. │ └─testthat::expect_error(regexp = NA, ...) at ./helper-cnd.R:4:3
3. │ └─testthat:::expect_condition_matching_(...)
4. │ └─testthat:::quasi_capture(...)
5. │ ├─testthat (local) .capture(...)
6. │ │ └─base::withCallingHandlers(...)
7. │ └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
8. └─r2dii.match::match_name(bad_loanbook, r2dii.data::abcd_demo)
9. └─r2dii.match:::match_name_impl(...)
10. ├─...[]
11. └─data.table:::`[.data.table`(...)
── Error ('test-match_name.R:495:3'): w/ mismatching sector_classification and `by_sector = FALSE` yields
a match ──
Error in ``[.data.table`(matched, , `:=`(pick, none_is_one(score) | some_is_one(score)), by = id_2dii)`: attempt access index 10/10 in VECTOR_ELT
Backtrace:
▆
1. └─r2dii.match::match_name(...) at test-match_name.R:495:3
2. └─r2dii.match:::match_name_impl(...)
3. ├─...[]
4. └─data.table:::`[.data.table`(...)
── Error ('test-match_name.R:505:3'): takes `by_sector` ────────────────────────
Error in ``[.data.table`(matched, , `:=`(pick, none_is_one(score) | some_is_one(score)), by = id_2dii)`: attempt access index 10/10 in VECTOR_ELT
Backtrace:
▆
1. ├─testthat::expect_false(...) at test-match_name.R:505:3
2. │ └─testthat::quasi_label(enquo(object), label)
3. │ └─rlang::eval_bare(expr, quo_get_env(quo))
4. ├─base::identical(...)
5. └─r2dii.match::match_name(...)
6. └─r2dii.match:::match_name_impl(...)
7. ├─...[]
8. └─data.table:::`[.data.table`(...)
── Failure ('test-match_name.R:516:3'): w/ duplicates in abcd throws now error; instead remove duplicates ──
Expected `out <- match_name(fake_lbk(), dupl)` not to throw any errors.
Actually got a <simpleError> with message:
attempt access index 10/10 in VECTOR_ELT
Backtrace:
▆
1. ├─testthat::expect_error(out <- match_name(fake_lbk(), dupl), NA) at test-match_name.R:516:3
2. │ └─testthat:::expect_condition_matching_(...)
3. │ └─testthat:::quasi_capture(...)
4. │ ├─testthat (local) .capture(...)
5. │ │ └─base::withCallingHandlers(...)
6. │ └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
7. └─r2dii.match::match_name(fake_lbk(), dupl)
8. └─r2dii.match:::match_name_impl(...)
9. ├─...[]
10. └─data.table:::`[.data.table`(...)
── Error ('test-match_name.R:517:3'): w/ duplicates in abcd throws now error; instead remove duplicates ──
Error in `eval(code, test_env)`: object 'out' not found
Backtrace:
▆
1. ├─testthat::expect_equal(nrow(out), 1L) at test-match_name.R:517:3
2. │ └─testthat::quasi_label(enquo(object), label)
3. │ └─rlang::eval_bare(expr, quo_get_env(quo))
4. └─base::nrow(out)
── Error ('test-match_name.R:585:3'): outputs correct `borderline` (#269) ──────
Error in ``[.data.table`(matched, , `:=`(pick, none_is_one(score) | some_is_one(score)), by = id_2dii)`: attempt access index 10/10 in VECTOR_ELT
Backtrace:
▆
1. └─r2dii.match::match_name(lbk, abcd) at test-match_name.R:585:3
2. └─r2dii.match:::match_name_impl(...)
3. ├─...[]
4. └─data.table:::`[.data.table`(...)
── Error ('test-match_name.R:591:3'): matches any case of abcd$sector, but converts sector to lowercase ──
Error in ``[.data.table`(matched, , `:=`(pick, none_is_one(score) | some_is_one(score)), by = id_2dii)`: attempt access index 10/10 in VECTOR_ELT
Backtrace:
▆
1. └─r2dii.match::match_name(fake_lbk(), fake_abcd(sector = "power")) at test-match_name.R:591:3
2. └─r2dii.match:::match_name_impl(...)
3. ├─...[]
4. └─data.table:::`[.data.table`(...)
── Error ('test-match_name.R:604:3'): matches any case of abcd$name_company, but preserves original case ──
Error in ``[.data.table`(matched, , `:=`(pick, none_is_one(score) | some_is_one(score)), by = id_2dii)`: attempt access index 10/10 in VECTOR_ELT
Backtrace:
▆
1. └─r2dii.match::match_name(fake_lbk(), fake_abcd(name_company = "alpine knits")) at test-match_name.R:604:3
2. └─r2dii.match:::match_name_impl(...)
3. ├─...[]
4. └─data.table:::`[.data.table`(...)
── Failure ('test-match_name.R:620:3'): with arguments passed via ellipsis, throws no error (#310) ──
Expected `match_name(fake_lbk(), fake_abcd(), method = "qgram", q = 1)` not to throw any errors.
Actually got a <simpleError> with message:
attempt access index 10/10 in VECTOR_ELT
Backtrace:
▆
1. ├─r2dii.match:::expect_no_error(...) at test-match_name.R:620:3
2. │ └─testthat::expect_error(regexp = NA, ...) at ./helper-cnd.R:4:3
3. │ └─testthat:::expect_condition_matching_(...)
4. │ └─testthat:::quasi_capture(...)
5. │ ├─testthat (local) .capture(...)
6. │ │ └─base::withCallingHandlers(...)
7. │ └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
8. └─r2dii.match::match_name(...)
9. └─r2dii.match:::match_name_impl(...)
10. ├─...[]
11. └─data.table:::`[.data.table`(...)
── Error ('test-match_name.R:637:3'): with arguments passed via ellipsis, outputs the expected score ──
Error in ``[.data.table`(matched, , `:=`(pick, none_is_one(score) | some_is_one(score)), by = id_2dii)`: attempt access index 10/10 in VECTOR_ELT
Backtrace:
▆
1. └─r2dii.match::match_name(lbk, abcd, method = "qgram", q = this_q) at test-match_name.R:637:3
2. └─r2dii.match:::match_name_impl(...)
3. ├─...[]
4. └─data.table:::`[.data.table`(...)
── Error ('test-match_name.R:670:3'): w/ loanbook w/ reserved cols, outputs sector not i.sector (#330) ──
Error in ``[.data.table`(matched, , `:=`(pick, none_is_one(score) | some_is_one(score)), by = id_2dii)`: attempt access index 10/10 in VECTOR_ELT
Backtrace:
▆
1. └─r2dii.match::match_name(reserved, fake_abcd()) at test-match_name.R:670:3
2. └─r2dii.match:::match_name_impl(...)
3. ├─...[]
4. └─data.table:::`[.data.table`(...)
── Error ('test-match_name.R:712:3'): allows custom `sector_classification` ────
Error in ``[.data.table`(matched, , `:=`(pick, none_is_one(score) | some_is_one(score)), by = id_2dii)`: attempt access index 10/10 in VECTOR_ELT
Backtrace:
▆
1. └─r2dii.match::match_name(loanbook, abcd, sector_classification = custom_classification) at test-match_name.R:712:3
2. └─r2dii.match:::match_name_impl(...)
3. ├─...[]
4. └─data.table:::`[.data.table`(...)
── Error ('test-match_name.R:824:3'): with `join_id` and one ID match, one fuzzy match, outputs as expected (#135) ──
Error in ``[.data.table`(matched, , `:=`(pick, none_is_one(score) | some_is_one(score)), by = id_2dii)`: attempt access index 10/10 in VECTOR_ELT
Backtrace:
▆
1. └─r2dii.match::match_name(loanbook, abcd, join_id = c(lei_direct_loantaker = "lei")) at test-match_name.R:824:3
2. └─r2dii.match:::match_name_impl(...)
3. ├─...[]
4. └─data.table:::`[.data.table`(...)
── Error ('test-match_name.R:852:3'): columns in output match what is documented in `data_dictionary` ──
Error in ``[.data.table`(matched, , `:=`(pick, none_is_one(score) | some_is_one(score)), by = id_2dii)`: attempt access index 10/10 in VECTOR_ELT
Backtrace:
▆
1. └─r2dii.match::match_name(loanbook = loanbook, abcd = abcd, join_id = c(lei_direct_loantaker = "lei")) at test-match_name.R:852:3
2. └─r2dii.match:::match_name_impl(...)
3. ├─...[]
4. └─data.table:::`[.data.table`(...)
── Failure ('test-prioritize.R:4:3'): w/ full demo datasets throws no error ────
Expected ``%>%`(...)` not to throw any errors.
Actually got a <simpleError> with message:
attempt access index 10/10 in VECTOR_ELT
Backtrace:
▆
1. ├─r2dii.match:::expect_no_error(...) at test-prioritize.R:4:3
2. │ └─testthat::expect_error(regexp = NA, ...) at ./helper-cnd.R:4:3
3. │ └─testthat:::expect_condition_matching_(...)
4. │ └─testthat:::quasi_capture(...)
5. │ ├─testthat (local) .capture(...)
6. │ │ └─base::withCallingHandlers(...)
7. │ └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
8. ├─... %>% prioritize(priority = "ultimate_parent")
9. ├─r2dii.match::prioritize(., priority = "ultimate_parent")
10. │ └─r2dii.match:::has_zero_rows(data)
11. │ └─base::nrow(data)
12. └─r2dii.match::match_name(., r2dii.data::abcd_demo)
13. └─r2dii.match:::match_name_impl(...)
14. ├─...[]
15. └─data.table:::`[.data.table`(...)
── Error ('test-prioritize.R:253:3'): columns in output match what is documented in `data_dictionary` ──
Error in ``[.data.table`(matched, , `:=`(pick, none_is_one(score) | some_is_one(score)), by = id_2dii)`: attempt access index 10/10 in VECTOR_ELT
Backtrace:
▆
1. └─r2dii.match::match_name(lbk, abcd) at test-prioritize.R:253:3
2. └─r2dii.match:::match_name_impl(...)
3. ├─...[]
4. └─data.table:::`[.data.table`(...)
[ FAIL 39 | WARN 0 | SKIP 1 | PASS 136 ]
Error:
! Test failures.
Execution halted
Flavor: r-devel-linux-x86_64-fedora-clang
Version: 0.4.1
Check: tests
Result: ERROR
Running ‘spelling.R’
Running ‘testthat.R’ [28s/52s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
> Sys.setenv("OMP_THREAD_LIMIT" = 2)
>
> library(testthat)
> library(r2dii.match)
>
> test_check("r2dii.match")
Saving _problems/test-match_name-25.R
Found no match via fuzzy matching.
Saving _problems/test-match_name-68.R
Saving _problems/test-match_name-81.R
Found no match via fuzzy matching.
Saving _problems/test-match_name-129.R
Found no match via fuzzy matching.
Saving _problems/test-match_name-140.R
Found no match via fuzzy matching.
Saving _problems/test-match_name-174.R
Saving _problems/test-match_name-185.R
Saving _problems/test-match_name-191.R
Saving _problems/test-match_name-203.R
Saving _problems/test-match_name-215.R
Saving _problems/test-match_name-233.R
Saving _problems/test-match_name-248.R
Saving _problems/test-match_name-257.R
Saving _problems/test-match_name-263.R
Saving _problems/test-match_name-267.R
Saving _problems/test-match_name-272.R
Saving _problems/test-match_name-285.R
Saving _problems/test-match_name-296.R
Saving _problems/test-match_name-309.R
Saving _problems/test-match_name-313.R
Saving _problems/test-match_name-319.R
Saving _problems/test-match_name-357.R
Saving _problems/test-match_name-372.R
Saving _problems/test-match_name-462.R
Found no match via fuzzy matching.
Saving _problems/test-match_name-499.R
Saving _problems/test-match_name-510.R
Saving _problems/test-match_name-516.R
Saving _problems/test-match_name-517.R
Saving _problems/test-match_name-585.R
Saving _problems/test-match_name-591.R
Saving _problems/test-match_name-604.R
Saving _problems/test-match_name-620.R
Saving _problems/test-match_name-637.R
Found no match via fuzzy matching.
Saving _problems/test-match_name-670.R
Saving _problems/test-match_name-712.R
Found no match via fuzzy matching.
Saving _problems/test-match_name-828.R
Saving _problems/test-match_name-856.R
Saving _problems/test-prioritize-9.R
Found no match via fuzzy matching.
Saving _problems/test-prioritize-253.R
[ FAIL 39 | WARN 0 | SKIP 1 | PASS 136 ]
══ Skipped tests (1) ═══════════════════════════════════════════════════════════
• Not run in R CMD check (env var `R_CMD` is set) (1):
'test-data_dictionary.R:3:5'
══ Failed tests ════════════════════════════════════════════════════════════════
── Error ('test-match_name.R:25:3'): w/ non-NA only at intermediate level yields matches at intermediate
level only ──
Error in ``[.data.table`(matched, , `:=`(pick, none_is_one(score) | some_is_one(score)), by = id_2dii)`: attempt access index 10/10 in VECTOR_ELT
Backtrace:
▆
1. └─r2dii.match::match_name(lbk, abcd) at test-match_name.R:25:3
2. └─r2dii.match:::match_name_impl(...)
3. ├─...[]
4. └─data.table:::`[.data.table`(...)
── Error ('test-match_name.R:68:3'): w/ 1 lbk row matching 1 abcd company in 2 sectors outputs 2 rows ──
Error in ``[.data.table`(matched, , `:=`(pick, none_is_one(score) | some_is_one(score)), by = id_2dii)`: attempt access index 10/10 in VECTOR_ELT
Backtrace:
▆
1. └─r2dii.match::match_name(lbk, abcd, by_sector = FALSE) at test-match_name.R:68:3
2. └─r2dii.match:::match_name_impl(...)
3. ├─...[]
4. └─data.table:::`[.data.table`(...)
── Error ('test-match_name.R:76:3'): `by_sector = TRUE` yields only matching sectors ──
Error in ``[.data.table`(matched, , `:=`(pick, none_is_one(score) | some_is_one(score)), by = id_2dii)`: attempt access index 10/10 in VECTOR_ELT
Backtrace:
▆
1. ├─... %>% filter(sector != sector_abcd) at test-match_name.R:76:3
2. ├─dplyr::filter(., sector != sector_abcd)
3. └─r2dii.match::match_name(fake_lbk(), fake_abcd(), by_sector = TRUE)
4. └─r2dii.match:::match_name_impl(...)
5. ├─...[]
6. └─data.table:::`[.data.table`(...)
── Error ('test-match_name.R:126:3'): w/ row 1 of loanbook and crucial cols yields expected ──
Error in ``[.data.table`(matched, , `:=`(pick, none_is_one(score) | some_is_one(score)), by = id_2dii)`: attempt access index 10/10 in VECTOR_ELT
Backtrace:
▆
1. ├─testthat::expect_equal(match_name(fake_lbk(), fake_abcd()), expected) at test-match_name.R:126:3
2. │ └─testthat::quasi_label(enquo(object), label)
3. │ └─rlang::eval_bare(expr, quo_get_env(quo))
4. └─r2dii.match::match_name(fake_lbk(), fake_abcd())
5. └─r2dii.match:::match_name_impl(...)
6. ├─...[]
7. └─data.table:::`[.data.table`(...)
── Failure ('test-match_name.R:140:3'): takes unprepared loanbook and abcd datasets ──
Expected `match_name(slice(r2dii.data::loanbook_demo, 1), r2dii.data::abcd_demo)` not to throw any errors.
Actually got a <simpleError> with message:
attempt access index 10/10 in VECTOR_ELT
Backtrace:
▆
1. ├─r2dii.match:::expect_no_error(...) at test-match_name.R:140:3
2. │ └─testthat::expect_error(regexp = NA, ...) at ./helper-cnd.R:4:3
3. │ └─testthat:::expect_condition_matching_(...)
4. │ └─testthat:::quasi_capture(...)
5. │ ├─testthat (local) .capture(...)
6. │ │ └─base::withCallingHandlers(...)
7. │ └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
8. └─r2dii.match::match_name(...)
9. └─r2dii.match:::match_name_impl(...)
10. ├─...[]
11. └─data.table:::`[.data.table`(...)
── Error ('test-match_name.R:171:3'): w/ 2 lbk rows matching 2 abcd rows, yields expected names ──
Error in ``[.data.table`(matched, , `:=`(pick, none_is_one(score) | some_is_one(score)), by = id_2dii)`: attempt access index 10/10 in VECTOR_ELT
Backtrace:
▆
1. ├─testthat::expect_named(...) at test-match_name.R:171:3
2. │ └─testthat::quasi_label(enquo(object), label)
3. │ └─rlang::eval_bare(expr, quo_get_env(quo))
4. └─r2dii.match::match_name(lbk45, r2dii.data::abcd_demo)
5. └─r2dii.match:::match_name_impl(...)
6. ├─...[]
7. └─data.table:::`[.data.table`(...)
── Error ('test-match_name.R:182:3'): w/ 1 lbk row matching ultimate, yields expected names ──
Error in ``[.data.table`(matched, , `:=`(pick, none_is_one(score) | some_is_one(score)), by = id_2dii)`: attempt access index 10/10 in VECTOR_ELT
Backtrace:
▆
1. ├─testthat::expect_named(...) at test-match_name.R:182:3
2. │ └─testthat::quasi_label(enquo(object), label)
3. │ └─rlang::eval_bare(expr, quo_get_env(quo))
4. └─r2dii.match::match_name(lbk1, r2dii.data::abcd_demo)
5. └─r2dii.match:::match_name_impl(...)
6. ├─...[]
7. └─data.table:::`[.data.table`(...)
── Failure ('test-match_name.R:189:3'): takes `min_score` ──────────────────────
Expected `match_name(...)` not to throw any errors.
Actually got a <simpleError> with message:
attempt access index 10/10 in VECTOR_ELT
Backtrace:
▆
1. ├─r2dii.match:::expect_no_error(...) at test-match_name.R:189:3
2. │ └─testthat::expect_error(regexp = NA, ...) at ./helper-cnd.R:4:3
3. │ └─testthat:::expect_condition_matching_(...)
4. │ └─testthat:::quasi_capture(...)
5. │ ├─testthat (local) .capture(...)
6. │ │ └─base::withCallingHandlers(...)
7. │ └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
8. └─r2dii.match::match_name(...)
9. └─r2dii.match:::match_name_impl(...)
10. ├─...[]
11. └─data.table:::`[.data.table`(...)
── Error ('test-match_name.R:198:3'): takes `method` ───────────────────────────
Error in ``[.data.table`(matched, , `:=`(pick, none_is_one(score) | some_is_one(score)), by = id_2dii)`: attempt access index 10/10 in VECTOR_ELT
Backtrace:
▆
1. ├─testthat::expect_false(...) at test-match_name.R:198:3
2. │ └─testthat::quasi_label(enquo(object), label)
3. │ └─rlang::eval_bare(expr, quo_get_env(quo))
4. ├─base::identical(...)
5. └─r2dii.match::match_name(lbk_method, r2dii.data::abcd_demo, method = "jw")
6. └─r2dii.match:::match_name_impl(...)
7. ├─...[]
8. └─data.table:::`[.data.table`(...)
── Error ('test-match_name.R:210:3'): takes `p` ────────────────────────────────
Error in ``[.data.table`(matched, , `:=`(pick, none_is_one(score) | some_is_one(score)), by = id_2dii)`: attempt access index 10/10 in VECTOR_ELT
Backtrace:
▆
1. ├─testthat::expect_false(...) at test-match_name.R:210:3
2. │ └─testthat::quasi_label(enquo(object), label)
3. │ └─rlang::eval_bare(expr, quo_get_env(quo))
4. ├─base::identical(...)
5. └─r2dii.match::match_name(lbk_p, r2dii.data::abcd_demo, p = 0.1)
6. └─r2dii.match:::match_name_impl(...)
7. ├─...[]
8. └─data.table:::`[.data.table`(...)
── Error ('test-match_name.R:228:3'): takes `overwrite` ────────────────────────
Error in ``[.data.table`(matched, , `:=`(pick, none_is_one(score) | some_is_one(score)), by = id_2dii)`: attempt access index 10/10 in VECTOR_ELT
Backtrace:
▆
1. ├─testthat::expect_false(...) at test-match_name.R:228:3
2. │ └─testthat::quasi_label(enquo(object), label)
3. │ └─rlang::eval_bare(expr, quo_get_env(quo))
4. ├─base::identical(...)
5. └─r2dii.match::match_name(lbk, r2dii.data::abcd_demo, overwrite = NULL)
6. └─r2dii.match:::match_name_impl(...)
7. ├─...[]
8. └─data.table:::`[.data.table`(...)
── Error ('test-match_name.R:245:3'): warns overwrite ──────────────────────────
Error in ``[.data.table`(matched, , `:=`(pick, none_is_one(score) | some_is_one(score)), by = id_2dii)`: attempt access index 10/10 in VECTOR_ELT
Backtrace:
▆
1. ├─testthat::expect_warning(...) at test-match_name.R:245:3
2. │ └─testthat:::expect_condition_matching_(...)
3. │ └─testthat:::quasi_capture(...)
4. │ ├─testthat (local) .capture(...)
5. │ │ └─base::withCallingHandlers(...)
6. │ └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
7. └─r2dii.match::match_name(lbk, r2dii.data::abcd_demo, overwrite = overwrite_demo)
8. └─r2dii.match:::match_name_impl(...)
9. ├─...[]
10. └─data.table:::`[.data.table`(...)
── Error ('test-match_name.R:252:3'): recovers `sector_lbk` ────────────────────
Error in ``[.data.table`(matched, , `:=`(pick, none_is_one(score) | some_is_one(score)), by = id_2dii)`: attempt access index 10/10 in VECTOR_ELT
Backtrace:
▆
1. ├─testthat::expect_true(...) at test-match_name.R:252:3
2. │ └─testthat::quasi_label(enquo(object), label)
3. │ └─rlang::eval_bare(expr, quo_get_env(quo))
4. ├─rlang::has_name(...)
5. │ ├─name %in% names2(x)
6. │ └─rlang::names2(x)
7. └─r2dii.match::match_name(...)
8. └─r2dii.match:::match_name_impl(...)
9. ├─...[]
10. └─data.table:::`[.data.table`(...)
── Error ('test-match_name.R:261:3'): recovers `sector_abcd` ───────────────────
Error in ``[.data.table`(matched, , `:=`(pick, none_is_one(score) | some_is_one(score)), by = id_2dii)`: attempt access index 10/10 in VECTOR_ELT
Backtrace:
▆
1. ├─testthat::expect_true(...) at test-match_name.R:261:3
2. │ └─testthat::quasi_label(enquo(object), label)
3. │ └─rlang::eval_bare(expr, quo_get_env(quo))
4. ├─rlang::has_name(...)
5. │ ├─name %in% names2(x)
6. │ └─rlang::names2(x)
7. └─r2dii.match::match_name(r2dii.data::loanbook_demo, r2dii.data::abcd_demo)
8. └─r2dii.match:::match_name_impl(...)
9. ├─...[]
10. └─data.table:::`[.data.table`(...)
── Error ('test-match_name.R:267:3'): outputs name from loanbook, not name.y (bug fix) ──
Error in ``[.data.table`(matched, , `:=`(pick, none_is_one(score) | some_is_one(score)), by = id_2dii)`: attempt access index 10/10 in VECTOR_ELT
Backtrace:
▆
1. └─r2dii.match::match_name(...) at test-match_name.R:267:3
2. └─r2dii.match:::match_name_impl(...)
3. ├─...[]
4. └─data.table:::`[.data.table`(...)
── Failure ('test-match_name.R:272:3'): works with `min_score = 0` (bug fix) ───
Expected `match_name(...)` not to throw any errors.
Actually got a <simpleError> with message:
attempt access index 10/10 in VECTOR_ELT
Backtrace:
▆
1. ├─r2dii.match:::expect_no_error(...) at test-match_name.R:272:3
2. │ └─testthat::expect_error(regexp = NA, ...) at ./helper-cnd.R:4:3
3. │ └─testthat:::expect_condition_matching_(...)
4. │ └─testthat:::quasi_capture(...)
5. │ ├─testthat (local) .capture(...)
6. │ │ └─base::withCallingHandlers(...)
7. │ └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
8. └─r2dii.match::match_name(...)
9. └─r2dii.match:::match_name_impl(...)
10. ├─...[]
11. └─data.table:::`[.data.table`(...)
── Error ('test-match_name.R:281:3'): outputs only perfect matches if any (#40 @2diiKlaus) ──
Error in ``[.data.table`(matched, , `:=`(pick, none_is_one(score) | some_is_one(score)), by = id_2dii)`: attempt access index 10/10 in VECTOR_ELT
Backtrace:
▆
1. ├─... %>% pull(score) at test-match_name.R:281:3
2. ├─dplyr::pull(., score)
3. ├─dplyr::filter(., alias == this_alias)
4. ├─dplyr::mutate(., alias = to_alias(name))
5. └─r2dii.match::match_name(., r2dii.data::abcd_demo)
6. └─r2dii.match:::match_name_impl(...)
7. ├─...[]
8. └─data.table:::`[.data.table`(...)
── Error ('test-match_name.R:296:3'): match_name()$level lacks prefix 'name_' suffix '_lbk' ──
Error in ``[.data.table`(matched, , `:=`(pick, none_is_one(score) | some_is_one(score)), by = id_2dii)`: attempt access index 10/10 in VECTOR_ELT
Backtrace:
▆
1. └─r2dii.match::match_name(...) at test-match_name.R:296:3
2. └─r2dii.match:::match_name_impl(...)
3. ├─...[]
4. └─data.table:::`[.data.table`(...)
── Error ('test-match_name.R:309:3'): preserves groups ─────────────────────────
Error in ``[.data.table`(matched, , `:=`(pick, none_is_one(score) | some_is_one(score)), by = id_2dii)`: attempt access index 10/10 in VECTOR_ELT
Backtrace:
▆
1. ├─testthat::expect_true(...) at test-match_name.R:309:3
2. │ └─testthat::quasi_label(enquo(object), label)
3. │ └─rlang::eval_bare(expr, quo_get_env(quo))
4. ├─dplyr::is_grouped_df(match_name(grouped_loanbook, r2dii.data::abcd_demo))
5. └─r2dii.match::match_name(grouped_loanbook, r2dii.data::abcd_demo)
6. └─r2dii.match:::match_name_impl(...)
7. ├─...[]
8. └─data.table:::`[.data.table`(...)
── Error ('test-match_name.R:313:3'): outputs id consistent with level ─────────
Error in ``[.data.table`(matched, , `:=`(pick, none_is_one(score) | some_is_one(score)), by = id_2dii)`: attempt access index 10/10 in VECTOR_ELT
Backtrace:
▆
1. ├─slice(r2dii.data::loanbook_demo, 6) %>% ... at test-match_name.R:313:3
2. └─r2dii.match::match_name(., r2dii.data::abcd_demo)
3. └─r2dii.match:::match_name_impl(...)
4. ├─...[]
5. └─data.table:::`[.data.table`(...)
── Error ('test-match_name.R:319:3'): no longer yiels all NAs in lbk columns (#85 @jdhoffa) ──
Error in ``[.data.table`(matched, , `:=`(pick, none_is_one(score) | some_is_one(score)), by = id_2dii)`: attempt access index 10/10 in VECTOR_ELT
Backtrace:
▆
1. └─r2dii.match::match_name(r2dii.data::loanbook_demo, r2dii.data::abcd_demo) at test-match_name.R:319:3
2. └─r2dii.match:::match_name_impl(...)
3. ├─...[]
4. └─data.table:::`[.data.table`(...)
── Error ('test-match_name.R:357:3'): handles any number of intermediate_parent columns (#84) ──
Error in ``[.data.table`(matched, , `:=`(pick, none_is_one(score) | some_is_one(score)), by = id_2dii)`: attempt access index 10/10 in VECTOR_ELT
Backtrace:
▆
1. └─r2dii.match::match_name(lbk_mini, fake_abcd()) at test-match_name.R:357:3
2. └─r2dii.match:::match_name_impl(...)
3. ├─...[]
4. └─data.table:::`[.data.table`(...)
── Error ('test-match_name.R:369:3'): warns/errors if some/all system classification is unknown ──
Error in ``[.data.table`(matched, , `:=`(pick, none_is_one(score) | some_is_one(score)), by = id_2dii)`: attempt access index 10/10 in VECTOR_ELT
Backtrace:
▆
1. ├─testthat::expect_warning(...) at test-match_name.R:369:3
2. │ └─testthat:::expect_condition_matching_(...)
3. │ └─testthat:::quasi_capture(...)
4. │ ├─testthat (local) .capture(...)
5. │ │ └─base::withCallingHandlers(...)
6. │ └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
7. └─r2dii.match::match_name(some_bad_system, fake_abcd())
8. └─r2dii.match:::match_name_impl(...)
9. ├─...[]
10. └─data.table:::`[.data.table`(...)
── Failure ('test-match_name.R:462:3'): with bad input errors gracefully ───────
Expected `match_name(bad_loanbook, r2dii.data::abcd_demo)` not to throw any errors.
Actually got a <simpleError> with message:
attempt access index 10/10 in VECTOR_ELT
Backtrace:
▆
1. ├─r2dii.match:::expect_no_error(match_name(bad_loanbook, r2dii.data::abcd_demo)) at test-match_name.R:462:3
2. │ └─testthat::expect_error(regexp = NA, ...) at ./helper-cnd.R:4:3
3. │ └─testthat:::expect_condition_matching_(...)
4. │ └─testthat:::quasi_capture(...)
5. │ ├─testthat (local) .capture(...)
6. │ │ └─base::withCallingHandlers(...)
7. │ └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
8. └─r2dii.match::match_name(bad_loanbook, r2dii.data::abcd_demo)
9. └─r2dii.match:::match_name_impl(...)
10. ├─...[]
11. └─data.table:::`[.data.table`(...)
── Error ('test-match_name.R:495:3'): w/ mismatching sector_classification and `by_sector = FALSE` yields
a match ──
Error in ``[.data.table`(matched, , `:=`(pick, none_is_one(score) | some_is_one(score)), by = id_2dii)`: attempt access index 10/10 in VECTOR_ELT
Backtrace:
▆
1. └─r2dii.match::match_name(...) at test-match_name.R:495:3
2. └─r2dii.match:::match_name_impl(...)
3. ├─...[]
4. └─data.table:::`[.data.table`(...)
── Error ('test-match_name.R:505:3'): takes `by_sector` ────────────────────────
Error in ``[.data.table`(matched, , `:=`(pick, none_is_one(score) | some_is_one(score)), by = id_2dii)`: attempt access index 10/10 in VECTOR_ELT
Backtrace:
▆
1. ├─testthat::expect_false(...) at test-match_name.R:505:3
2. │ └─testthat::quasi_label(enquo(object), label)
3. │ └─rlang::eval_bare(expr, quo_get_env(quo))
4. ├─base::identical(...)
5. └─r2dii.match::match_name(...)
6. └─r2dii.match:::match_name_impl(...)
7. ├─...[]
8. └─data.table:::`[.data.table`(...)
── Failure ('test-match_name.R:516:3'): w/ duplicates in abcd throws now error; instead remove duplicates ──
Expected `out <- match_name(fake_lbk(), dupl)` not to throw any errors.
Actually got a <simpleError> with message:
attempt access index 10/10 in VECTOR_ELT
Backtrace:
▆
1. ├─testthat::expect_error(out <- match_name(fake_lbk(), dupl), NA) at test-match_name.R:516:3
2. │ └─testthat:::expect_condition_matching_(...)
3. │ └─testthat:::quasi_capture(...)
4. │ ├─testthat (local) .capture(...)
5. │ │ └─base::withCallingHandlers(...)
6. │ └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
7. └─r2dii.match::match_name(fake_lbk(), dupl)
8. └─r2dii.match:::match_name_impl(...)
9. ├─...[]
10. └─data.table:::`[.data.table`(...)
── Error ('test-match_name.R:517:3'): w/ duplicates in abcd throws now error; instead remove duplicates ──
Error in `eval(code, test_env)`: object 'out' not found
Backtrace:
▆
1. ├─testthat::expect_equal(nrow(out), 1L) at test-match_name.R:517:3
2. │ └─testthat::quasi_label(enquo(object), label)
3. │ └─rlang::eval_bare(expr, quo_get_env(quo))
4. └─base::nrow(out)
── Error ('test-match_name.R:585:3'): outputs correct `borderline` (#269) ──────
Error in ``[.data.table`(matched, , `:=`(pick, none_is_one(score) | some_is_one(score)), by = id_2dii)`: attempt access index 10/10 in VECTOR_ELT
Backtrace:
▆
1. └─r2dii.match::match_name(lbk, abcd) at test-match_name.R:585:3
2. └─r2dii.match:::match_name_impl(...)
3. ├─...[]
4. └─data.table:::`[.data.table`(...)
── Error ('test-match_name.R:591:3'): matches any case of abcd$sector, but converts sector to lowercase ──
Error in ``[.data.table`(matched, , `:=`(pick, none_is_one(score) | some_is_one(score)), by = id_2dii)`: attempt access index 10/10 in VECTOR_ELT
Backtrace:
▆
1. └─r2dii.match::match_name(fake_lbk(), fake_abcd(sector = "power")) at test-match_name.R:591:3
2. └─r2dii.match:::match_name_impl(...)
3. ├─...[]
4. └─data.table:::`[.data.table`(...)
── Error ('test-match_name.R:604:3'): matches any case of abcd$name_company, but preserves original case ──
Error in ``[.data.table`(matched, , `:=`(pick, none_is_one(score) | some_is_one(score)), by = id_2dii)`: attempt access index 10/10 in VECTOR_ELT
Backtrace:
▆
1. └─r2dii.match::match_name(fake_lbk(), fake_abcd(name_company = "alpine knits")) at test-match_name.R:604:3
2. └─r2dii.match:::match_name_impl(...)
3. ├─...[]
4. └─data.table:::`[.data.table`(...)
── Failure ('test-match_name.R:620:3'): with arguments passed via ellipsis, throws no error (#310) ──
Expected `match_name(fake_lbk(), fake_abcd(), method = "qgram", q = 1)` not to throw any errors.
Actually got a <simpleError> with message:
attempt access index 10/10 in VECTOR_ELT
Backtrace:
▆
1. ├─r2dii.match:::expect_no_error(...) at test-match_name.R:620:3
2. │ └─testthat::expect_error(regexp = NA, ...) at ./helper-cnd.R:4:3
3. │ └─testthat:::expect_condition_matching_(...)
4. │ └─testthat:::quasi_capture(...)
5. │ ├─testthat (local) .capture(...)
6. │ │ └─base::withCallingHandlers(...)
7. │ └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
8. └─r2dii.match::match_name(...)
9. └─r2dii.match:::match_name_impl(...)
10. ├─...[]
11. └─data.table:::`[.data.table`(...)
── Error ('test-match_name.R:637:3'): with arguments passed via ellipsis, outputs the expected score ──
Error in ``[.data.table`(matched, , `:=`(pick, none_is_one(score) | some_is_one(score)), by = id_2dii)`: attempt access index 10/10 in VECTOR_ELT
Backtrace:
▆
1. └─r2dii.match::match_name(lbk, abcd, method = "qgram", q = this_q) at test-match_name.R:637:3
2. └─r2dii.match:::match_name_impl(...)
3. ├─...[]
4. └─data.table:::`[.data.table`(...)
── Error ('test-match_name.R:670:3'): w/ loanbook w/ reserved cols, outputs sector not i.sector (#330) ──
Error in ``[.data.table`(matched, , `:=`(pick, none_is_one(score) | some_is_one(score)), by = id_2dii)`: attempt access index 10/10 in VECTOR_ELT
Backtrace:
▆
1. └─r2dii.match::match_name(reserved, fake_abcd()) at test-match_name.R:670:3
2. └─r2dii.match:::match_name_impl(...)
3. ├─...[]
4. └─data.table:::`[.data.table`(...)
── Error ('test-match_name.R:712:3'): allows custom `sector_classification` ────
Error in ``[.data.table`(matched, , `:=`(pick, none_is_one(score) | some_is_one(score)), by = id_2dii)`: attempt access index 10/10 in VECTOR_ELT
Backtrace:
▆
1. └─r2dii.match::match_name(loanbook, abcd, sector_classification = custom_classification) at test-match_name.R:712:3
2. └─r2dii.match:::match_name_impl(...)
3. ├─...[]
4. └─data.table:::`[.data.table`(...)
── Error ('test-match_name.R:824:3'): with `join_id` and one ID match, one fuzzy match, outputs as expected (#135) ──
Error in ``[.data.table`(matched, , `:=`(pick, none_is_one(score) | some_is_one(score)), by = id_2dii)`: attempt access index 10/10 in VECTOR_ELT
Backtrace:
▆
1. └─r2dii.match::match_name(loanbook, abcd, join_id = c(lei_direct_loantaker = "lei")) at test-match_name.R:824:3
2. └─r2dii.match:::match_name_impl(...)
3. ├─...[]
4. └─data.table:::`[.data.table`(...)
── Error ('test-match_name.R:852:3'): columns in output match what is documented in `data_dictionary` ──
Error in ``[.data.table`(matched, , `:=`(pick, none_is_one(score) | some_is_one(score)), by = id_2dii)`: attempt access index 10/10 in VECTOR_ELT
Backtrace:
▆
1. └─r2dii.match::match_name(loanbook = loanbook, abcd = abcd, join_id = c(lei_direct_loantaker = "lei")) at test-match_name.R:852:3
2. └─r2dii.match:::match_name_impl(...)
3. ├─...[]
4. └─data.table:::`[.data.table`(...)
── Failure ('test-prioritize.R:4:3'): w/ full demo datasets throws no error ────
Expected ``%>%`(...)` not to throw any errors.
Actually got a <simpleError> with message:
attempt access index 10/10 in VECTOR_ELT
Backtrace:
▆
1. ├─r2dii.match:::expect_no_error(...) at test-prioritize.R:4:3
2. │ └─testthat::expect_error(regexp = NA, ...) at ./helper-cnd.R:4:3
3. │ └─testthat:::expect_condition_matching_(...)
4. │ └─testthat:::quasi_capture(...)
5. │ ├─testthat (local) .capture(...)
6. │ │ └─base::withCallingHandlers(...)
7. │ └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
8. ├─... %>% prioritize(priority = "ultimate_parent")
9. ├─r2dii.match::prioritize(., priority = "ultimate_parent")
10. │ └─r2dii.match:::has_zero_rows(data)
11. │ └─base::nrow(data)
12. └─r2dii.match::match_name(., r2dii.data::abcd_demo)
13. └─r2dii.match:::match_name_impl(...)
14. ├─...[]
15. └─data.table:::`[.data.table`(...)
── Error ('test-prioritize.R:253:3'): columns in output match what is documented in `data_dictionary` ──
Error in ``[.data.table`(matched, , `:=`(pick, none_is_one(score) | some_is_one(score)), by = id_2dii)`: attempt access index 10/10 in VECTOR_ELT
Backtrace:
▆
1. └─r2dii.match::match_name(lbk, abcd) at test-prioritize.R:253:3
2. └─r2dii.match:::match_name_impl(...)
3. ├─...[]
4. └─data.table:::`[.data.table`(...)
[ FAIL 39 | WARN 0 | SKIP 1 | PASS 136 ]
Error:
! Test failures.
Execution halted
Flavor: r-devel-linux-x86_64-fedora-gcc