从Github将数据导入R(rdata)

Question

我想在Github上放一些R代码和相关的数据文件(RData).

到目前为止,一切正常.但是当人们克隆存储库时,我希望他们能够立即运行代码.目前,这是不可能的,因为他们必须将他们的工作目录(setwd)更改为RData文件被克隆(即下载)到的目录.

因此,我认为可能更容易,如果我更改R代码,使其链接到github上的RData文件.但我无法使用以下代码段来实现此功能.我想也许有一些问题文本/二进制问题.

x <- RCurl::getURL("https://github.com/thefactmachine/hex-binning-gis-data/raw/master/popDensity.RData")
y <- load(x)

任何帮助,将不胜感激.

谢谢

Answer 1

这对我有用:

githubURL <- "https://github.com/thefactmachine/hex-binning-gis-data/raw/master/popDensity.RData"
load(url(githubURL))
head(df)
#          X        Y        Z
# 1 16602794 -4183983 94.92019
# 2 16602814 -4183983 91.15794
# 3 16602834 -4183983 87.44995
# 4 16602854 -4183983 83.79617
# 5 16602874 -4183983 80.19643
# 6 16602894 -4183983 76.65052

编辑回复OP评论.

从文档:

请注意,除Windows外,不支持https:// URL方案.

所以你可以试试这个:

download.file(githubURL,"myfile")
load("myfile")

这对我也有用,但这会使你的工作目录变得杂乱无章.如果这不起作用,请尝试设置method="curl"呼叫download.file(...).

Answer 2

load需要一个文件名。

x <- RCurl::getURL("https://github.com/thefactmachine/hex-binning-gis-data/raw/master/popDensity.RData")
writeLines(x, tmp <- tempfile())
y <- load(tmp)