join_overlap_* but with distance as a metadata column

join_overlap_distance.R

library(plyranges)
x <- data.frame(seqnames=1,
                start=sample(1000,10,FALSE),
                width=1, id=1:10) %>%
  as_granges()
y <- data.frame(seqnames=1,
                start=sample(1000,10,FALSE),
                width=1, id=letters[1:10]) %>%
  as_granges()

x %>%
  join_overlap_inner(y, maxgap=100)

y2 <- y %>%
  mutate(y_start = start)

x %>%
  join_overlap_inner(y2, maxgap=100) %>%
  mutate(distance = abs(start - y_start))