R/package.basefuns.R

In liuguofang/figsci: Let plotting figure and scientific visualization and information gain easier and more efficient.

package.basefuns <- function(package.name){
    library(package.name,character.only = TRUE)
    library(plyr)
    library(stringr)
    obj <- ls(str_interp("package:${package.name}"))
    tag <- laply(obj,function(s) is.function(get(s)))
                 funs <- obj[tag]
                 output <- llply(funs,function(s) 
                     codetools::findGlobals(get(str_interp("${s}"))))
                                 table(unlist(output))
}