Classifique descendo todas as colunas de data.frame

Eu estou mexendo com isso agora por um tempo, mas não consigo encontrar uma solução razoável.

Eu gostaria de classificar em ordem decrescente todas as colunas de data.frame.

Dados de amostra, por exemplo:

CustomData <- data.frame(Value1=rnorm(100,1,2), Value2=rnorm(100,2,3),
                         Value3=rexp(100,5), Value4=rexp(100,2))

Funciona para uma coluna:

CustomData[order(CustomData$Value1, decreasing=FALSE), ]

Como classificar todos os dados das colunas em ordem decrescente / crescente de maneira razoável? THX.

Eu também tentei algo assim, como publicado em outro lugar, mas não funciona como indicado.

CustomData[do.call(order, as.list(CustomData)),] 

questionAnswers(1)

yourAnswerToTheQuestion