网上找了一个搜索包中函数的函数。
<br />
findfuns <- function(x) {<br />
if(require(x, character.only=TRUE)) {<br />
env <- paste("package", x, sep=":")<br />
nm <- ls(env, all=TRUE)<br />
nm[unlist(lapply(nm, function(n) exists(n, where=env,<br />
mode="function",<br />
inherits=FALSE)))]<br />
} else character(0)<br />
}<br />
这样就可以将自己所有安装的包的函数找出来了,就可以自己添加到相应的文本里面以实现高亮。比如,要将自己现在已经载入的包中的函数都找出来可以:
<br />
z <- lapply(.packages(all.available = FALSE), findfuns)<br />
z=unique(sort(unlist(z)))<br />
cat(z,file='out.txt',sep=',')<br />
然后直接将文本复制粘贴到相应文件就行了。