给出一个符号，你怎么知道它是否是一个运营商？
["foo", "baz"] > expr <- quote(a[b + 1] * c)
> expr[[1]]
`*`
无法正常工作
match可以使用> expr[[1]] %in% c(quote(`+`), quote(`*`))
Error in match(x, table, nomatch = 0L) :
'match' requires vector arguments
==但是我想知道是否有更简单的方式不涉及数十个> expr[[1]] == quote(`+`)
[1] FALSE
> expr[[1]] == quote(`*`)
[1] TRUE
。