[arrow] branch main updated: GH-35400: [R] Import download.file from utils (#35401)

[th...@apache.org]

This is an automated email from the ASF dual-hosted git repository.

thisisnic pushed a commit to branch main
in repository https://gitbox.apache.org/repos/asf/arrow.git


The following commit(s) were added to refs/heads/main by this push:
     new 2ee03450d0 GH-35400: [R] Import download.file from utils (#35401)
2ee03450d0 is described below

commit 2ee03450d02286920a82595f49de1759b7f4d6ff
Author: Nic Crane <th...@gmail.com>
AuthorDate: Wed May 3 16:49:53 2023 +0200

    GH-35400: [R] Import download.file from utils (#35401)
    
    
    * Closes: #35400
    
    Authored-by: Nic Crane <th...@gmail.com>
    Signed-off-by: Nic Crane <th...@gmail.com>
---
 r/NAMESPACE | 1 +
 r/R/io.R    | 1 +
 2 files changed, 2 insertions(+)

diff --git a/r/NAMESPACE b/r/NAMESPACE
index 7a8efe0ca3..ba791cb415 100644
--- a/r/NAMESPACE
+++ b/r/NAMESPACE
@@ -504,6 +504,7 @@ importFrom(tidyselect,one_of)
 importFrom(tidyselect,starts_with)
 importFrom(tidyselect,vars_pull)
 importFrom(utils,capture.output)
+importFrom(utils,download.file)
 importFrom(utils,getFromNamespace)
 importFrom(utils,head)
 importFrom(utils,install.packages)
diff --git a/r/R/io.R b/r/R/io.R
index b2989de78a..e952d656f8 100644
--- a/r/R/io.R
+++ b/r/R/io.R
@@ -232,6 +232,7 @@ mmap_open <- function(path, mode = c("read", "write", "readwrite")) {
 #' @param random_access Logical: whether the result must be a RandomAccessFile
 #' @return An `InputStream` or a subclass of one.
 #' @keywords internal
+#' @importFrom utils download.file
 make_readable_file <- function(file, mmap = TRUE, random_access = TRUE) {
   if (inherits(file, "SubTreeFileSystem")) {
     filesystem <- file$base_fs