1

我有兴趣直接从基于 Web 的多用户代码共享站点读取（采购）R 脚本。我还没有找到任何以 R 可以访问的格式存储代码的站点（这很可能是由于我的无知）。我尝试了一种解决方法，将 GoogleDoc 下载到 .txt，然后从本地计算机获取它，但似乎存在我不理解的编码问题。我已经搜索了解决方案，但没有找到任何最新的东西。

(1) 对于如何从在线代码编辑器（例如 codeshare.io、kobra.io 等）完成类似 source() 的直接操作，是否有人有具体的解决方案？需要明确的是，我希望能够从共享编码会话中读取脚本，并通过一两次击键在我的本地计算机上运行它们。我对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。

4

0 回答 0