data.table 包中点函数`.()`的实现[重复]

Question

来自?data.table::data.table：

表达式 '.()' 是 list() 的简写别名；他们都意味着 一样的

然而这个功能却无处可寻：

data.table:::.

get(name, envir = asNamespace(pkg), inherits = FALSE) 中的错误：
目的 '。'没找到

所以我想输入以某种方式解析，它是如何完成的？我想在自己的包中使用相同的功能。

以下作品还不错：

test  <- function(x) {
  eval(substitute(
    eval.parent(substitute(x, list(.=list)))
    ))
}

foo <- "bar"
test(.(foo))
# [[1]]
# [1] "bar"
identical(test(.(foo)), list(foo))
# [1] TRUE

但是在这个点函数内部会使用一些点变量，这会失败：

. <- "baz"
test(.(foo,.))
# [[1]]
# [1] "bar"
# 
# [[2]]
# function (...)  .Primitive("list")

预期：

# [[1]]
# [1] "bar"
# 
# [[2]]
# [1] "baz"

Answer 1

data.table 包用这段代码完成了它

replace_dot_alias <- function(e) {
  # we don't just simply alias .=list because i) list is a primitive (faster to iterate) and ii) we test for use
  # of "list" in several places so it saves having to remember to write "." || "list" in those places
  if (is.call(e)) {
    # . alias also used within bquote, #1912
    if (e[[1L]] == 'bquote') return(e)
    if (e[[1L]] == ".") e[[1L]] = quote(list)
    for (i in seq_along(e)[-1L]) if (!is.null(e[[i]])) e[[i]] = replace_dot_alias(e[[i]])
  }
  e
}

在R/data.table.R 中找到（当前位于第 173 行）。这就是为什么您在任何地方都找不到 data.table:::. 的原因，以及它们如何完成您在帖子中提到的解析。

然后在[.data.table" <- function (x, i, j,...他们可以做这种事情

if (!missing(j)) {
    jsub = replace_dot_alias(substitute(j))
    root = if (is.call(jsub)) as.character(jsub[[1L]])[1L] else ""

....