r - lapply 中的多行语法

Question

如何在 lapply 中指定多行语法。我的语法也没有替换第一行中的 text_query。提前谢谢你。

text_query<-lapply(text_query, function(x) {   gsub("ABC", "ABD", x, fixed=TRUE)   gsub("JKL", "JKM", x, fixed=TRUE) } )

Answer 1

R 不关心一次操作中的换行，所以你可以这样写:

text_query <- lapply(text_query, function(x) {
    gsub("ABC", "ABD", x, fixed=TRUE)
    gsub("JKL", "JKM", x, fixed=TRUE)
})

或者，如果你想把它放在一行中，你可以用分号分隔语句，即

text_query<-lapply(text_query, function(x) {   gsub("ABC", "ABD", x, fixed=TRUE); gsub("JKL", "JKM", x, fixed=TRUE) } )

不过，我认为第一个选项更难以理解 ^^