env cmpfun

> rm(list=ls())
> someFunction <- function(x) { return(x*someVariable) }
> invisible(compiler::cmpfun(someFunction))
Note: no visible binding for global variable 'someVariable'
# Scoping can be an issue:
> someVariable <- 1
> invisible(compiler::cmpfun(someFunction))
# No more error because of lexical scope, to solve:
> poorMansLibrary <- new.env()
> poorMansLibrary$someFunction <- someFunction
> rm(list=setdiff(ls(),"poorMansLibrary"))
> for(fn in names(poorMansLibrary)){
	out <- capture.output(invisible(compiler::cmpfun(poorMansLibrary[[fn]])))
	if(length(out)>0) {
		cat("Warnings from function: ",fn,"\n",paste(out,sep="\n"),"\n",sep="")
  	}
}