如何使用`[[`和`$`作为函数？

Question

我知道我可以这样做:

x <- list(a=1, b=1)
y <- list(a=1)
JSON <- rep(list(x,y),10000)
sapply(JSON, "[[", "a")

但是,我以$同样的方式努力使用

sapply(JSON, "$", "a")
sapply(JSON, "$", a)

另外,是否可以将运算符用作其他语言的函数？

例如a + b 相当于(+)(a, b)

Answer 1

你可以,你只需要使用匿名函数$.我猜这与事实$是从来没有评估的事实有关...

sapply(JSON, function(x) `$`( x , "a" ) )

并回答你的第二个问题......是的,所有二进制算术运算符都可以使用反向标记来指定,就像这样......

a <- 2 
b <- 3

# a + b
`+`( a , b )
[1] 5
# a ^ b
`^`( a , b )
[1] 8
# a - b
`-`( a , b )
[1] -1