r - 为什么 data.table 不知道 "J"？

Question

我在 Debug模式下运行 RStudio 来检查包中的某些功能(它使用 data.table 并且已经工作了 2 年)。现在我在某些功能中面临以下情况:

routes[J(x1, y1, x2, y2), nomatch = 0L]

Error in J(x1, y1, x2, y2) : could not find function "J"

如上所述:这个包可以工作并且library(data.table)已设置。

现在我想，我按照建议做一个小检查 here - 环境不变:

dt = data.table( id = 1L, start = c( 9, 21, 5 ), end = c( 10, 22, 7 ) )
data.table::setkey(dt, "start")
dt[J(1), nomatch = 0L]

Empty data.table (0 rows) of 3 cols: id,start,end

我得到了正确的结果？我任何人都有一个想法，如何创建一个可重现的示例，我会尝试。这对我来说没有任何意义......所以我再次尝试，但是

routes[J(x1, y1, x2, y2), nomatch = 0L]

Error in J(x1, y1, x2, y2) : could not find function "J"

任何提示都值得高度赞赏

屏幕截图:

可重现的示例，data.table 中包含多个参数:

library(data.table)
r <- data.table::data.table(lat1 = numeric(0), lng1 = numeric(0),
                            lat2 = numeric(0), lng2 = numeric(0), 
                            time = numeric(0))
data.table::setkey(r, lat1, lng1, lat2, lng2)

lat1 = 1
lat2 = 2
lng1 = 11
lng2 = 22
li <- data.table::data.table(lat1=lat1, lng1=lng1, lat2=lat2, lng2=lng2, time=time)
r <- rbindlist(list(r, li))
data.table::setkey(r, lat1, lng1, lat2, lng2)

r[J(1, 11, 2, 22), nomatch = 0L]
# lat1 lng1 lat2 lng2       time
# 1:    1   11    2   22 <function>
r[J(1, 11, 2, 0), nomatch = 0L]
# Empty data.table (0 rows) of 5 cols: lat1,lng1,lat2,lng2,time

But still:
routes[J(1, 11, 2, 22), nomatch = 0L]
# Error in J(1, 11, 2, 22) : could not find function "J"

Answer 1

J 不是函数。它是在评估之前替换的别名:

https://github.com/Rdatatable/data.table/blob/master/R/data.table.R#L102

我怀疑routes不是data.table。

在这里添加我的评论，因为它们说明了我的思考过程，从而得出了解决方案:

我回答过一个非常类似的问题，有人在寻找 . 函数。所以，我对此非常确定，只需要在源代码中搜索 J 即可。一旦我确认它是像 . 这样的别名，就很容易推断出 [.data.table 不可能被您的代码调用。

您调用了 [，它有(超过)2 个参数。所以，那里没有错误。仅当评估第一个参数时，才会出现错误。