Running ‘testthat.R’ [9s/15s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(powerjoin)
  > 
  > test_check("powerjoin")
  i implicit_keys
  > column_conflict
  > duplicate_keys_left
  > duplicate_keys_right
  > unmatched_keys_left
  > unmatched_keys_right
  > missing_key_combination_left
  > missing_key_combination_right
  > inconsistent_factor_levels
  > inconsistent_type
  > grouped_input
  > na_keys
  New names:
  * `a` -> `a...1`
  * `a` -> `a...3`
  New names:
  * `a` -> `a...1`
  * `a` -> `a...3`
  [ FAIL 7 | WARN 26 | SKIP 0 | PASS 92 ]
  
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Error ('test-conflict.R:58:3'): conflict works special values ───────────────
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─testthat::expect_equal(...) at test-conflict.R:58:2
    2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. ├─powerjoin::power_left_join(df1, df2, by = "id", conflict = "patch")
    5. └─powerjoin:::power_left_join.data.frame(df1, df2, by = "id", conflict = "patch")
    6.   └─powerjoin:::join_mutate(...)
    7.     └─powerjoin:::handle_conflicts(...)
    8.       ├─base::`[<-`(`*tmp*`, !is.na(y_slicer), , value = `<tibble[,1]>`)
    9.       └─tibble:::`[<-.tbl_df`(`*tmp*`, !is.na(y_slicer), , value = `<tibble[,1]>`)
   10.         └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   11.           └─tibble:::tbl_subassign_row(xo, i, value, i_arg, value_arg, call)
   12.             ├─base::withCallingHandlers(...)
   13.             └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  ── Error ('test-fill.R:4:3'): fill  works ──────────────────────────────────────
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─testthat::expect_equal(...) at test-fill.R:4:2
    2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. ├─powerjoin::power_full_join(df1, df2, by = "id", fill = 0)
    5. └─powerjoin:::power_full_join.data.frame(df1, df2, by = "id", fill = 0)
    6.   └─powerjoin:::join_mutate(...)
    7.     ├─base::`[<-`(`*tmp*`, is.na(y_slicer), names(y_out), value = `<dbl>`)
    8.     └─tibble:::`[<-.tbl_df`(...)
    9.       └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   10.         └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   11.           ├─base::withCallingHandlers(...)
   12.           └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  ── Error ('test-fuzzy_joins.R:90:3'): mixing equi joins and fuzzy joins works ──
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─testthat::expect_equal(...) at test-fuzzy_joins.R:90:2
    2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. ├─powerjoin::power_full_join(...)
    5. ├─powerjoin:::power_full_join.data.frame(...)
    6. │ └─powerjoin:::join_mutate(...)
    7. │   └─powerjoin:::join_rows_fuzzy(x, y, by, by$multi_match_fun, type = type)
    8. │     └─... %>% ...
    9. ├─dplyr::full_join(...)
   10. ├─dplyr::full_join(...)
   11. └─dplyr:::full_join.data.frame(...)
   12.   └─dplyr:::join_mutate(...)
   13.     ├─base::`[<-`(`*tmp*`, new_rows, merge, value = `<tibble[,1]>`)
   14.     └─tibble:::`[<-.tbl_df`(`*tmp*`, new_rows, merge, value = `<tibble[,1]>`)
   15.       └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   16.         └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   17.           ├─base::withCallingHandlers(...)
   18.           └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  ── Error ('test-keep.R:42:3'): The `keep` argument works with equi joins ───────
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─testthat::expect_equal(...) at test-keep.R:42:2
    2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. ├─powerjoin::power_full_join(...)
    5. └─powerjoin:::power_full_join.data.frame(...)
    6.   └─powerjoin:::join_mutate(...)
    7.     ├─base::`[<-`(`*tmp*`, new_rows, names(y_key), value = `<tibble[,1]>`)
    8.     └─tibble:::`[<-.tbl_df`(`*tmp*`, new_rows, names(y_key), value = `<tibble[,1]>`)
    9.       └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   10.         └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   11.           ├─base::withCallingHandlers(...)
   12.           └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  ── Error ('test-standard_joins.R:27:3'): power_right_join works ────────────────
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─testthat::expect_equal(...) at test-standard_joins.R:27:2
    2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. ├─powerjoin::power_right_join(df1, df2, by = "id")
    5. └─powerjoin:::power_right_join.data.frame(df1, df2, by = "id")
    6.   └─powerjoin:::join_mutate(...)
    7.     ├─base::`[<-`(`*tmp*`, new_rows, names(y_key), value = `<tibble[,1]>`)
    8.     └─tibble:::`[<-.tbl_df`(`*tmp*`, new_rows, names(y_key), value = `<tibble[,1]>`)
    9.       └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   10.         └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   11.           ├─base::withCallingHandlers(...)
   12.           └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  ── Error ('test-standard_joins.R:49:3'): power_full_join works ─────────────────
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─testthat::expect_equal(...) at test-standard_joins.R:49:2
    2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. ├─powerjoin::power_full_join(df1, df2, by = "id")
    5. └─powerjoin:::power_full_join.data.frame(df1, df2, by = "id")
    6.   └─powerjoin:::join_mutate(...)
    7.     ├─base::`[<-`(`*tmp*`, new_rows, names(y_key), value = `<tibble[,1]>`)
    8.     └─tibble:::`[<-.tbl_df`(`*tmp*`, new_rows, names(y_key), value = `<tibble[,1]>`)
    9.       └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   10.         └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   11.           ├─base::withCallingHandlers(...)
   12.           └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  ── Error ('test-standard_joins.R:68:3'): dplyr code is still covered ───────────
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─testthat::expect_equal(...) at test-standard_joins.R:68:2
    2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. ├─powerjoin::power_right_join(df1, df2, by = "id", na_matches = "never")
    5. └─powerjoin:::power_right_join.data.frame(...)
    6.   └─powerjoin:::join_mutate(...)
    7.     ├─base::`[<-`(`*tmp*`, new_rows, names(y_key), value = `<tibble[,1]>`)
    8.     └─tibble:::`[<-.tbl_df`(`*tmp*`, new_rows, names(y_key), value = `<tibble[,1]>`)
    9.       └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   10.         └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   11.           ├─base::withCallingHandlers(...)
   12.           └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  
  [ FAIL 7 | WARN 26 | SKIP 0 | PASS 92 ]
  Error: Test failures
  Execution halted