read_parquet() from URL

Author: vincentarelbundock

NEWS.md

@@ -1,5 +1,7 @@
 # nanoparquet (development version)
 
+* `read_parquet()` can now read files from URLs.
+
 # nanoparquet 0.4.2
 
 * `write_parquet()` now does not fail when writing files with a zero-length

R/read-parquet.R

@@ -32,6 +32,11 @@ read_parquet <- function(file, col_select = NULL,
 		on.exit(unlink(tmp), add = TRUE)
 		dump_connection(file, tmp)
 		file <- tmp
+	} else if (is.character(file) && length(file) == 1 && any(startsWith(file, c("https://", "http://")))) { 
+		tmp <- tempfile(fileext = ".parquet")
+		on.exit(unlink(tmp), add = TRUE)
+		suppressWarnings(download.file(file, destfile = tmp, quiet = TRUE, mode = "wb"))
+		file <- tmp
 	}
   file <- path.expand(file)