R/sourceFunctionURL.R

In John-R-Wallace-NOAA/rgit: Wrapper for git app, with gitAFile and gitPush

sourceFunctionURL <- function (URL) 
{
    " # For more functionality, see gitAFile() in the rgit package ( https://github.com/John-R-Wallace-NOAA/rgit ) which includes gitPush() and git() "
    if (!any(installed.packages()[, 1] %in% "httr"))  install.packages("httr") 
    File.ASCII <- tempfile()
    on.exit(file.remove(File.ASCII))
    getTMP <- httr::GET(URL)
    write(paste(readLines(textConnection(httr::content(getTMP))), collapse = "\n"), File.ASCII)
    source(File.ASCII)
}