The R Project SVN – R – Diff – /trunk/tests/primitive-funs.R



#### text was in ../doc/manual/primitive-funs.tex , now
#### ==> ../doc/manual/R-exts.texi "@appendix R (internal) ...
####	 ~~~~~~~~~~~~~~~~~~~~~~~~~
 
bpos <- match("package:base",search())
nn <- ls(pos=bpos, all = TRUE)
length(nn) # 844 [R 0.62.0, March 25, 1998;  1067 R 0.64.0 March 1999]
 
is.primitive <- function (obj) is.function(obj) && is.null(args(obj))
is.special <- function(obj) typeof(obj) == "special"
 

Rev 23645	Rev 30945
Line 5...	Line 5...
5	`#### text was in ../doc/manual/primitive-funs.tex , now`	5	`#### text was in ../doc/manual/primitive-funs.tex , now`
6	`#### ==> ../doc/manual/R-exts.texi "@appendix R (internal) ...`	6	`#### ==> ../doc/manual/R-exts.texi "@appendix R (internal) ...`
7	`#### ~~~~~~~~~~~~~~~~~~~~~~~~~`	7	`#### ~~~~~~~~~~~~~~~~~~~~~~~~~`
8		8
9	`bpos <- match("package:base",search())`	9	`bpos <- match("package:base",search())`
10	`nn <- ls(pos=bpos)`	10	`nn <- ls(pos=bpos, all = TRUE)`
11	`length(nn) # 844 [R 0.62.0, March 25, 1998; 1067 R 0.64.0 March 1999]`	11	`length(nn) # 844 [R 0.62.0, March 25, 1998; 1067 R 0.64.0 March 1999]`
12		12
13	`is.primitive <- function (obj) is.function(obj) && is.null(args(obj))`	13	`is.primitive <- function (obj) is.function(obj) && is.null(args(obj))`
14	`is.special <- function(obj) typeof(obj) == "special"`	14	`is.special <- function(obj) typeof(obj) == "special"`
15		15

The R Project SVN R

(root)/trunk/tests/primitive-funs.R @ 34412 – Rev 23645 → 30945