R - base :: apply - 维度错误（？）

Question

无需转到源代码并提取相关的代码行，有人可以解释这不是错误吗？

a <- matrix(rnorm(50), nrow= 10, ncol= 5)
dim(apply(a, 2, function(j) return(j)))
# [1] 10  5
dim(apply(a, 1, function(j) return(j)))
# [1]  5 10

为什么没有请求转置？