Running ‘testthat.R’ [13s/23s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(dplyr)
  
  Attaching package: 'dplyr'
  
  The following object is masked from 'package:testthat':
  
      matches
  
  The following objects are masked from 'package:stats':
  
      filter, lag
  
  The following objects are masked from 'package:base':
  
      intersect, setdiff, setequal, union
  
  > library(rlang)
  
  Attaching package: 'rlang'
  
  The following objects are masked from 'package:testthat':
  
      is_false, is_null, is_true
  
  > library(keyholder)
  
  Attaching package: 'keyholder'
  
  The following object is masked from 'package:stats':
  
      filter
  
  > 
  > test_check("keyholder")
  [ FAIL 2 | WARN 0 | SKIP 0 | PASS 306 ]
  
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Error ('test-keyed-df-two-tbl.R:82:3'): right_join.keyed_df works ───────────
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─keyholder (local) get_assign_permuted_keys(.f = right_join_f) at test-keyed-df-two-tbl.R:82:2
    2. │ └─... %>% pull(.id) at test-keyed-df-two-tbl.R:35:2
    3. ├─dplyr::pull(., .id)
    4. └─magrittr (local) .f(.)
    5.   └─magrittr::freduce(value, `_function_list`)
    6.     ├─base::withVisible(function_list[[k]](value))
    7.     └─function_list[[k]](value)
    8.       ├─dplyr::right_join(., band_instruments, by = "name")
    9.       └─dplyr:::right_join.data.frame(., band_instruments, by = "name")
   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-keyed-df-two-tbl.R:99:3'): full_join.keyed_df works ────────────
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─keyholder (local) get_assign_permuted_keys(.f = full_join_f) at test-keyed-df-two-tbl.R:99:2
    2. │ └─... %>% pull(.id) at test-keyed-df-two-tbl.R:35:2
    3. ├─dplyr::pull(., .id)
    4. └─magrittr (local) .f(.)
    5.   └─magrittr::freduce(value, `_function_list`)
    6.     ├─base::withVisible(function_list[[k]](value))
    7.     └─function_list[[k]](value)
    8.       ├─dplyr::full_join(., band_instruments, by = "name")
    9.       └─dplyr:::full_join.data.frame(., band_instruments, by = "name")
   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 0 | PASS 306 ]
  Error: Test failures
  Execution halted