Running ‘testthat.R’ [34s/52s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(fuzzyjoin)
  > 
  > test_check("fuzzyjoin")
  [ FAIL 6 | WARN 10 | SKIP 0 | PASS 241 ]
  
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Error ('test_distance_join.R:63:3'): distance_ functions besides inner work ──
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─... %>% ... at test_distance_join.R:63:2
    2. ├─dplyr::mutate(...)
    3. ├─fuzzyjoin::distance_full_join(...)
    4. │ └─fuzzyjoin::distance_join(...)
    5. │   ├─fuzzyjoin:::ensure_distance_col(...)
    6. │   └─fuzzyjoin::fuzzy_join(...)
    7. │     └─... %>% ...
    8. ├─dplyr::full_join(., tibble::tibble(y = seq_len(nrow(y))), by = "y")
    9. ├─dplyr::full_join(., tibble::tibble(x = seq_len(nrow(x))), by = "x")
   10. └─dplyr:::full_join.data.frame(...)
   11.   └─dplyr:::join_mutate(...)
   12.     ├─base::`[<-`(`*tmp*`, new_rows, merge, value = `<tibble[,1]>`)
   13.     └─tibble:::`[<-.tbl_df`(`*tmp*`, new_rows, merge, value = `<tibble[,1]>`)
   14.       └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   15.         └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   16.           ├─base::withCallingHandlers(...)
   17.           └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  ── Error ('test_interval_join.R:40:3'): Can do non-inner joins on intervals ────
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─fuzzyjoin::interval_full_join(x1, y1, by = b1) at test_interval_join.R:40:2
    2. │ └─fuzzyjoin::interval_join(x, y, by, mode = "full", ...)
    3. │   └─fuzzyjoin::fuzzy_join(...)
    4. │     └─... %>% ...
    5. ├─dplyr::full_join(., tibble::tibble(y = seq_len(nrow(y))), by = "y")
    6. ├─dplyr::full_join(., tibble::tibble(x = seq_len(nrow(x))), by = "x")
    7. └─dplyr:::full_join.data.frame(...)
    8.   └─dplyr:::join_mutate(...)
    9.     ├─base::`[<-`(`*tmp*`, new_rows, merge, value = `<tibble[,1]>`)
   10.     └─tibble:::`[<-.tbl_df`(`*tmp*`, new_rows, merge, value = `<tibble[,1]>`)
   11.       └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   12.         └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   13.           ├─base::withCallingHandlers(...)
   14.           └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  ── Error ('test_regex_join.R:30:3'): regex joins work ──────────────────────────
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─diamonds %>% regex_full_join(d, by = c(cut = "cut_regex")) at test_regex_join.R:30:2
    2. ├─fuzzyjoin::regex_full_join(., d, by = c(cut = "cut_regex"))
    3. │ └─fuzzyjoin::regex_join(x, y, by, mode = "full", ignore_case = ignore_case)
    4. │   └─fuzzyjoin::fuzzy_join(x, y, by = by, match_fun = match_fun, mode = mode)
    5. │     └─... %>% ...
    6. ├─dplyr::full_join(., tibble::tibble(y = seq_len(nrow(y))), by = "y")
    7. ├─dplyr::full_join(., tibble::tibble(x = seq_len(nrow(x))), by = "x")
    8. └─dplyr:::full_join.data.frame(...)
    9.   └─dplyr:::join_mutate(...)
   10.     ├─base::`[<-`(`*tmp*`, new_rows, merge, value = `<tibble[,1]>`)
   11.     └─tibble:::`[<-.tbl_df`(`*tmp*`, new_rows, merge, value = `<tibble[,1]>`)
   12.       └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   13.         └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   14.           ├─base::withCallingHandlers(...)
   15.           └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  ── Error ('test_stringdist_join.R:73:3'): stringdist_full_join works as expected ──
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─diamonds %>% stringdist_full_join(d3, by = c(cut = "cut2")) at test_stringdist_join.R:73:2
    2. ├─fuzzyjoin::stringdist_full_join(., d3, by = c(cut = "cut2"))
    3. │ └─fuzzyjoin::stringdist_join(...)
    4. │   ├─fuzzyjoin:::ensure_distance_col(...)
    5. │   └─fuzzyjoin::fuzzy_join(x, y, by = by, mode = mode, match_fun = match_fun)
    6. │     └─... %>% ...
    7. ├─dplyr::full_join(., tibble::tibble(y = seq_len(nrow(y))), by = "y")
    8. ├─dplyr::full_join(., tibble::tibble(x = seq_len(nrow(x))), by = "x")
    9. └─dplyr:::full_join.data.frame(...)
   10.   └─dplyr:::join_mutate(...)
   11.     ├─base::`[<-`(`*tmp*`, new_rows, merge, value = `<tibble[,1]>`)
   12.     └─tibble:::`[<-.tbl_df`(`*tmp*`, new_rows, merge, value = `<tibble[,1]>`)
   13.       └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   14.         └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   15.           ├─base::withCallingHandlers(...)
   16.           └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  ── Error ('test_stringdist_join.R:175:3'): stringdist_join works with data frames without matches ──
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─fuzzyjoin::stringdist_full_join(diamonds, d, by = c(cut = "cut2")) at test_stringdist_join.R:175:2
    2. │ └─fuzzyjoin::stringdist_join(...)
    3. │   ├─fuzzyjoin:::ensure_distance_col(...)
    4. │   └─fuzzyjoin::fuzzy_join(x, y, by = by, mode = mode, match_fun = match_fun)
    5. │     └─... %>% ...
    6. ├─dplyr::full_join(., tibble::tibble(y = seq_len(nrow(y))), by = "y")
    7. ├─dplyr::full_join(., tibble::tibble(x = seq_len(nrow(x))), by = "x")
    8. └─dplyr:::full_join.data.frame(...)
    9.   └─dplyr:::join_mutate(...)
   10.     ├─base::`[<-`(`*tmp*`, new_rows, merge, value = `<tibble[,1]>`)
   11.     └─tibble:::`[<-.tbl_df`(`*tmp*`, new_rows, merge, value = `<tibble[,1]>`)
   12.       └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   13.         └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   14.           ├─base::withCallingHandlers(...)
   15.           └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  ── Error ('test_stringdist_join.R:273:5'): stringdist_join works on grouped data frames ──
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─fuzzyjoin::stringdist_join(...) at test_stringdist_join.R:273:4
    2. │ ├─fuzzyjoin:::ensure_distance_col(...)
    3. │ └─fuzzyjoin::fuzzy_join(x, y, by = by, mode = mode, match_fun = match_fun)
    4. │   └─... %>% ...
    5. ├─dplyr::full_join(., tibble::tibble(y = seq_len(nrow(y))), by = "y")
    6. ├─dplyr::full_join(., tibble::tibble(x = seq_len(nrow(x))), by = "x")
    7. └─dplyr:::full_join.data.frame(...)
    8.   └─dplyr:::join_mutate(...)
    9.     ├─base::`[<-`(`*tmp*`, new_rows, merge, value = `<tibble[,1]>`)
   10.     └─tibble:::`[<-.tbl_df`(`*tmp*`, new_rows, merge, value = `<tibble[,1]>`)
   11.       └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   12.         └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   13.           ├─base::withCallingHandlers(...)
   14.           └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  
  [ FAIL 6 | WARN 10 | SKIP 0 | PASS 241 ]
  Error: Test failures
  Execution halted