Как мне перерегистрировать метод S3 внутри пакета R?

Question

Я работаю над инструментом для R и не могу понять, как заменить методы S3 внутри пакетов. Давайте принимать print.aov например. Хочу заменить свое тело, но внутри stats Пространство имен. Если я просто переназначу функцию в пространстве имен

> reassignInEnv <- function(name, obj, env) {
    if (exists(name, env)) {
        if (bindingIsLocked(name, env)) {
            unlockBinding(name, env)
            assign(name, obj, envir = env)
            lockBinding(name, env)
        } else {
            assign(name, obj, envir = env)
        }
    } else {
        stop("Object does not exist")
    }
}
> reassignInEnv("print.aov", function(x, ...) { print("replaced function!") }, env = getNamespace('stats'))

Ранее зарегистрированная функция будет вызываться при print рассылки, вместо новой.

> print(aov(yield ~ block + N * P + K, npk))
Call:
   aov(formula = yield ~ block + N * P + K, data = npk)

Terms:
                   block        N        P        K      N:P Residuals
Sum of Squares  343.2950 189.2817   8.4017  95.2017  21.2817  218.9033
Deg. of Freedom        5        1        1        1        1        14

Residual standard error: 3.954232
Estimated effects may be unbalanced

Я также попробовал пакет R.methodsS3, но он не будет работать, потому что он пытается выполнить назначение в заблокированной среде.

> unlockBinding("print.aov", getNamespace('stats'))
> setMethodS3(name = "print", definition = function(x, ...) { print("replaced function!") }, class = "aov", private = TRUE, export = FALSE, envir = getNamespace('stats'))
Error in eval(expr, envir, enclos) : 
  cannot add bindings to a locked environment

Как убедиться, что новая функция вызывается при отправке метода S3?

Answer 1

Ты пытался assignInNamespace()?

printAOV <- function(x, ...) print("replaced function!")
assignInNamespace("print.aov", printAOV, ns = asNamespace("stats"))

print(aov(yield ~ block + N * P + K, npk))
# [1] "replaced function!"