jaccard on grouped df yields only some list-cols

[jayhesselberth]

The intersection (len_i) should also be grouped.

library(valr)
library(tidyverse)
#> Loading tidyverse: ggplot2
#> Loading tidyverse: tibble
#> Loading tidyverse: tidyr
#> Loading tidyverse: readr
#> Loading tidyverse: purrr
#> Loading tidyverse: dplyr
#> Conflicts with tidy packages ----------------------------------------------
#> filter(): dplyr, stats
#> lag():    dplyr, stats

seed <- 1010486

genome <- read_genome(valr_example('genome.txt.gz'))
x <- bed_random(genome, seed = seed)
y <- bed_random(genome, seed = seed)

bed_jaccard(group_by(x, chrom),
            group_by(y, chrom))
#> # A tibble: 1 × 4
#>       len_i      len_u    jaccard      n
#>       <dbl>     <list>     <list>  <dbl>
#> 1 856392888 <dbl [93]> <dbl [93]> 727101