Question

我正在尝试将元素分配给嵌套purrr :: map调用中的列表-这基本上应该与嵌套的for循环相同：

res <- list()
for (i in 1:4) {
  for (j in letters[1:3]) {
    res[[paste(i,j)]] <- paste(i,j)
  }
}

str(res)
#> List of 12
#>  $ 1 a: chr "1 a"
#>  $ 1 b: chr "1 b"
#>  $ 1 c: chr "1 c"
#>  $ 2 a: chr "2 a"
#>  $ 2 b: chr "2 b"
#>  $ 2 c: chr "2 c"
#>  $ 3 a: chr "3 a"
#>  $ 3 b: chr "3 b"
#>  $ 3 c: chr "3 c"
#>  $ 4 a: chr "4 a"
#>  $ 4 b: chr "4 b"
#>  $ 4 c: chr "4 c"

但是，当我尝试将其转换为purrr时，结果将打印到控制台，但从未存储在列表对象res_purrr中？

library(purrr)
res_purrr <- list()

map(1:4, function(i)
  map(letters[1:3], function(j)
    res_purrr[[paste(i,j)]] <- paste(i,j)
  )
)

res_purrr
#> list()

使用walk运行相同的代码将返回相同的空res_purrr对象。

Answer 1

我将执行以下操作：

function something(students: Students, student_name: string) {      
  let student: Student;      
  const maybeStudent = students[student_name]; // Student | undefined
  if (typeof maybeStudent !== 'undefined')
    student = maybeStudent; // okay, maybeStudent narrowed to Student in check
  else
    return;
}

这个问题是相关的：purrr map equivalent of nested for loop

Answer 2

使用您的代码，我们只需添加res_purr <-

res_purrr <- map(1:4, function(i)
  map(letters[1:3], function(j)
    res_purrr[[paste(i,j)]] <- paste(i,j)
  )
)
str(res_purrr)  
# List of 4
# $ :List of 3
# ..$ : chr "1 a"
# ..$ : chr "1 b"
# ..$ : chr "1 c"
# ...

修改

如果问题是关于复制res而不是未能存储map的结果，那么这里是@Moody_Mudskipper答案的一种（类似但替代的方法）：

x <- do.call(paste, expand.grid(1:3, letters[1:4], stringsAsFactors = FALSE))
res <- setNames(as.list(x), x)
str(res)  
# List of 12
# $ 1 a: chr "1 a"
# $ 2 a: chr "2 a"
# ...

这里是自定义函数，而不是paste

x <- do.call(function (Var1,Var2) paste(sqrt(Var1),toupper(Var2)), 
             expand.grid(1:4, letters[1:3], stringsAsFactors = FALSE))
res <- setNames(as.list(x), x)
str(res) 
# List of 12
# $ 1 A               : chr "1 A"
# $ 1.4142135623731 A : chr "1.4142135623731 A"
# $ 1.73205080756888 A: chr "1.73205080756888 A"
# $ 2 A               : chr "2 A"
# ...

将元素分配给嵌套purrr映射中的列表

2 个答案: