Включение обычной функции R S3 в общий

Question

FYI, похоже, у этого вопроса уже есть LISP equivalent.

Недавно я хотел создать расширение dataframe для базовой функции R setdiff и думал, что общий будет приятным. Следующие работы, но неуклюжие:

#' @export setdiff.default 
setdiff.default <- setdiff 

#' @export 
setdiff <- function(x, ...) { 
    UseMethod("setdiff") 
} 
#' @export 
setdiff.data.frame <- function(A, B) { 
    A[!duplicated(rbind(B, A))[nrow(B) + 1:nrow(A)], ] 
} 

При загрузке пакета базовая функция маскируется. Если я пишу дополнительную документацию для новой функции, создается другой файл .Rd и конкурирует с исходной базой R (R запрашивает, какой из них вы хотите, когда вы запустите ?setdiff).

Есть ли чистый способ сделать это?

Answer 1

Это можно сделать, используя S4. Обратите внимание, что setdiff использует аргументы x и y, поэтому метод также должен:

setGeneric("setdiff") 

setdiff.data.frame <- function(x, y) { 
    x[!duplicated(rbind(y, x))[nrow(y) + 1:nrow(x)], ] 
} 
setMethod("setdiff", signature("data.frame", "data.frame"), setdiff.data.frame) 

# test 
setdiff(BOD[1:3, ], BOD[2:4, ])