derange.R

library(dplyr)
library(purrr)
library(rlang)

derange <- function(data, ..., by_group = FALSE){
  arrange( data, !!!map( quos(...), ~ quo(desc(!!.)) ), by_group = by_group )
}

d <- data.frame( x = 1:10, y = letters[1:10])
derange(d, x, y)

derange <- function(data, ..., by_group = FALSE){
if(by_group){
dplyr::arrange( data, !!!map( quos(...), ~ quo(desc(!!.)) ), .by_group = TRUE)
} else{
dplyr::arrange( data, !!!map( quos(...), ~ quo(desc(!!.)) ))
}
}

d <- data.frame( x = 1:10, y = letters[1:10])
dg <- d %>% group_by(y)
derange(d, x, y)
derange(dg, x, y)
derange(dg, x, y, by_group = TRUE)