sort_df() and decreasing order?

[Deleetdk]

It appears that sort_df() does not have an option for using variables in decreasing order, which is in sort() in base.

This code should do the trick.

sort_df = function (data, vars = names(data), decreasing = F)
{
  if (length(vars) == 0 || is.null(vars))
    return(data)
  data[do.call("order", list(what = data[, vars, drop = FALSE], decreasing = decreasing)), , drop = FALSE]
}

Tested with:

sort_df(iris, "Sepal.Length")
sort_df(iris, "Sepal.Length", decreasing = T)