Running ‘testthat.R’ [11s/16s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(comperes)
  > 
  > test_check("comperes")
  [ FAIL 2 | WARN 0 | SKIP 5 | PASS 255 ]
  
  ══ Skipped tests ═══════════════════════════════════════════════════════════════
  • On CRAN (5)
  
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Error ('test-outer-methods.R:443:3'): right_join.h2h_long works ─────────────
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─... %>% expect_is("h2h_long") at test-outer-methods.R:443:2
    2. ├─testthat::expect_is(., "h2h_long")
    3. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
    4. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    5. ├─dplyr::right_join(., y = input_join, by = "value1")
    6. ├─comperes:::right_join.h2h_long(., y = input_join, by = "value1")
    7. │ └─comperes:::reconstruct(NextMethod(), x)
    8. ├─base::NextMethod()
    9. └─dplyr:::right_join.data.frame(., y = input_join, by = "value1")
   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-outer-methods.R:451:3'): full_join.h2h_long works ──────────────
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─... %>% expect_is("h2h_long") at test-outer-methods.R:451:2
    2. ├─testthat::expect_is(., "h2h_long")
    3. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
    4. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    5. ├─dplyr::full_join(., y = input_join, by = "value1")
    6. ├─comperes:::full_join.h2h_long(., y = input_join, by = "value1")
    7. │ └─comperes:::reconstruct(NextMethod(), x)
    8. ├─base::NextMethod()
    9. └─dplyr:::full_join.data.frame(., y = input_join, by = "value1")
   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]])
  
  [ FAIL 2 | WARN 0 | SKIP 5 | PASS 255 ]
  Error: Test failures
  Execution halted