R/mixed_sort.R

In mattwarkentin/sandbox: Miscellaneous Functions

#' @title Mixed Sort
#'
#' @param x Matrix or data.frame
#'
#' @export

mixedsort <- function (x) {
  #### Nicked from gtools by Gregory R. Warnes, Ben Bolker, and Thomas Lumley ####
  x[mixedorder(x)]
}