Running ‘testthat.R’ [16s/27s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(funneljoin)
  
  Attaching package: 'funneljoin'
  
  The following object is masked from 'package:stats':
  
      filter
  
  > 
  > test_check("funneljoin")
  [ FAIL 17 | WARN 56 | SKIP 1 | PASS 354 ]
  
  ══ Skipped tests ═══════════════════════════════════════════════════════════════
  • On CRAN (1)
  
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Error ('test_any_any.R:38:3'): after_join works with mode = right and type = any-any ──
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─funneljoin::after_join(...) at test_any_any.R:38:2
    2. │ └─... %>% dplyr::select(-..idx, -..idy)
    3. ├─dplyr::select(., -..idx, -..idy)
    4. ├─dplyr (local) join_func(., y_i, by = c(by_user, ..idy = "..idy"), suffix = suffix)
    5. └─dplyr:::right_join.data.frame(...)
    6.   └─dplyr:::join_mutate(...)
    7.     ├─base::`[<-`(`*tmp*`, new_rows, merge, value = `<tibble[,2]>`)
    8.     └─tibble:::`[<-.tbl_df`(`*tmp*`, new_rows, merge, value = `<tibble[,2]>`)
    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_any_any.R:79:3'): after_join works with mode = full and type = any-any ──
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─funneljoin::after_join(...) at test_any_any.R:79:2
    2. │ └─... %>% dplyr::select(-..idx, -..idy)
    3. ├─dplyr::select(., -..idx, -..idy)
    4. ├─dplyr (local) join_func(., y_i, by = c(by_user, ..idy = "..idy"), suffix = suffix)
    5. └─dplyr:::full_join.data.frame(...)
    6.   └─dplyr:::join_mutate(...)
    7.     ├─base::`[<-`(`*tmp*`, new_rows, merge, value = `<tibble[,2]>`)
    8.     └─tibble:::`[<-.tbl_df`(`*tmp*`, new_rows, merge, value = `<tibble[,2]>`)
    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_any_firstafter.R:39:3'): after_join works with mode = right and type = any-firstafter ──
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─funneljoin::after_join(...) at test_any_firstafter.R:39:2
    2. │ └─... %>% dplyr::select(-..idx, -..idy)
    3. ├─dplyr::select(., -..idx, -..idy)
    4. ├─dplyr (local) join_func(., y_i, by = c(by_user, ..idy = "..idy"), suffix = suffix)
    5. └─dplyr:::right_join.data.frame(...)
    6.   └─dplyr:::join_mutate(...)
    7.     ├─base::`[<-`(`*tmp*`, new_rows, merge, value = `<tibble[,2]>`)
    8.     └─tibble:::`[<-.tbl_df`(`*tmp*`, new_rows, merge, value = `<tibble[,2]>`)
    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_any_firstafter.R:82:3'): after_join works with mode = full and type = any-firstafter ──
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─funneljoin::after_join(...) at test_any_firstafter.R:82:2
    2. │ └─... %>% dplyr::select(-..idx, -..idy)
    3. ├─dplyr::select(., -..idx, -..idy)
    4. ├─dplyr (local) join_func(., y_i, by = c(by_user, ..idy = "..idy"), suffix = suffix)
    5. └─dplyr:::full_join.data.frame(...)
    6.   └─dplyr:::join_mutate(...)
    7.     ├─base::`[<-`(`*tmp*`, new_rows, merge, value = `<tibble[,2]>`)
    8.     └─tibble:::`[<-.tbl_df`(`*tmp*`, new_rows, merge, value = `<tibble[,2]>`)
    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_first_first.R:38:3'): after_join works with mode = right and type = first-first ──
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─funneljoin::after_join(...) at test_first_first.R:38:2
    2. │ └─... %>% dplyr::select(-..idx, -..idy)
    3. ├─dplyr::select(., -..idx, -..idy)
    4. ├─dplyr (local) join_func(., y_i, by = c(by_user, ..idy = "..idy"), suffix = suffix)
    5. └─dplyr:::right_join.data.frame(...)
    6.   └─dplyr:::join_mutate(...)
    7.     ├─base::`[<-`(`*tmp*`, new_rows, merge, value = `<tibble[,2]>`)
    8.     └─tibble:::`[<-.tbl_df`(`*tmp*`, new_rows, merge, value = `<tibble[,2]>`)
    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_first_first.R:79:3'): after_join works with mode = full and type = first-first ──
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─funneljoin::after_join(...) at test_first_first.R:79:2
    2. │ └─... %>% dplyr::select(-..idx, -..idy)
    3. ├─dplyr::select(., -..idx, -..idy)
    4. ├─dplyr (local) join_func(., y_i, by = c(by_user, ..idy = "..idy"), suffix = suffix)
    5. └─dplyr:::full_join.data.frame(...)
    6.   └─dplyr:::join_mutate(...)
    7.     ├─base::`[<-`(`*tmp*`, new_rows, merge, value = `<tibble[,2]>`)
    8.     └─tibble:::`[<-.tbl_df`(`*tmp*`, new_rows, merge, value = `<tibble[,2]>`)
    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_first_firstafter.R:37:3'): after_join works with mode = right and type = first-firstafter ──
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─funneljoin::after_join(...) at test_first_firstafter.R:37:2
    2. │ └─... %>% dplyr::select(-..idx, -..idy)
    3. ├─dplyr::select(., -..idx, -..idy)
    4. ├─dplyr (local) join_func(., y_i, by = c(by_user, ..idy = "..idy"), suffix = suffix)
    5. └─dplyr:::right_join.data.frame(...)
    6.   └─dplyr:::join_mutate(...)
    7.     ├─base::`[<-`(`*tmp*`, new_rows, merge, value = `<tibble[,2]>`)
    8.     └─tibble:::`[<-.tbl_df`(`*tmp*`, new_rows, merge, value = `<tibble[,2]>`)
    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_first_firstafter.R:84:3'): after_join works with mode = full and type = first-firstafter ──
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─funneljoin::after_join(...) at test_first_firstafter.R:84:2
    2. │ └─... %>% dplyr::select(-..idx, -..idy)
    3. ├─dplyr::select(., -..idx, -..idy)
    4. ├─dplyr (local) join_func(., y_i, by = c(by_user, ..idy = "..idy"), suffix = suffix)
    5. └─dplyr:::full_join.data.frame(...)
    6.   └─dplyr:::join_mutate(...)
    7.     ├─base::`[<-`(`*tmp*`, new_rows, merge, value = `<tibble[,2]>`)
    8.     └─tibble:::`[<-.tbl_df`(`*tmp*`, new_rows, merge, value = `<tibble[,2]>`)
    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_firstwithin.R:52:3'): after_join works with mode = right and type = firstwithin-any ──
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─clicks %>% ... at test_firstwithin.R:52:2
    2. ├─funneljoin::after_right_join(...)
    3. │ └─funneljoin::after_join(...)
    4. │   └─... %>% dplyr::select(-..idx, -..idy)
    5. ├─dplyr::select(., -..idx, -..idy)
    6. ├─dplyr (local) join_func(., y_i, by = c(by_user, ..idy = "..idy"), suffix = suffix)
    7. └─dplyr:::right_join.data.frame(...)
    8.   └─dplyr:::join_mutate(...)
    9.     ├─base::`[<-`(`*tmp*`, new_rows, merge, value = `<tibble[,2]>`)
   10.     └─tibble:::`[<-.tbl_df`(`*tmp*`, new_rows, merge, value = `<tibble[,2]>`)
   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_lastbefore_any.R:46:3'): after_join works with mode = right and type = lastbefore-any ──
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─funneljoin::after_join(...) at test_lastbefore_any.R:46:2
    2. │ └─... %>% dplyr::select(-..idx, -..idy)
    3. ├─dplyr::select(., -..idx, -..idy)
    4. ├─dplyr (local) join_func(., y_i, by = c(by_user, ..idy = "..idy"), suffix = suffix)
    5. └─dplyr:::right_join.data.frame(...)
    6.   └─dplyr:::join_mutate(...)
    7.     ├─base::`[<-`(`*tmp*`, new_rows, merge, value = `<tibble[,2]>`)
    8.     └─tibble:::`[<-.tbl_df`(`*tmp*`, new_rows, merge, value = `<tibble[,2]>`)
    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_lastbefore_any.R:96:3'): after_join works with mode = full and type = lastbefore-any ──
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─funneljoin::after_join(...) at test_lastbefore_any.R:96:2
    2. │ └─... %>% dplyr::select(-..idx, -..idy)
    3. ├─dplyr::select(., -..idx, -..idy)
    4. ├─dplyr (local) join_func(., y_i, by = c(by_user, ..idy = "..idy"), suffix = suffix)
    5. └─dplyr:::full_join.data.frame(...)
    6.   └─dplyr:::join_mutate(...)
    7.     ├─base::`[<-`(`*tmp*`, new_rows, merge, value = `<tibble[,2]>`)
    8.     └─tibble:::`[<-.tbl_df`(`*tmp*`, new_rows, merge, value = `<tibble[,2]>`)
    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_lastbefore_firstafter.R:48:3'): after_join works with mode = right and type = lastbefore-firstafter ──
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─funneljoin::after_join(...) at test_lastbefore_firstafter.R:48:2
    2. │ └─... %>% dplyr::select(-..idx, -..idy)
    3. ├─dplyr::select(., -..idx, -..idy)
    4. ├─dplyr (local) join_func(., y_i, by = c(by_user, ..idy = "..idy"), suffix = suffix)
    5. └─dplyr:::right_join.data.frame(...)
    6.   └─dplyr:::join_mutate(...)
    7.     ├─base::`[<-`(`*tmp*`, new_rows, merge, value = `<tibble[,2]>`)
    8.     └─tibble:::`[<-.tbl_df`(`*tmp*`, new_rows, merge, value = `<tibble[,2]>`)
    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_lastbefore_firstafter.R:98:3'): after_join works with mode = full and type = lastbefore-firstafter ──
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─funneljoin::after_join(...) at test_lastbefore_firstafter.R:98:2
    2. │ └─... %>% dplyr::select(-..idx, -..idy)
    3. ├─dplyr::select(., -..idx, -..idy)
    4. ├─dplyr (local) join_func(., y_i, by = c(by_user, ..idy = "..idy"), suffix = suffix)
    5. └─dplyr:::full_join.data.frame(...)
    6.   └─dplyr:::join_mutate(...)
    7.     ├─base::`[<-`(`*tmp*`, new_rows, merge, value = `<tibble[,2]>`)
    8.     └─tibble:::`[<-.tbl_df`(`*tmp*`, new_rows, merge, value = `<tibble[,2]>`)
    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_max_gap.R:73:3'): after_join works with mode = right and type = any-any and max_gap = difftime ──
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─funneljoin::after_join(...) at test_max_gap.R:73:2
    2. │ └─... %>% dplyr::select(-..idx, -..idy)
    3. ├─dplyr::select(., -..idx, -..idy)
    4. ├─dplyr (local) join_func(., y_i, by = c(by_user, ..idy = "..idy"), suffix = suffix)
    5. └─dplyr:::right_join.data.frame(...)
    6.   └─dplyr:::join_mutate(...)
    7.     ├─base::`[<-`(`*tmp*`, new_rows, merge, value = `<tibble[,2]>`)
    8.     └─tibble:::`[<-.tbl_df`(`*tmp*`, new_rows, merge, value = `<tibble[,2]>`)
    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_max_gap.R:89:3'): after_join works with mode = right and type = any-any and max_gap = numeric ──
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─funneljoin::after_join(...) at test_max_gap.R:89:2
    2. │ └─... %>% dplyr::select(-..idx, -..idy)
    3. ├─dplyr::select(., -..idx, -..idy)
    4. ├─dplyr (local) join_func(., y_i, by = c(by_user, ..idy = "..idy"), suffix = suffix)
    5. └─dplyr:::right_join.data.frame(...)
    6.   └─dplyr:::join_mutate(...)
    7.     ├─base::`[<-`(`*tmp*`, new_rows, merge, value = `<tibble[,2]>`)
    8.     └─tibble:::`[<-.tbl_df`(`*tmp*`, new_rows, merge, value = `<tibble[,2]>`)
    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_max_gap.R:157:3'): after_join works with mode = full and type = any-any and max_gap = difftime ──
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─funneljoin::after_join(...) at test_max_gap.R:157:2
    2. │ └─... %>% dplyr::select(-..idx, -..idy)
    3. ├─dplyr::select(., -..idx, -..idy)
    4. ├─dplyr (local) join_func(., y_i, by = c(by_user, ..idy = "..idy"), suffix = suffix)
    5. └─dplyr:::full_join.data.frame(...)
    6.   └─dplyr:::join_mutate(...)
    7.     ├─base::`[<-`(`*tmp*`, new_rows, merge, value = `<tibble[,2]>`)
    8.     └─tibble:::`[<-.tbl_df`(`*tmp*`, new_rows, merge, value = `<tibble[,2]>`)
    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_max_gap.R:175:3'): after_join works with mode = full and type = any-any and max_gap = numeric ──
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─funneljoin::after_join(...) at test_max_gap.R:175:2
    2. │ └─... %>% dplyr::select(-..idx, -..idy)
    3. ├─dplyr::select(., -..idx, -..idy)
    4. ├─dplyr (local) join_func(., y_i, by = c(by_user, ..idy = "..idy"), suffix = suffix)
    5. └─dplyr:::full_join.data.frame(...)
    6.   └─dplyr:::join_mutate(...)
    7.     ├─base::`[<-`(`*tmp*`, new_rows, merge, value = `<tibble[,2]>`)
    8.     └─tibble:::`[<-.tbl_df`(`*tmp*`, new_rows, merge, value = `<tibble[,2]>`)
    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 17 | WARN 56 | SKIP 1 | PASS 354 ]
  Error: Test failures
  Execution halted