Running ‘testthat.R’ [46s/72s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(optimall)
  > 
  > test_check("optimall")
  [ FAIL 2 | WARN 0 | SKIP 1 | PASS 202 ]
  
  ══ Skipped tests ═══════════════════════════════════════════════════════════════
  • On Linux (1)
  
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Error ('test-merge_samples.R:107:3'): warning if id already has value for what has been sampled ──
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─testthat::expect_warning(...) at test-merge_samples.R:107:2
    2. │ └─testthat:::quasi_capture(...)
    3. │   ├─testthat (local) .capture(...)
    4. │   │ └─base::withCallingHandlers(...)
    5. │   └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    6. ├─optimall::merge_samples(...)
    7. └─optimall::merge_samples(...)
    8.   ├─dplyr::full_join(...)
    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-merge_samples.R:126:3'): warning if new ids are in sampled data ──
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─testthat::expect_warning(...) at test-merge_samples.R:126:2
    2. │ └─testthat:::quasi_capture(...)
    3. │   ├─testthat (local) .capture(...)
    4. │   │ └─base::withCallingHandlers(...)
    5. │   └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    6. ├─optimall::merge_samples(...)
    7. └─optimall::merge_samples(...)
    8.   ├─dplyr::full_join(...)
    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]])
  
  [ FAIL 2 | WARN 0 | SKIP 1 | PASS 202 ]
  Error: Test failures
  Execution halted