The R Project SVN R

(root)/trunk/tests/ok-errors.R – Rev 42973 → 57523



  complex(2^30+1)
character(2^30+1)
vector("list", 2^30+2)
}
 
 
 
## bad infinite recursion / on.exit / ... interactions
bar <- function() 1+1
foo <- function() { on.exit(bar()); foo() }
foo() # now simple "infinite recursion"

Rev 42973	Rev 57523
Line 12...	Line 12...
12	`complex(2^30+1)`	12	`complex(2^30+1)`
13	`character(2^30+1)`	13	`character(2^30+1)`
14	`vector("list", 2^30+2)`	14	`vector("list", 2^30+2)`
15	`}`	15	`}`
16		16
17	`getenv("USER") # should produce correct error message.`	-
18		-
19	`## bad infinite recursion / on.exit / ... interactions`	17	`## bad infinite recursion / on.exit / ... interactions`
20	`bar <- function() 1+1`	18	`bar <- function() 1+1`
21	`foo <- function() { on.exit(bar()); foo() }`	19	`foo <- function() { on.exit(bar()); foo() }`
22	`foo() # now simple "infinite recursion"`	20	`foo() # now simple "infinite recursion"`