Обратный список сортировать по макс элемент

Question

У меня есть список векторов

l = list(c(1,2),c(3,4),c(2,3),c(7,8),c(5,6)) 

и бы реверс сортировать его векторными максимумами:

> l 
[[1]] 
[1] 7 8 

[[2]] 
[1] 5 6 

[[3]] 
[1] 3 4 

[[4]] 
[1] 2 3 

[[5]] 
[1] 1 2 

Любая идея, как я мог бы сделать это в одном лайнер? ТНХ

Answer 1

Одним из способов является

l[order(sapply(l, max), decreasing=TRUE)] 
#[[1]] 
#[1] 7 8 

#[[2]] 
#[1] 5 6 

#[[3]] 
#[1] 3 4 

#[[4]] 
#[1] 2 3 

#[[5]] 
#[1] 1 2 

Вы могли бы заменить sapply(l, max) с vapply(l, max, numeric(1L)), а также.

Или компактная форма предложена @DavidArenburg

l[order(-sapply(l, max))]