r - 使对称矩阵成为R中的对角矩阵

Question

我有对称矩阵（例如M <- matrix(1:4, ncol = 2)），我想将非对角线元素设置为0。还有比这更聪明的方法diag(diag(M), ncol = ncol(M))吗？

注意：diag不支持使用diag(M, ncol = ncol(M))，也没有类似diag(M, as.matrix = TRUE)etc的选项。