r之以 JavaScript 样式创建 R 列表作为配置对象

我需要一个配置对象来保留我的 R 代码中使用的一些常量。这些是远程文件的 url、保存下载文件的目录、下载后要使用的本地文件名等。 我是 R 新手，这就是为什么我决定使用类似 JavaScript 的配置对象(特别是列表)，类似于这样:

var config = { 
    wd           : "/some/working/dir", 
    zipSrc       : "http://www.example.com/remote_data_file.zip", 
    data_dir     : "data", 
    data_zip     : "data.zip", 
    data_txt     : "data.txt", 
    abs_data_dir : this.wd + this.data_dir, 
    abs_data_zip : this.abs_data_dir + this.data_zip, 
    abs_data_txt : this.abs_data_dir + this.data_txt 
}; 

请注意，可以使用“this”来引用当前对象并在其中进行一些计算/赋值。

我在R中到达的最远的地方是:

config <- list(wd           = getwd(), 
               zipSrc       = "http://www.example.com/remote_data_file.zip", 
               data_dir     = "data", 
               data_zip     = "data.zip", 
               data_txt     = "data.txt") 

但是如果仍然需要计算 abs_data_dir 和其他类似值怎么办？在“构建”配置列表对象时是否可以完成这项工作？是否可以根据刚刚创建的列表成员派生新的命名列表成员，例如在 dplyr 包中使用 mutate() ？如果是这样，在 R 中是否有任何类似于 JS 的“this”来引用当前对象？

请您参考如下方法:

解决方案一

within，我在玩了一会儿之后想到了这个:

config = rev(within(list(), { 
   wd           = "/some/working/dir" 
   zipSrc       = "http://www.example.com/remote_data_file.zip" 
   data_dir     = "data" 
   data_zip     = "data.zip" 
   data_txt     = "data.txt" 
   abs_data_dir = file.path(wd, data_dir) 
   abs_data_zip = file.path(abs_data_dir, data_zip) 
   abs_data_txt = file.path(abs_data_dir, data_txt) 
})) 
 
config 
# $wd 
# [1] "/some/working/dir" 
 
# $zipSrc 
# [1] "http://www.example.com/remote_data_file.zip" 
 
# $data_dir 
# [1] "data" 
 
# $data_zip 
# [1] "data.zip" 
 
# $data_txt 
# [1] "data.txt" 
 
# $abs_data_dir 
# [1] "/some/working/dir/data" 
 
# $abs_data_zip 
# [1] "/some/working/dir/data/data.zip" 
 
# $abs_data_txt 
# [1] "/some/working/dir/data/data.txt" 

你可以把它变成一个函数:

list.eval <- function(...) rev(within(list(), ...)) 

按如下方式调用 list.eval({a = 1; b = a})。

方案二

这是另一个函数，其用法更接近 list 的用法。它还会像 list 那样处理命名和未命名的参数:

list.eval <- function(...) { 
   e <- new.env() 
   argl <- as.list(sys.call())[-1L] 
   naml <- names(argl) 
   .eval.assign <- function(expr, name) { 
      value <- eval(expr, envir = e) 
      if (name != "") assign(name, value, envir = e) 
      return(value) 
   } 
   setNames(Map(.eval.assign, argl, naml), naml) 
} 
 
z <- 10 
list.eval(a = 1, b = z, c = a, 10) 
# $a 
# [1] 1 
#  
# $b 
# [1] 10 
#  
# $c 
# [1] 1 
#  
# [[4]] 
# [1] 10