For more information, I call all files via DropBox with this function :
dl_from_dropbox <- function(x, key) {
require(RCurl)
bin <- getBinaryURL(paste0("https://dl.dropboxusercontent.com/s/", key, "/", x),
ssl.verifypeer = FALSE)
con <- file(x, open = "wb")
writeBin(bin, con)
close(con)
message(noquote(paste(x, "read into", getwd())))
}
So for my shape file I used like that :
if (!file.exists("WSEAZonesAndExchangeBoundaries.zip")) {
dl_from_dropbox("WSEAZonesAndExchangeBoundaries.zip", "ievvw3a???????")
unzip(zipfile="WSEAZonesAndExchangeBoundaries.zip", overwrite=TRUE)
}
dta <- rgdal::readOGR(dsn = "WSEAZonesAndExchangeBoundaries",layer="Eircom-Exchange-Boundaries", stringsAsFactors=FALSE,encoding = 'UTF-8')