bed_sort failed test "by_chrom option"

[raysinensis]

by_chrom sort didn't group by chrom, regardless of reverse option

library(valr)
  x <- tibble::tribble(
    ~chrom, ~start, ~end, ~name, ~score, ~strand,
    "chr7", 240L, 560L,   "x",  "86",  "-",
    "chr7",  210L,  525L,  "d",  "21",  "+",
    "chr7", 2100L, 2310L,  "e",  "32",  "+",
    "chr3",   40L,  260L,  "p",  "41",  "-",
    "chr3",   10L,  220L,  "f",  "12",  "+",
    "chr3",  100L,  320L,  "g",  "96",  "-",
    "chr9",  140L,  160L,  "z",  "05",  "+",
    "chr9",  110L,  120L,  "a",  "81",  "-",
    "chr9", 1100L, 1120L,  "b",  "12",  "+"
  )
  res <- bed_sort(x, by_chrom = TRUE, by_size = TRUE)
  res2 <- bed_sort(x, by_size = TRUE, by_chrom = TRUE, reverse = TRUE)
  res
#> # A tibble: 9 x 6
#> # Groups:   chrom [3]
#>   chrom start   end  name score strand
#>   <chr> <int> <int> <chr> <chr>  <chr>
#> 1  chr9   110   120     a    81      -
#> 2  chr9   140   160     z    05      +
#> 3  chr9  1100  1120     b    12      +
#> 4  chr7  2100  2310     e    32      +
#> 5  chr3    10   220     f    12      +
#> 6  chr3    40   260     p    41      -
#> 7  chr3   100   320     g    96      -
#> 8  chr7   210   525     d    21      +
#> 9  chr7   240   560     x    86      -
  res2
#> # A tibble: 9 x 6
#> # Groups:   chrom [3]
#>   chrom start   end  name score strand
#>   <chr> <int> <int> <chr> <chr>  <chr>
#> 1  chr7   240   560     x    86      -
#> 2  chr7   210   525     d    21      +
#> 3  chr3    40   260     p    41      -
#> 4  chr3   100   320     g    96      -
#> 5  chr7  2100  2310     e    32      +
#> 6  chr3    10   220     f    12      +
#> 7  chr9   140   160     z    05      +
#> 8  chr9  1100  1120     b    12      +
#> 9  chr9   110   120     a    81      -

Created on 2018-01-19 by the reprex package (v0.1.1.9000).

[raysinensis]

the issue is due to dplyr updating arrange behavior so that arrange ignores groups