Nadpisuje funkcję importowaną w przestrzeni nazw

Ponieważ termplot Funkcja W R zawiera jakiś dziwny kod, który powoduje irytujące błędy, chcę ją nadpisać w moim własnym kodzie testowym, dopóki nie znajdę bardziej trwałego rozwiązania. Problem polega na tym, że zmieniona funkcja nie jest ładowana przez pakiet mgcv. Pakiet mgcv ładuje termplota z pakietu stats w jego przestrzeni nazw, używając importFrom() w pliku przestrzeni nazw.

Jak mogę przekonać mgcv do użycia zmienionego termplot? Próbowałem:

unlockBinding("termplot", as.environment("package:stats"))
assign("termplot", my.termplot, as.environment("package:stats"))
lockBinding("termplot", as.environment("package:stats"))

I po zastosowaniu do obiektów lm działa to i zmieniony termplot jest używany. Ale podczas korzystania z obiektów gam wykonanych przez pakiet mgcv, to nie działa. Nie zamierzam budować pakietu statystyk ze źródła, jeśli mogę go uniknąć...

Aby wyjaśnić, próbowałem również z

assignInNamespace("termplot", my.termplot, ns="stats")
assignInNamespace("termplot", my.termplot, ns="mgcv")

We wszystkich możliwych kombinacjach, przed podłączeniem mgcv, po podłączeniu mgcv i nie udało mi się go uruchomić.

EDIT:

Wypróbowałem wszystkie podane tutaj opcje (poza przebudową obu pakietów) i nie mogłem go uruchomić. Łatwym wyjściem dla mnie jest użycie funkcji owijania. Tę dyskusję można znaleźć tutaj . Dzięki za wszystkie wskazówki.

Powtarzalny przykład:

my.termplot <- function (x) print("my new termplot")

  unlockBinding("termplot", as.environment("package:stats"))
  assignInNamespace("termplot", my.termplot, ns="stats", envir=as.environment("package:stats"))
  assign("termplot", my.termplot, as.environment("package:stats"))
  lockBinding("termplot", as.environment("package:stats"))


y <- 1:10
x <- 1:10
xx <- lm(y~x)
termplot(xx)
require(mgcv)
dat <- gamSim(1, n = 400, dist = "normal", scale = 2)
b <- gam(y ~ s(x0) + s(x1) + s(x2) + x3, data = dat)
plot(b,all=TRUE)

plot.gam wywołuje termplot dla nie-gładkich terminów (w tym przypadku x3), ale nie znajduje nowej funkcji termplot.

EDIT2: najwyraźniej mój przykład działa. Widzę teraz rozwiązałem własne pytanie: w pierwszym kodzie nie dodałem zarówno przestrzeni nazw, jak i pakietu w assignInNamespace. Ważne jest, aby pamiętaj, aby zmienić funkcję zarówno w przestrzeni nazw, jak i pakietu przed załadowaniem drugiego pakietu. Thx @hadley za wskazanie mi właściwego kierunku, @Marek za testowanie kodu i zgłoszenie, że działa, a reszta za podjęcie wysiłku, aby odpowiedzieć. [odpowiedz]