The R Project SVN – R – Diff – /trunk/src/library/base/man/is.recursive.Rd



\examples{
require(stats)
 
is.a.r <- function(x) c(is.atomic(x), is.recursive(x))
 
is.a.r(c(a = 1, b = 3)) # TRUE FALSE
is.a.r(list())          # FALSE TRUE - a list is a list
is.a.r(list(2))         # FALSE TRUE
is.a.r(lm)              # FALSE TRUE
is.a.r(y ~ x)           # FALSE TRUE
is.a.r(expression(x+1)) # FALSE TRUE (nowadays)

Rev 59039	Rev 61150
Line 45...	Line 45...
45	`\examples{`	45	`\examples{`
46	`require(stats)`	46	`require(stats)`
47		47
48	`is.a.r <- function(x) c(is.atomic(x), is.recursive(x))`	48	`is.a.r <- function(x) c(is.atomic(x), is.recursive(x))`
49		49
50	`is.a.r(c(a=1,b=3)) # TRUE FALSE`	50	`is.a.r(c(a = 1, b = 3)) # TRUE FALSE`
51	`is.a.r(list()) # FALSE TRUE - a list is a list`	51	`is.a.r(list()) # FALSE TRUE - a list is a list`
52	`is.a.r(list(2)) # FALSE TRUE`	52	`is.a.r(list(2)) # FALSE TRUE`
53	`is.a.r(lm) # FALSE TRUE`	53	`is.a.r(lm) # FALSE TRUE`
54	`is.a.r(y ~ x) # FALSE TRUE`	54	`is.a.r(y ~ x) # FALSE TRUE`
55	`is.a.r(expression(x+1)) # FALSE TRUE (nowadays)`	55	`is.a.r(expression(x+1)) # FALSE TRUE (nowadays)`

The R Project SVN R

(root)/trunk/src/library/base/man/is.recursive.Rd – Rev 59039 → 61150