do.call y orden para ordenar cada fila en orden descendente de una matriz?

Quiero ordenar esta matriz en filas en orden descendente

 > set.seed(123); a <- matrix(rbinom(100,10,0.3),ncol=10)

      [,1] [,2] [,3] [,4] [,5] [,6] [,7] [,8] [,9] [,10]
 [1,]    2    6    5    6    1    1    4    4    2     1
 [2,]    4    3    4    5    3    3    1    3    4     4
 [3,]    3    4    3    4    3    4    3    4    3     2
 [4,]    5    3    7    4    2    1    2    0    4     4
 [5,]    5    1    4    0    2    3    4    3    1     2
 [6,]    1    5    4    3    1    2    3    2    3     2
 [7,]    3    2    3    4    2    1    4    2    6     4
 [8,]    5    1    3    2    3    4    4    3    5     1
 [9,]    3    2    2    2    2    5    4    2    5     3
[10,]    3    6    1    2    5    2    3    1    2     3

pero

> do.call(order,as.list(a[1,],a[2,]))
[1] 1

¿Cómo puede ordenar la matriz con do.call y order?

Editar. Se corrigió la matriz anterior para cumplir con el código anterior.

Respuestas a la pregunta(3)

Su respuesta a la pregunta