R help - Jan 2013 - Codetools Query (repost)

Sorry for reposting,  i keep forgetting this should be plain text.
Will not make this mistake again

Hello,

The following code

moo <- function(a=1){ x=1; x=x+y}
funs <- new.env()
enter <- function(type, v, e, w){
  assign(v, TRUE, funs)
}
library(codetools)
collectUsage(moo, enterGlobal = enter)


adds + to the environment funs i.e.

funs: "=" "{" "+" "y"

How can i ignore variables which are present in base, utils, stat
environments from being added (equivalently(?) symbols present in R
when R is started)

I tried



funs <- new.env()
enter <- function(type, v, e, w){
  if(codetools:::isBaseVar(v, w$env) || codetools:::isStatsVar(v, w$env)
     || codetools:::isUtilsVar(v, w$env) || v == "Quote")
    return()
  assign(v, TRUE, funs)
}

library(codetools)
collectUsage(moo, enterGlobal = enter)

but this threw

Error in exists(v, envir = e, inherits = FALSE, mode = "function") :
  invalid 'envir' argument

Cheers

You really don't want to use internals like isBaseVar as there is no
guarantee they will continue to exist.  Even collectUsage and otehr
things mentioned on the same page may need to change if this is
reimplemented.

The most robust approach is to use findGlobals and omit what you don't
want, e.g.

     > omit <- ls("package:base", all.names=TRUE)
     > setdiff(findGlobals(moo),omit)
     [1] "y"

If you do want to use chollectUsage you could use something like

     funs <- new.env()
     omit <- ls("package:base", all.names=TRUE)
     enter <- function(type, v, e, w){
 	if (! v %in% omit)
 	    assign(v, TRUE, funs)
     }
     collectUsage(moo, enterGlobal = enter)

If %in% is too slow create a hashed envorinment and use exists().

Best,

luke

On Tue, 15 Jan 2013, Saptarshi Guha wrote:
> Sorry for reposting,  i keep forgetting this should be plain text.
> Will not make this mistake again
>
> Hello,
>
> The following code
>
> moo <- function(a=1){ x=1; x=x+y}
> funs <- new.env()
> enter <- function(type, v, e, w){
>  assign(v, TRUE, funs)
> }
> library(codetools)
> collectUsage(moo, enterGlobal = enter)
>
>
> adds + to the environment funs i.e.
>
> funs: "=" "{" "+" "y"
>
> How can i ignore variables which are present in base, utils, stat
> environments from being added (equivalently(?) symbols present in R
> when R is started)
>
> I tried
>
>
>
> funs <- new.env()
> enter <- function(type, v, e, w){
>  if(codetools:::isBaseVar(v, w$env) || codetools:::isStatsVar(v, w$env)
>     || codetools:::isUtilsVar(v, w$env) || v == "Quote")
>    return()
>  assign(v, TRUE, funs)
> }
>
> library(codetools)
> collectUsage(moo, enterGlobal = enter)
>
> but this threw
>
> Error in exists(v, envir = e, inherits = FALSE, mode =
"function") :
>  invalid 'envir' argument
>
> Cheers
>
> ______________________________________________
> 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.
>
-- 
Luke Tierney
Chair, Statistics and Actuarial Science
Ralph E. Wareham Professor of Mathematical Sciences
University of Iowa                  Phone:             319-335-3386
Department of Statistics and        Fax:               319-335-3017
    Actuarial Science
241 Schaeffer Hall                  email:   luke-tierney at uiowa.edu
Iowa City, IA 52242                 WWW:  http://www.stat.uiowa.edu

thanks much.

Saptarshi