使用地图从嵌套列表中提取

Question

我正在尝试熟悉 purrr、map 和 pluck，并且我有一个深度嵌套的列表：

test_list <- 
    list(
      outer_1 = list(
        list(
          inner_1 = list(pluck = "String I Want", dontpluck = "other string")
        )
      )
    )

$outer_1
$outer_1[[1]]
$outer_1[[1]]$inner_1
$outer_1[[1]]$inner_1$pluck
[1] "String I want"

$outer_1[[1]]$inner_1$dontpluck
[1] "other string"

我想提取 "String I want"

我知道我可以使用

获取字符串

test_list$outer_1[[1]]$inner_1$pluck

但我想使用地图对此进行抽象，但我缺少一些步骤。（主要是我不知道如何使用 map 模拟 [[1]] 部分 - 比如：

map(test_list, "outer_1") %>%
  map("inner_1") %>%
  map("pluck")

期望的输出

[1] "String I want"

Answer 1

一种方法可以是：

map_chr(pluck(test_list, "outer_1"), pluck, "inner_1", "pluck")

[1] "String I Want"

使用地图从嵌套列表中提取

Using map to pluck from nested list

r

pluck

purrr

期望的输出