Я могу создать R-скрипт, хранящийся на github (используя« необработанную »текстовую ссылку), следующим образом:
# 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")
Заранее большое спасибо за ваше время.