The R Project SVN R

Rev

Rev 69761 | Rev 83353 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 69761 Rev 74658
Line 65... Line 65...
65 
    cat("primitives not covered in methods:::.BasicFunsList:",
 65 
    cat("primitives not covered in methods:::.BasicFunsList:",
66 
        paste(sQuote(notS4), collapse=", "), "\n")
 66 
        paste(sQuote(notS4), collapse=", "), "\n")
67 
stopifnot(S4generic)
 67 
stopifnot(S4generic)
68 
 
 68 
 
69 
# functions which are listed but not primitive
 69 
# functions which are listed but not primitive
70 
extraS4 <- c('unlist', 'as.vector')
 70 
extraS4 <- c('unlist', 'as.vector', 'lengths')
71 
ff4[!ff4 %in% c(ff, extraS4)]
 71 
ff4[!ff4 %in% c(ff, extraS4)]
72 
stopifnot(ff4 %in% c(ff, extraS4))
 72 
stopifnot(ff4 %in% c(ff, extraS4))
73 
 
 73 
 
74 
 
 74 
 
75 
## primitives which are not internally generic cannot have S4 methods
 75 
## primitives which are not internally generic cannot have S4 methods