The R Project SVN R

Rev

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

Rev 71961 Rev 71963
Line 196... Line 196...
196 
  method definitions.}
 196 
  method definitions.}
197 
\examples{
 197 
\examples{
198 
testFun <-  function(x)x
 198 
testFun <-  function(x)x
199 
setGeneric("testFun")
 199 
setGeneric("testFun")
200 
setMethod("testFun", "numeric", function(x)x+1)
 200 
setMethod("testFun", "numeric", function(x)x+1)
- 
 
 201 
 
201 
hasMethod("testFun", "numeric")
 202 
hasMethod("testFun", "numeric") # TRUE
202 
\dontrun{[1] TRUE}
 - 
 
- 
 
 203 
 
203 
hasMethod("testFun", "integer") #inherited
 204 
hasMethod("testFun", "integer") #TRUE, inherited
204 
\dontrun{[1] TRUE}
 - 
 
- 
 
 205 
 
205 
existsMethod("testFun", "integer")
 206 
existsMethod("testFun", "integer") #FALSE
206 
\dontrun{[1] FALSE}
 - 
 
- 
 
 207 
 
207 
hasMethod("testFun") # default method
 208 
hasMethod("testFun") # TRUE, default method
208 
\dontrun{[1] TRUE}
 - 
 
- 
 
 209 
 
209 
hasMethod("testFun", "ANY")
 210 
hasMethod("testFun", "ANY")
210 
\dontrun{[1] FALSE}
 - 
 
- 
 
 211 
 
211 
\dontshow{
 212 
\dontshow{
- 
 
 213 
## Verify the example
212 
stopifnot(isGeneric("testFun"),
 214 
stopifnot(isGeneric("testFun"),
213 
          hasMethod("testFun", "numeric"),
 215 
          hasMethod("testFun", "numeric"),
214 
          hasMethod("testFun", "integer"),
 216 
          hasMethod("testFun", "integer"),
215 
          !existsMethod("testFun", "integer"),
 217 
          !existsMethod("testFun", "integer"),
216 
          hasMethod("testFun"),
 218 
          hasMethod("testFun"),