如何替换r中矩阵列表中的一行？

Question

假设我有一些列表 li 的矩阵。例如，

m1[1,]=rep(100,ncol(m1))

我想用适当长度的连续数字100的序列替换每个矩阵中的第一行。在单个矩阵上，此操作具有以下形式：

li[[1]][1,]=rep(100,ncol(li[[1]])).

或者

     [,1] [,2] [,3]
[1,]  100  100  100
[2,]    4    5    6
[3,]    7    8    9

我将获得所需的矩阵：

li.prim=lapply(1:3,function(x)li[[x]][1,]=rep(100,ncol(li[[x]])))

但如果我尝试在矩阵 li 的列表上重复上述程序，即

> li.prim
[[1]]
[1] 100 100 100

[[2]]
[1] 100 100 100 100

[[3]]
[1] 100 100 100 100 100

函数lapply返回不是所需矩阵的向量列表。此函数的输出格式为：

{{1}}

我的问题是：如何使用r中的lapply或相关函数对矩阵列表执行上述操作？