Support remote reading for read_rds()

[msberends]

Currently, it is possible to read remote files using most read_*() functions. But for read_rds(), that really only calls readRDS(), this does not work, which hinders downloading remote data sets from e.g. repositories.

Would it be an idea to support downloading prior to reading RDS files? As an example:

read_rds <- function(file) {
  if (grepl("^http", file, ignore.case = TRUE)) {
    # temp location
    file_local <- file.path(tempdir(), basename(file))
    # download the data set
    download.file(file, file_local, quiet = TRUE, mode = "wb")
    file <- file_local
  }
  readRDS(file)
}