r - 引用该函数 list() 之外的另一个对象的值的最佳实践是什么

Question

多年来我一直在回避理解这个问题，但我已经达到了一定的经验水平，我需要能够编写这样的东西并使其发挥作用。我想有人告诉我这与评估和范围有关。

   ICD10 <- paste("^", c("DF17", "DZ720", paste("DJ", seq(40,44,1), sep = ""), "D716"), sep ="")
  ICD8 <- c()
  ATC <- c("^R03", "^N07BA")
 variableName <- c("smokingMarker")
 
VariableDefinor <- list( variableName = 
                list(ICD10 = ICD10, 
                      ICD8 = ICD8, 
                      ATC = ATC) 
)

基本上，上面的代码运行并创建一个名为 VariableDefinor 的列表。但里面的列表的名称是 variableName 而不是 "smokingMarker"。我想我可以看到出了什么问题，但我不知道如何解决这个问题。我研究过诸如 paste do.call 和 as.name 之类的函数，但我无法弄清楚。似乎有一些非常基本的东西我只是不明白。我非常感谢解决这个问题的帮助，以及我可以在哪里了解我没有得到的内容的一些引用。

Answer 1

一个选项是 := 和 dplyr::lst

dplyr::lst(!! variableName :=  dplyr::lst(ICD10, ICD8, ATC))

-输出

#$smokingMarker
#$smokingMarker$ICD10
#[1] "^DF17"  "^DZ720" "^DJ40"  "^DJ41"  "^DJ42"  "^DJ43"  "^DJ44"  "^D716" 

#$smokingMarker$ICD8
#NULL

#$smokingMarker$ATC
#[1] "^R03"   "^N07BA"

---

在base R中，这也可以通过setNames来完成

setNames(list(list(ICD10 = ICD10,
           ICD8 = ICD8,
           ATC = ATC)), variableName)