The R Project SVN R

Rev

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

Rev 71228 Rev 71229
Line 116... Line 116...
116 
## This should generate an error
 116 
## This should generate an error
117 
\dontrun{try(validObject(t2))}
 117 
\dontrun{try(validObject(t2))}
118 
\dontshow{stopifnot(is(try(validObject(t2)), "try-error"))}
 118 
\dontshow{stopifnot(is(try(validObject(t2)), "try-error"))}
119 
 
 119 
 
120 
setClass("trackCurve", contains = "track",
 120 
setClass("trackCurve", contains = "track",
121 
         slots = c("track", smooth = "numeric"))
 121 
         slots = c(smooth = "numeric"))
122 
 
 122 
 
123 
## all superclass validity methods are used when validObject
 123 
## all superclass validity methods are used when validObject
124 
## is called from initialize() with arguments, so this fails
 124 
## is called from initialize() with arguments, so this fails
125 
\dontrun{trynew("trackCurve", t2)}
 125 
\dontrun{trynew("trackCurve", t2)}
126 
\dontshow{stopifnot(is(try(new("trackCurve", t2)), "try-error"))}
 126 
\dontshow{stopifnot(is(try(new("trackCurve", t2)), "try-error"))}