代码之家 › 专栏 › 技术社区 › moodymudskipper

中点函数`.()`的实现数据表包装[副本]

data.table function r

moodymudskipper · 技术社区 · 6 年前

从 ?data.table::data.table :

表达式“.”()“是list()的简写别名;它们都表示相同的

然而,这个函数却无处可寻:

data.table:::.

找不到对象“.”

以下方法效果不错:

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"

1 回复 | 直到 6 年前

duckmayr 6 年前

这个 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 ""

推荐文章

eXor420 · 如何在脚本标记中使用导出的函数?

1 年前

Tridip Lodh · 在ES6中,JAVASCRIPT函数在“严格使用”模式下的行为如何?[已关闭]

1 年前

Shawn Hemelstrand · 为什么我的自定义errorbar函数不能在R中工作?

2 年前

D_K · R获取新表

2 年前

ramanujans alkhazarim · 错误“元素类型无效”React Native

2 年前

CodexSC · 如何从另一个函数打印字符串?

2 年前

Matthew Graham · 我应该如何以编程方式仅将某些NA值更改为在R中选择的指定字符串?

2 年前

Anar · Oracle SQL用户定义函数

2 年前

Troskyvs · 映射比较函数导致运行时“bad\u function\u call”

2 年前

Alireza Pirmahdi · 我的代码多次执行打印语句,我只想执行一次

2 年前