Переопределение встроенной функции is.na

Question

В качестве продолжения моего предыдущего вопроса - NaN is removed when using na.rm=TRUE, я ищу обходное решение с минимальными изменениями в моей (большой) базе кода.

Я попытался это, который работает, но

my.is.na <- function(x) 
{ 
    ifelse(is.na(x) & !is.nan(x), TRUE, FALSE) 
} 

Но я хочу, чтобы переопределить встроенный is.na функции. Переименование моей функции на is.na, очевидно, приводит к бесконечной рекурсии. Какие у меня варианты?

PS: Во всем коде предполагается, что is.na(NaN) возвращает FALSE, поэтому я бы предпочел переопределить.

Answer 1

Я не уверен, если это законный путь, но как насчет:

old.na <- is.na 
is.na <- function(x) 
{ 
    ifelse(old.na(x) & !is.nan(x), TRUE, FALSE) 
} 

Это может нарушить некоторые правила в R и, возможно, некоторые другие плохие последствия, но, по крайней мере, он ведет себя так, как вы были в виду ...