r - 在包装函数中从github采购R脚本以供全局 session 使用？

Question

我可以按如下方式获取保存在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")

非常感谢您的宝贵时间。

Answer 1

用：

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

将结果粘贴到默认搜索空间中。当然，覆盖具有相同名称的其他任何内容。