S3 wysyłanie `rbind` i` cbind`

Question

Próbuję napisać metodę rbind dla konkretnej klasy. Oto prosty przykład, w którym to nie działa (przynajmniej dla mnie):

rbind.character <- function(...) { 
    do.call("paste", list(...)) 
} 

Po wprowadzeniu tej funkcji, to pozornie może potwierdzić, że jest to ważna metoda R wie o:

> methods("rbind") 
[1] rbind.character rbind.data.frame rbind.rootogram* rbind.zoo*  
see '?methods' for accessing help and source code 

jednak nie są ujmowane, gdy próbuję go użyć:

> rbind("abc", "xyz") 
    [,1] 
[1,] "abc" 
[2,] "xyz" 
> #### compared with #### 
> rbind.character("abc", "xyz") 
[1] "abc xyz" 

strona help mówi, że wysyłka odbywa się wewnętrznie w sposób następujący:

1. Dla każdego argumentu otrzymujemy listę możliwych przynależności do klasy od atrybutu klasy.
2. Sprawdzamy każdą klasę po kolei, aby sprawdzić, czy istnieje stosowna metoda .
3. Jeśli znajdziemy odpowiednią metodę, upewnimy się, że jest ona identyczna z dowolną metodą określoną dla poprzednich argumentów. Jeśli jest identyczny, kontynuujemy, kontynuujemy, w przeciwnym razie natychmiast przechodzimy do domyślnego kodu.

Dzięki rbind("abc", "xyz") uważam, że wszystkie te kryteria są spełnione. Co daje i jak mogę to naprawić?

Answer 1

attributes("abc") 
#NULL 

Wektor character nie ma atrybutu klasy. Nie sądzę, aby można było wywołać metodę rbind dla niejawnych klas.

Answer 2

Rozwiązaniem byłoby zdefiniować własną klasę:

b <- "abc" 
class(b) <- "mycharacter" 
rbind.mycharacter <- function(...) { 
    do.call("paste", list(...)) 
} 
rbind(b, b) 
# [1] "abc abc" 

Powodem dlaczego to nie działa z character był ładnie wyjaśnione przez Roland w swoim komentarzu.

Answer 3

rbind nie jest standardową funkcją S3, więc nie można jej "przechwycić" dla character.

Na szczęście można zastąpić domyślną implementację. Wypróbuj:

rbind.character <- function(...) { 

    print("hello from rbind.character") 
} 

rbind <- function(...) { 

    args <- list(...) 

    if (all(vapply(args, is.character, logical(1)))) { 

    rbind.character(...) 
    } else { 

    base::rbind(...) 
    } 
} 

Zasadniczo sprawdzamy, czy wszystkie argumenty są znakami. Jeśli tak, nazywamy naszą funkcję znaku. Jeśli nie, wywołujemy domyślną implementację.