从r中的函数内部附加一个全球定义的列表

发布于 2025-01-23 17:27:27 字数 624 浏览 0 评论 0原文

我正在使用步行功能在我的列表列表上迭代，并将列表元素附加到每个子列表中。

.insideFunction <- function(sublistName, arg2){

newListElement <- "Hello"
newListElement <- as.list(newListElement)
names(newListElement) <- "newListElement"

myList[[sublistName]] <- append(myList[[sublistName]], newListElement)

}


walk(names(myList), .insideFunction, someTable)

问题在于列表myList，在全球范围内定义不会改变。我目前正在使用> insidefunction内部的全局分配运算符迫使R覆盖Sublist。

myList[[sublistName]] <<- append(myList[[sublistName]], newListElement)

我如何避免使用全局分配运算符，但仍会从函数内部附加全球定义的列表？

原文

I am using the walk function to iterate over my list of lists and append a list element to every sub-list.

.insideFunction <- function(sublistName, arg2){

newListElement <- "Hello"
newListElement <- as.list(newListElement)
names(newListElement) <- "newListElement"

myList[[sublistName]] <- append(myList[[sublistName]], newListElement)

}


walk(names(myList), .insideFunction, someTable)

The problem is that the list myList, which is defined globally doesn't change.
I am currently using the global assignment operator inside of the .insideFunction to force R to overwrite the sublist.

myList[[sublistName]] <<- append(myList[[sublistName]], newListElement)

How can I avoid using the global assignment operator, but still append the globally defined list from inside a function?

分享到QQ

分享到微博

如果你对这篇内容有疑问，欢迎到本站社区发帖提问参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。

发布评论

需要登录才能够评论，你可以免费注册一个本站的账号。

违心° 2025-01-30 17:27:27

使用MAP而不是WALK通过将函数应用于每个元素，例如在每个子列表中添加2个函数来创建列表的修改版本：

library(purrr)

data <- list(
  list("foo", 1),
  list("bar", 1)
)
data
#> [[1]]
#> [[1]][[1]]
#> [1] "foo"
#> 
#> [[1]][[2]]
#> [1] 1
#> 
#> 
#> [[2]]
#> [[2]][[1]]
#> [1] "bar"
#> 
#> [[2]][[2]]
#> [1] 1

newListElement <- "Hello"
newListElement <- as.list(newListElement)
names(newListElement) <- "newListElement"

data %>% map(~ .x %>% c(newListElement))
#> [[1]]
#> [[1]][[1]]
#> [1] "foo"
#> 
#> [[1]][[2]]
#> [1] 1
#> 
#> [[1]]$newListElement
#> [1] "Hello"
#> 
#> 
#> [[2]]
#> [[2]][[1]]
#> [1] "bar"
#> 
#> [[2]][[2]]
#> [1] 1
#> 
#> [[2]]$newListElement
#> [1] "Hello"

^{在2022-04创建-22由 reprex package （v2.0.0）}

Use map instead of walk to create a modified version of a list by applying a function to every element e.g. add 2 to each sub list:

library(purrr)

data <- list(
  list("foo", 1),
  list("bar", 1)
)
data
#> [[1]]
#> [[1]][[1]]
#> [1] "foo"
#> 
#> [[1]][[2]]
#> [1] 1
#> 
#> 
#> [[2]]
#> [[2]][[1]]
#> [1] "bar"
#> 
#> [[2]][[2]]
#> [1] 1

newListElement <- "Hello"
newListElement <- as.list(newListElement)
names(newListElement) <- "newListElement"

data %>% map(~ .x %>% c(newListElement))
#> [[1]]
#> [[1]][[1]]
#> [1] "foo"
#> 
#> [[1]][[2]]
#> [1] 1
#> 
#> [[1]]$newListElement
#> [1] "Hello"
#> 
#> 
#> [[2]]
#> [[2]][[1]]
#> [1] "bar"
#> 
#> [[2]][[2]]
#> [1] 1
#> 
#> [[2]]$newListElement
#> [1] "Hello"

^{Created on 2022-04-22 by the reprex package (v2.0.0)}

回复收藏 0 原文

~没有更多了~