Использование lapply для создания нулей в верхнем треугольнике списка матриц

У меня есть список матриц почти одинакового размера. Мне нужно, чтобы верхний треугольник каждой матрицы был равен 0. Я могу сделать верхний треугольник отдельной матрицы равным 0, используя:

matrix[upper.tri(matrix)] <- 0

Когда я пытаюсь применить это к списку матриц с помощью lapply, он заменяет весь список матриц на 0. Например:

list.matrix <- lapply(list.matrix, function (x) x[upper.tri(x)] <- 0)

$`matrix1`
[1] 0
$`matrix2`
[1] 0
...

Может ли кто-нибудь предоставить информацию о том, почему это может происходить?