GithubのRスクリプトをラッパー関数内からグローバルに使用するには？

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) 

デフォルトの検索スペースに結果を固執します。もちろん、同じ名前のものを上書きします。