矩阵每一行的元素除以该行的和，如果和为0，该怎么办？比如：

A <- matrix(c(1,0,1,1,1,0,0,1,0,0,0,0,1,0,1,1,1,0,1,0), 4,5)

B <- t(apply(A, 1, function(x)  x/sum(x)))

结果B中第二行都为NA，怎么避免？请指教，多谢！！！