如何用NA替换列表值？

Question

具有以下列表：

> mylist <- list(x=1:3, y=c(1,0.8,1))

如何用NA代替mylist$y!=1

Answer 1

mylist$y[mylist$y!=1] <- NA

mylist

# $x
# [1] 1 2 3
# 
# $y
# [1]  1 NA  1

Answer 2

with(mylist,modifyList(mylist,list(y=replace(y,y!=1,NA))))
$x
[1] 1 2 3

$y
[1]  1 NA  1