From 83b51621adc0a1813b5536031cb9297f763e5430 Mon Sep 17 00:00:00 2001
From: Romain Francois <romain@purrple.cat>
Date: Tue, 4 Dec 2018 21:25:05 +0100
Subject: [PATCH] s/file_open/ReadableFile/

---
 r/NAMESPACE                        | 2 --
 r/R/csv.R                          | 2 +-
 r/tests/testthat/test-arrow-csv-.R | 2 +-
 3 files changed, 2 insertions(+), 4 deletions(-)

diff --git a/r/NAMESPACE b/r/NAMESPACE
index dd62a545d4ce5..ef0485f5f7881 100644
--- a/r/NAMESPACE
+++ b/r/NAMESPACE
@@ -39,8 +39,6 @@ S3method(buffer,default)
 S3method(buffer,integer)
 S3method(buffer,numeric)
 S3method(buffer,raw)
-S3method(buffer_reader,"arrow::Buffer")
-S3method(buffer_reader,default)
 S3method(csv_table_reader,"arrow::csv::TableReader")
 S3method(csv_table_reader,"arrow::io::InputStream")
 S3method(csv_table_reader,character)
diff --git a/r/R/csv.R b/r/R/csv.R
index 9c312feaf9858..87343a6070ab1 100644
--- a/r/R/csv.R
+++ b/r/R/csv.R
@@ -140,7 +140,7 @@ csv_table_reader.default <- function(file,
   convert_options = csv_convert_options(),
   ...
 ){
-  csv_table_reader(file_open(file),
+  csv_table_reader(ReadableFile(file),
     read_options = read_options,
     parse_options = parse_options,
     convert_options = convert_options,
diff --git a/r/tests/testthat/test-arrow-csv-.R b/r/tests/testthat/test-arrow-csv-.R
index 9cf08401a1b1d..ba210985afb7e 100644
--- a/r/tests/testthat/test-arrow-csv-.R
+++ b/r/tests/testthat/test-arrow-csv-.R
@@ -23,7 +23,7 @@ test_that("Can read csv file", {
 
   tab1 <- csv_read(tf)
   tab2 <- csv_read(mmap_open(tf))
-  tab3 <- csv_read(file_open(tf))
+  tab3 <- csv_read(ReadableFile(tf))
 
   iris$Species <- as.character(iris$Species)
   tab0 <- table(iris)