Как получить данные из веб-редактора общего кода в R

Question

Я заинтересован в прямом чтении (поиске) сценариев R с многопользовательского веб-сайта обмена кодами. Я не нашел ни одного сайта, на котором хранится код в формате, доступном для R (что вполне может быть связано с моим невежеством). Я попробовал обходной путь, при котором я загружаю GoogleDoc в.txt, а затем отправляю его с моего локального компьютера, но, похоже, существует проблема с кодировкой, которую я не понимаю. Я искал решения, но не нашел ничего актуального.

(1) Есть ли у кого-то конкретные решения о том, как выполнить операцию с прямым источником (), например, в онлайн-редакторе кода (например, codeshare.io, kobra.io и т. Д.)? Чтобы было ясно, я хочу иметь возможность читать сценарии из общих сеансов кодирования и запускать их на моем локальном компьютере одним или двумя нажатиями клавиш. Я не заинтересован в GitHub.

(2) Если нет, может ли кто-нибудь сказать мне, почему следующий фрагмент кода не удается найти, и что я должен сделать, чтобы исправить ошибку?

Пример...

dl_from_GoogleD <- function(output, key, format) {
    require(RCurl)
    bin <- getBinaryURL(paste0("https://docs.google.com/document/d/", key, "/export?format=", format), ssl.verifypeer = FALSE)
    con <- file(output, open = "wb")
    writeBin(bin, con)

    close(con)
    message(noquote(paste(output, "read into", getwd())))
}

setwd(tempdir())
dl_from_GoogleD(output = "test.txt", key = "11jYc5uvDOWrHmYRXOJtLsycxvojiW4qIN6aVQsJCYQM", format = "txt")
source("test.txt", echo=T)

Получена ошибка: ошибка в источнике ("test.txt", echo = T): test.txt:1:2: неожиданный ввод 1: "^"

Я использую Windows 7 и RStudio.