S3 `rbind` ve` cbind`

Question

’un S3 gönderimi Belirli bir sınıf için rbind yöntemini yazmayı deniyorum.

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

:

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

Bu fonksiyonu girdikten sonra, ben görünüşte o R bildiği geçerli bir yöntem olduğunu teyit edebiliriz: İşte (en azından benim için) çalışmayan bir basit bir örnek

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

yardım sayfası aşağıdaki gibi sevk içten gerçekleştirilir söylüyor: onu kullanmaya çalışırsanız

Ancak, tanınmayan

1. Her bir değişken için sınıf özelliklerinden olası sınıf üyelikleri listesini alırız.
2. Geçerli bir yönteminin olup olmadığını görmek için sırayla her sınıfı denetleriz.
3. Geçerli bir yöntem bulursak, önceki argümanlar için belirlenen herhangi bir yöntemin ile aynı olduğundan emin oluruz. Eğer aynı ise, biz biz varız, aksi takdirde hemen varsayılan kodun içine düşüyoruz.

rbind("abc", "xyz") ile, tüm bu ölçütlerin karşılandığına inanıyorum. Ne verir ve nasıl düzeltebilirim?

Answer 1

attributes("abc") 
#NULL 

character numaralı vektörün bir sınıf özelliği yoktur. Ben örtük sınıflar için bir yöntem rbind tarafından gönderilebilir sanmıyorum.

Answer 2

bir geçici çözüm kendi sınıfını tanımlamak olacaktır:

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

o character ile çalışmıyor nedeni güzel onun yorumunda Roland tarafından açıklanmıştı.

Answer 3

rbind standart S3 işlevi değil, bu nedenle character için "kesiştiremezsiniz".

Neyse ki, varsayılan uygulamayı geçersiz kılabilirsiniz. Deneyin:

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(...) 
    } 
} 

Temel olarak, bağımsız değişkenlerin tüm karakterleri olup olmadığını kontrol ederiz. Eğer öyleyse, karakter fonksiyonumuzu çağırıyoruz. Değilse, varsayılan uygulamayı çağırıyoruz.