各リスト要素の最初の値をR

Question

に更新します。各要素の最初の値を同じ要素の2番目の値に置き換えたいとします。

は、例えば、私は私が

lst[[1]][1]=lst[[1]][2] 
lst[[2]][1]=lst[[2]][2] 

行うことができることを知っている。しかし、私はすべてのリストの要素を反復処理する機能を希望LST2

lst<-list(c(0:4),c(5:9)) 
lst 

lst2<-list(c(1, c(1:4)),c(6,c(6:9))) 
lst2 

にLSTを変換する機能をしたいと思います。

lapply(list, function(x) x[1]=x[2]) 

Answer 1

我々はlistをループにlapplyを使用することができますし、私たちは、匿名関数呼び出しを使用している場合はxを返す必要があります。私のようなlapplyで（すべて失敗した）いろいろなことを試してみました。

lstN <- lapply(lst, function(x) {x[1] <- x[2] 
         x}) 
identical(lst2, lstN) 
#[1] TRUE