调用.Call的补丁函数

Question

我的目标是修补rlang::eval_tidy函数。在它的原始形式中，它只调用.Call

eval_tidy <- function(expr, data = NULL, env = caller_env()) {
  .Call(rlang_eval_tidy, expr, data, env)
}

在我的例子中，对于一种类型的值，它的行为应该是不同的。因此，我将其更改为可以添加自定义行为的多方法：

package <- getNamespace('rlang')
unlockBinding('eval_tidy', package)
package$eval_tidy <- function(expr, data=NULL, env=caller_env()) UseMethod('eval_tidy', data)
lockBinding('eval_tidy', package)
eval_tidy.custom.value <- function(expr, data, env) ....
eval_tidy.default <- function(expr, data, env) .Call(rlang_eval_tidy, expr, data, env)

现在，它的工作方式与我的自定义数据类型类似，但是如果使用了另一种数据类型，则会得到以下错误：

NotImplementedError: eval_tidy.default中的错误(X[i])：找不到对象'rlang_eval_tidy‘

Answer 1

这是因为rlang_eval_tidy是一个编译过的对象，在rlang之外是未出口 (因此不可见)。您实际上不需要覆盖包定义。只需将您的自定义实现定义为顶层的一个层：

eval_tidy <- function(expr, ...) UseMethod('eval_tidy')
eval_tidy.custom <- function(expr, ...) cat("Running custom eval\n")
eval_tidy.default <- function(expr, ...) rlang::eval_tidy(expr, ...)

e1 <- quote(1+1)
eval_tidy(e1)
# [1] 2

class(e1) <- "custom"
eval_tidy(e1)
# Running custom eval