В основном я хочу изменить невидимую функцию пакета. Для видимых функций, то есть функций, которые не имеют астерикс при вызове methods
, я нашел два сообщения, как я мог бы достичь своей цели:
- Используйте
assignInNamespace
: см. сообщение на R-help. - Используйте
fix
: см. сообщение на qaru.site/info/141720/...
Хотя оба подхода работают для экспортируемой/видимой функции (я использую predict.lm
в качестве примера ниже для второго подхода и протестировал первый подход с помощью функции subset.data.frame
), они не работают для невидимого функции, например predict.ar
. Почему это? Есть ли способ обхода?
Вот минимальный пример:
Покажите, что expected.lm видимо, pred.ar не:
methods(predict)
[1] predict.Arima* predict.HoltWinters* predict.StructTS*
[4] predict.ar* predict.arima0* predict.glm
[7] predict.lm predict.loess* predict.mlm
[10] predict.nls* predict.poly predict.ppr*
[13] predict.prcomp* predict.princomp* predict.smooth.spline*
[16] predict.smooth.spline.fit*
Применить predict.lm
:
x <- rnorm(5)
y <- x + rnorm(5)
predict(lm(y ~ x))
# 1 2 3 4 5
# 1.0783047 1.5288031 0.3268405 0.8373520 -0.9833746
Измените predict.lm
, введя cat ( "Первая строка изменена для прогноза .lm\n" )
в начале тела функции. (Вы должны сделать это вручную в редакторе):
fix(predict.lm)
predict(lm(y ~ x))
# First line changed for predict.lm
# 1 2 3 4 5
# 1.0783047 1.5288031 0.3268405 0.8373520 -0.983374
Применить predict.ar
:
sunspot.ar <- ar(sunspot.year)
predict(sunspot.ar, n.ahead=25)
# $pred
# Time Series:
# Start = 1989
# End = 2013
Попробуйте изменить predict.ar
:
fix(predict.ar) #Here, an empty function body appears for me
fix("stats:::predict.ar") #Here as well
fix(stats:::predict.ar)
#Error in fix(stats:::predict.ar) : 'fix' requires a name
Попробуйте вместо этого использовать assignInNamespace
. (Обратите внимание, что я просто скопировал функцию stats:::predict.ar
в редакторе и добавил строку cat("First line changed for predict.ar\n")
в начале тела. Поскольку тело функции довольно длинное, я показываю только первые пару строк)
mypredict <- function (object, newdata, n.ahead = 1, se.fit = TRUE, ...)
{
cat("First line changed for predict.ar\n")
if (n.ahead < 1)
stop("'n.ahead' must be at least 1")
#Rest of body of stats:::predict.ar
}
assignInNamespace("predict.ar", mypredict, ns="stats")
predict(sunspot.ar, n.ahead=25)
# First line changed for predict.ar
# Error in predict.ar(sunspot.ar, n.ahead = 25) :
# object 'C_artoma' not found
Так как "Первая строка, измененная для pred.ar", на самом деле печатается на консоли, значит, должно быть изменено. Однако почему объект C_artoma больше не найден?
UPDATE: Хорошо, это очень неловко, но я больше не могу удалить эту запись: ответ был уже по ссылке, которую я предоставил с ответом Ричи Коттона в конце. Извините за то, что тратишь свое время! Кажется, я все проверил, и тогда я не вижу очевидного. Может кто-то просто опубликовать это как ответ, и я его принимаю. Извините еще раз.
fixInNamespace(predict.ar, pos="package:stats")