The R Project SVN R

Rev

Rev 62864 | Rev 63382 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
20124 ripley 1 
 
63202 ripley 2 
R Under development (unstable) (2013-07-06 r63201) -- "Unsuffered Consequences"
62439 ripley 3 
Copyright (C) 2013 The R Foundation for Statistical Computing
58594 ripley 4 
Platform: x86_64-unknown-linux-gnu (64-bit)
20124 ripley 5 
 
6 
R is free software and comes with ABSOLUTELY NO WARRANTY.
7 
You are welcome to redistribute it under certain conditions.
39826 maechler 8 
Type 'license()' or 'licence()' for distribution details.
20124 ripley 9 
 
10 
R is a collaborative project with many contributors.
39826 maechler 11 
Type 'contributors()' for more information and
12 
'citation()' on how to cite R or R packages in publications.
20124 ripley 13 
 
39826 maechler 14 
Type 'demo()' for some demos, 'help()' for on-line help, or
15 
'help.start()' for an HTML browser interface to help.
16 
Type 'q()' to quit R.
20124 ripley 17 
 
18 
> #### STRICT test suite in the spirit of no-segfaults,
19 
> #### but with explicit statements.
20 
>
21 
> options(error=expression(NULL))
22 
> stop("test of `options(error=expression(NULL))'")
23 
Error: test of `options(error=expression(NULL))'
24 
>
25 
> if(FALSE) {
26 
+ ## these ought to work on machines with enough memory
27 
+ ## These segfaulted in 1.3.x ,  give "could not allocate" errors now
28 
+   integer(2^30+1)
29 
+    double(2^30+1)
30 
+   complex(2^30+1)
31 
+ character(2^30+1)
32 
+ vector("list", 2^30+2)
33 
+ }
34 
>
42973 maechler 35 
> ## bad infinite recursion / on.exit / ... interactions
36 
> bar <- function() 1+1
37 
> foo <- function() { on.exit(bar()); foo() }
38 
> foo() # now simple "infinite recursion"
39 
Error: evaluation nested too deeply: infinite recursion / options(expressions=)?
40 
>