From 13ffc86c6338271bbb579458a1fd61e724d2446f Mon Sep 17 00:00:00 2001 From: Neal Richardson Date: Wed, 28 Aug 2019 09:16:51 -0700 Subject: [PATCH] Make arrow::read_csv_arrow() work --- r/R/csv.R | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/r/R/csv.R b/r/R/csv.R index 202d5718aee..e64705e3bd6 100644 --- a/r/R/csv.R +++ b/r/R/csv.R @@ -161,7 +161,7 @@ read_csv_arrow <- function(file, mc <- match.call() mc$delim <- "," - mc[[1]] <- as.name("read_delim_arrow") + mc[[1]] <- get("read_delim_arrow", envir = asNamespace("arrow")) eval.parent(mc) } @@ -185,7 +185,7 @@ read_tsv_arrow <- function(file, mc <- match.call() mc$delim <- "\t" - mc[[1]] <- as.name("read_delim_arrow") + mc[[1]] <- get("read_delim_arrow", envir = asNamespace("arrow")) eval.parent(mc) }