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)
 }