Running ‘testthat.R’ [5s/8s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(ORFID)
  > 
  > test_check("ORFID")
  [ FAIL 2 | WARN 3 | SKIP 0 | PASS 20 ]
  
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Error ('test-ant-efficiency.R:8:3'): ant_efficiency produces a warning if the length of LOC_vector doesn't match the number of locations in the dataframe ──
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─testthat::expect_warning(ant_efficiency(test_data, LOC_vec = c("downstream_A1"))) at test-ant-efficiency.R:8: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. ├─ORFID::ant_efficiency(test_data, LOC_vec = c("downstream_A1"))
    7. │ └─... %>% dplyr::right_join(., x, by = "LOC")
    8. ├─dplyr::right_join(., x, by = "LOC")
    9. └─dplyr:::right_join.data.frame(., x, by = "LOC")
   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-tag-direction.R:8:3'): tag_direction produces a warning if the length of LOC_vector doesn't match the number of locations in the dataframe ──
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─testthat::expect_warning(tag_direction(test_data, LOC_vec = c("downstream_A1"))) at test-tag-direction.R:8: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. ├─ORFID::tag_direction(test_data, LOC_vec = c("downstream_A1"))
    7. │ └─... %>% dplyr::arrange(ARR, TAG)
    8. ├─dplyr::arrange(., ARR, TAG)
    9. ├─dplyr::ungroup(.)
   10. ├─dplyr::mutate(...)
   11. ├─dplyr::arrange(., ARR)
   12. ├─dplyr::group_by(., TAG)
   13. ├─dplyr::right_join(., x, by = "LOC")
   14. └─dplyr:::right_join.data.frame(., x, by = "LOC")
   15.   └─dplyr:::join_mutate(...)
   16.     ├─base::`[<-`(`*tmp*`, new_rows, merge, value = `<tibble[,1]>`)
   17.     └─tibble:::`[<-.tbl_df`(`*tmp*`, new_rows, merge, value = `<tibble[,1]>`)
   18.       └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   19.         └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   20.           ├─base::withCallingHandlers(...)
   21.           └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  
  [ FAIL 2 | WARN 3 | SKIP 0 | PASS 20 ]
  Error: Test failures
  Execution halted