将元素追加到 R 函数中的列表

Question

我是 R 的新手，正在尝试编写一个函数来将元素添加到列表中。

下面是函数 varNames 的代码。 我可以用varNames("name1")调用它，但"name1"没有添加到"listNames" （这仍然是一个空列表）。

我一直在尝试一些事情，并寻找答案很长时间，但没有成功。

也试过lappend ，但没有成功。

listNames<-list()

varNames<- function(name){

  listNames <- c(listNames, name)

}

Answer 1

问题在于范围。 函数中的listNames是该函数的局部变量。 本质上，它与您要更改的listNames是不同的对象。

有几种方法可以解决这个问题：

1. 将listNames的值更改为函数varNames()的输出：

    listNames <- varNames(name)

2. 使用<<-和get()来更改外部作用域中listNames的值。 这通常是一个坏主意，因为它使调试变得非常困难。

3. 首先不要封装c()函数。

Answer 2

R 是一种函数式语言，这通常意味着您将对象传递给函数，而这些函数会返回一些对象，您可以随心所欲地进行处理。 因此，您的预期结果是一个函数，如：

varNames <- function(existinglist, itemtoadd){
    returnvalue <- c(existinglist, itemtoadd)
    return(returnvalue)
}

listNames <- list()
a <- 'a'
varNames(existinglist = listNames, itemtoadd = a)

如果要将原始listNames对象替换为函数的返回值，则需要将其分配到原始对象的名称中：

listNames
listNames <- varNames(existinglist = listNames, itemtoadd = a)
listNames

您最初编写代码的方式是 R 新手的常见错误。您正在尝试创建所谓的“副作用”。 也就是说，您希望在不使用<-赋值的情况下就地修改原始listNames对象。 这通常被认为是不好的做法，R 中产生这种副作用的函数相对较少。

为了更好地理解这一点，您可能会发现R 对作用域和函数内赋值的介绍以及R Inferno 的 Circle 6很有帮助。