R help - Mar 2009 - primitives again

Dear R Gurus:

How do I find the functions which are primitives, please?

Thanks,
Edna Bell

G'day Edna,

On Sat, 14 Mar 2009 22:52:38 -0500
Edna Bell <edna.bell01 at gmail.com> wrote:
> Dear R Gurus:
Well, I guess I can answer nevertheless. :)
> How do I find the functions which are primitives, please?
?is.primitive

Thus, the following code would give you all the primitive functions in
package base:

R> pos <- "package:base"
R> uu <- ls(pos=pos, all=TRUE)
R> tt <- sapply(uu, function(x) is.primitive(get(x, pos=pos)))
R> rr <- uu[tt]
R> rr

You may want to search other packages too.  Or modify the code such
that you loop over your search path and concatenate the results from
the various locations.

HTH.

Cheers,

	Berwin

Edna Bell wrote:
> How do I find the functions which are primitives, please?
>   
you can scan the whole search path for functions that are primitives:

    primitives = sapply(search(), function(path)
       with(as.environment(path), Filter(is.primitive, lapply(ls(), get))))

primitives is a list of named lists of primitives, one sublist for each
attached package (most sublists will be empty, i guess).
 
vQ

Thank you

On Sun, Mar 15, 2009 at 8:23 AM, Wacek Kusnierczyk
<Waclaw.Marcin.Kusnierczyk at idi.ntnu.no> wrote:
> Edna Bell wrote:
>> How do I find the functions which are primitives, please?
>>
>
> you can scan the whole search path for functions that are primitives:
>
> ? ?primitives = sapply(search(), function(path)
> ? ? ? with(as.environment(path), Filter(is.primitive, lapply(ls(), get))))
>
> primitives is a list of named lists of primitives, one sublist for each
> attached package (most sublists will be empty, i guess).
>
> vQ
>
> ______________________________________________
> R-help at r-project.org mailing list
> https://stat.ethz.ch/mailman/listinfo/r-help
> PLEASE do read the posting guide
http://www.R-project.org/posting-guide.html
> and provide commented, minimal, self-contained, reproducible code.
>


-- 
Erin Hodgess
Associate Professor
Department of Computer and Mathematical Sciences
University of Houston - Downtown
mailto: erinm.hodgess at gmail.com

On Sun, 15 Mar 2009 14:23:40 +0100
Wacek Kusnierczyk <Waclaw.Marcin.Kusnierczyk at idi.ntnu.no> wrote:
> Edna Bell wrote:
> > How do I find the functions which are primitives, please?
> >   
> 
> you can scan the whole search path for functions that are primitives:
> 
>     primitives = sapply(search(), function(path)
>      with(as.environment(path), Filter(is.primitive, lapply(ls(),
> get))))
> 
> primitives is a list of named lists of primitives, one sublist for
> each attached package (most sublists will be empty, i guess).
The code above will miss some primitives in package:base, namely those
that start with a dot:

R> primitives <- sapply(search(), function(path)
+       with(as.environment(path), 
+            Filter(is.primitive, lapply(ls(), get))))
R> sapply(primitives, length)
       .GlobalEnv     package:stats  package:graphics package:grDevices 
                0                 0                 0                 0 
    package:utils  package:datasets   package:methods         Autoloads 
                0                 0                 2                 0 
     package:base 
              176 
R> primitives <- sapply(search(), function(path)
+       with(as.environment(path), 
+            Filter(is.primitive, lapply(ls(all=TRUE), get))))
R> sapply(primitives, length)
       .GlobalEnv     package:stats  package:graphics package:grDevices 
                0                 0                 0                 0 
    package:utils  package:datasets   package:methods         Autoloads 
                0                 0                 2                 0 
     package:base 
              188 

Also, but that is a matter of taste, it could be preferable to use
sapply instead of lapply:

R> primitives$`package:methods`
[[1]]
function (expr)  .Primitive("quote")

[[2]]
.Primitive("[[<-")

R> head(primitives$`package:base`)
[[1]]
function (x)  .Primitive("!")

[[2]]
function (e1, e2)  .Primitive("!=")

[[3]]
.Primitive("$")

[[4]]
.Primitive("$<-")

[[5]]
function (e1, e2)  .Primitive("%%")

[[6]]
function (x, y)  .Primitive("%*%")

R> primitives <- sapply(search(), function(path)
+        with(as.environment(path), 
+             Filter(is.primitive, sapply(ls(all=TRUE), get))))
R> primitives$`package:methods`
$Quote
function (expr)  .Primitive("quote")

$`el<-`
.Primitive("[[<-")

R> head(primitives$`package:base`)
$`!`
function (x)  .Primitive("!")

$`!=`
function (e1, e2)  .Primitive("!=")

$`$`
.Primitive("$")

$`$<-`
.Primitive("$<-")

$`%%`
function (e1, e2)  .Primitive("%%")

$`%*%`
function (x, y)  .Primitive("%*%")


Cheers,

	Berwin