sort.R

data_sort <- function() {
  desc <- FALSE;
  
  my_sort <- function (data) {
    sort(data, decreasing = desc)
  }
  
  attr(my_sort, "desc") <- function(x) {
    desc <<- x
    return(my_sort)
  };
  
  return(my_sort)
};

library(magrittr)
((data_sort() %>% attr("desc"))(TRUE))(1:10)