Running ‘testthat.R’
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(tidygenomics)
  > 
  > test_check("tidygenomics")
  # A tibble: 4 × 6
       id bla   chromosome start   end cluster_id
    <int> <chr> <chr>      <dbl> <dbl>      <dbl>
  1     1 a     chr1         100   150          0
  2     2 b     chr1         120   250          0
  3     3 c     chr2         300   350          2
  4     4 d     chr1         260   450          1
  # A tibble: 4 × 3
    chromosome start   end
    <chr>      <int> <int>
  1 chr1           1    99
  2 chr1         151   199
  3 chr1         251   399
  4 chr2           1   299
  # A tibble: 2 × 5
       id bla   chromosome start   end
    <int> <chr> <chr>      <int> <int>
  1     1 a     chr1         100   109
  2     1 a     chr1         126   150
  # A tibble: 4 × 5
       id bla   chromosome start   end
    <int> <chr> <chr>      <int> <int>
  1     1 a     chr1         100   109
  2     1 a     chr1         131   150
  3     2 b     chr1         131   160
  4     3 c     chr1         200   250
  ══ Skipped tests ═══════════════════════════════════════════════════════════════
  • empty test (1)
  
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Error (test_join_closest.R:17:3): Joining with closest works as expected ────
  Error: 2 arguments passed to .Internal(is.unsorted) which requires 3
  Backtrace:
       █
    1. └─tidygenomics::genome_join_closest(...) test_join_closest.R:17:2
    2.   └─fuzzyjoin::fuzzy_join(...)
    3.     └─tidygenomics:::index_match_fun(d1, d2)
    4.       └─purrr::map2_df(joined$data.x, joined$data.y, find_closest)
    5.         └─purrr::map2(.x, .y, .f, ...)
    6.           └─tidygenomics:::.f(.x[[i]], .y[[i]], ...)
    7.             ├─base::as.data.frame(IRanges::distanceToNearest(r1, r2, select = select))
    8.             ├─IRanges::distanceToNearest(r1, r2, select = select)
    9.             └─IRanges::distanceToNearest(r1, r2, select = select)
   10.               └─IRanges:::.local(x, subject, ...)
   11.                 ├─IRanges::nearest(x, subject, select = select)
   12.                 └─IRanges::nearest(x, subject, select = select)
   13.                   └─IRanges:::.local(x, subject, ...)
   14.                     ├─IRanges::precede(x, subject, if (select == "all") "all" else "first")
   15.                     └─IRanges::precede(x, subject, if (select == "all") "all" else "first")
   16.                       └─IRanges:::.local(x, subject, ...)
   17.                         └─S4Vectors:::isNotSorted(s)
  
  [ FAIL 1 | WARN 1 | SKIP 1 | PASS 34 ]
  Error: Test failures
  Execution halted