The R Project SVN R

Rev

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

Rev 54672 Rev 58745
Line 240... Line 240...
240 
 
 240 
 
241 
sf(pi + 2.2i)
 241 
sf(pi + 2.2i)
242 
sf(s + pi*1i)
 242 
sf(s + pi*1i)
243 
 
 243 
 
244 
options(oDig)
 244 
options(oDig)
- 
 
 245 
 
- 
 
 246 
e1 <- tryCatch(options(max.print=Inf), error=function(e)e)
- 
 
 247 
e2 <- tryCatch(options(max.print= 0),  error=function(e)e)
- 
 
 248 
stopifnot(inherits(e1, "error"))
- 
 
 249 
 
- 
 
 250 
 
- 
 
 251 
## Printing of "Date"s
- 
 
 252 
options(width = 80)
- 
 
 253 
op <- options(max.print = 500)
- 
 
 254 
dd <- as.Date("2012-03-12") + -10000:100
- 
 
 255 
writeLines(t1 <- tail(capture.output(dd)))
- 
 
 256 
l6 <- length(capture.output(print(dd, max = 600)))
- 
 
 257 
options(op)
- 
 
 258 
t2 <- tail(capture.output(print(dd, max = 500)))
- 
 
 259 
stopifnot(identical(t1, t2), l6 == 121)
- 
 
 260 
## not quite consistent in R <= 2.14.x
- 
 
 261