我可以在github上编写一个R脚本(使用'raw‘文本链接),如下所示:
# load package
require(RCurl)
# check 1
ls()
#character(0)
# read script lines from website
u <- "https://raw.github.com/tonybreyal/Blog-Reference-Functions/master/R/bingSearchXScraper/bingSearchXScraper.R"
script <- getURL(u, ssl.verifypeer = FALSE)
eval(parse(text = script))
# clean-up
rm("script", "u")
# check 2
ls()
#[1] "bingSearchXScraper"
然而,我真正想做的是将其封装在一个函数中。这就是我遇到问题的地方,我怀疑这与脚本的函数有关,这些函数只存在于被调用的函数中。例如,下面是我要做的事情:
source_github <- function(u) {
# load package
require(RCurl)
# read script lines from website and evaluate
script <- getURL(u, ssl.verifypeer = FALSE)
eval(parse(text = script))
}
source_github("https://raw.github.com/tonybreyal/Blog-Reference-Functions/master/R/bingSearchXScraper/bingSearchXScraper.R")
非常感谢您的宝贵时间。
发布于 2011-11-23 01:03:30
使用:
eval(parse(text = script),envir=.GlobalEnv)
将结果放入您的默认搜索空间。当然,使用相同的名称覆盖任何其他内容。
https://stackoverflow.com/questions/8229859
复制相似问题