ramnathv/sort_list.R

## sort_list.R
#' Sort a list based on a key
#'
#' @example
#' x = list(
#'   list(a = 1, b = 4),
#'   list(a = 3, b = 3),
#'   list(a = 2, b = 2)
#' )
sort_list <- function(x, key, ...){
  y = sapply(x, '[[', key)
  y2 = sort(y, index.return = TRUE, ...)$ix
  x[y2]
}
	#' Sort a list based on a key
	#'
	#' @example
	#' x = list(
	#' list(a = 1, b = 4),
	#' list(a = 3, b = 3),
	#' list(a = 2, b = 2)
	#' )
	sort_list <- function(x, key, ...){
	y = sapply(x, '[[', key)
	y2 = sort(y, index.return = TRUE, ...)$ix
	x[y2]
	}