The R Project SVN R

Rev

Rev 58137 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 58137 Rev 58138
Line 28... Line 28...
28 
	      if(is(x, "maybe"))
 28 
	      if(is(x, "maybe"))
29 
		  ffMaybe(x)
 29 
		  ffMaybe(x)
30 
	      else
 30 
	      else
31 
		  callNextMethod()
 31 
		  callNextMethod()
32 
	  })
 32 
	  })
33 
## stopifnot(identical(ff(aa), "ff maybe method"),
 33 
stopifnot(identical(ff(aa), "ff maybe method"),
34 
##           identical(ff(aa2), "default ff"))
 34 
          identical(ff(aa2), "default ff"))
35 
 
 35 
 
36 
removeClass("A")
 36 
removeClass("A")
37 
removeClass("maybe")
 37 
removeClass("maybe")
38 
removeGeneric("ff")
 38 
removeGeneric("ff")