如何从内一个包装器功能导入R脚本GitHub?

内容来源于 Stack Overflow,并遵循CC BY-SA 3.0许可协议进行翻译与使用

  • 回答 (1)
  • 关注 (0)
  • 查看 (29)

我可以在GitHub(使用“原始”文本链接)上获得一个R脚本,如下所示:

# 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")

提问于
用户回答回答于

用途:

 eval(parse(text = script),envir=.GlobalEnv)

将结果放入默认搜索空间。当然,用相同的名字覆盖其他任何东西。

扫码关注云+社区