R语言中如何嵌套使用glue实现动态提取列表值？

先还原你的使用场景：

# 定义目标列表和索引向量
input <- list(a = "test1", b = "test2", c = "test3")
l <- c("a", "b", "c")

你尝试的glue("{input${i}}")写法会报错，核心原因是大括号嵌套导致glue的语法解析冲突——glue会优先解析内层的${i}，但input$后直接接解析后的变量不符合R的语法规则，进而触发错误。

方法1：直接用列表索引（最推荐，无需glue） #

这是最简洁高效的方式，完全不需要依赖glue，直接通过列表的[[索引提取对应键的值：

# 循环逐个输出
for (i in l) {
  print(input[[i]])
}

# 向量化批量输出（更符合R风格）
sapply(l, function(x) input[[x]])

输出结果：

[1] "test1"
[1] "test2"
[1] "test3"

方法2：用glue解析合法的R表达式 #

如果一定要用到glue，你可以在glue的大括号内直接写入合法的R索引表达式，glue会自动执行并返回结果：

# 循环输出
for (i in l) {
  print(glue("{input[[i]]}"))
}

# 向量化批量输出
glue("{input[[l]]}")

同样能得到test1、test2、test3的目标输出。

方法3：用glue_data传递参数 #

还可以借助glue_data函数，把向量l作为数据传入，直接在模板中引用键名：

glue_data(data.frame(key = l), "{input[[key]]}")

内容的提问来源于stack exchange，提问作者Quinten