From f84f1e16021a43461a38112029e377a99efa1970 Mon Sep 17 00:00:00 2001
From: Javier Luraschi <javierluraschi@hotmail.com>
Date: Mon, 29 Oct 2018 22:08:00 -0700
Subject: [PATCH] ARROW-3647: [R] Fix R bit64 crash and formatting

---
 r/DESCRIPTION         |  1 +
 r/NAMESPACE           |  4 ++++
 r/R/reexports-bit64.R | 24 ++++++++++++++++++++++++
 r/man/reexports.Rd    |  6 +++++-
 4 files changed, 34 insertions(+), 1 deletion(-)
 create mode 100644 r/R/reexports-bit64.R

diff --git a/r/DESCRIPTION b/r/DESCRIPTION
index 1ab47ccef9d..8284f01efe2 100644
--- a/r/DESCRIPTION
+++ b/r/DESCRIPTION
@@ -57,5 +57,6 @@ Collate:
     'io.R'
     'memory_pool.R'
     'on_exit.R'
+    'reexports-bit64.R'
     'reexports-tibble.R'
     'zzz.R'
diff --git a/r/NAMESPACE b/r/NAMESPACE
index b9967a37474..0f301b92bcb 100644
--- a/r/NAMESPACE
+++ b/r/NAMESPACE
@@ -81,6 +81,7 @@ export(mmap_create)
 export(mmap_open)
 export(mock_output_stream)
 export(null)
+export(print.integer64)
 export(read_arrow)
 export(read_record_batch)
 export(read_table)
@@ -90,6 +91,7 @@ export(record_batch_file_writer)
 export(record_batch_stream_reader)
 export(record_batch_stream_writer)
 export(schema)
+export(str.integer64)
 export(struct)
 export(table)
 export(time32)
@@ -106,6 +108,8 @@ export(write_table)
 importFrom(R6,R6Class)
 importFrom(Rcpp,sourceCpp)
 importFrom(assertthat,assert_that)
+importFrom(bit64,print.integer64)
+importFrom(bit64,str.integer64)
 importFrom(glue,glue)
 importFrom(purrr,map)
 importFrom(purrr,map2)
diff --git a/r/R/reexports-bit64.R b/r/R/reexports-bit64.R
new file mode 100644
index 00000000000..90a6e458be0
--- /dev/null
+++ b/r/R/reexports-bit64.R
@@ -0,0 +1,24 @@
+# Licensed to the Apache Software Foundation (ASF) under one
+# or more contributor license agreements.  See the NOTICE file
+# distributed with this work for additional information
+# regarding copyright ownership.  The ASF licenses this file
+# to you under the Apache License, Version 2.0 (the
+# "License"); you may not use this file except in compliance
+# with the License.  You may obtain a copy of the License at
+#
+#   http://www.apache.org/licenses/LICENSE-2.0
+#
+# Unless required by applicable law or agreed to in writing,
+# software distributed under the License is distributed on an
+# "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
+# KIND, either express or implied.  See the License for the
+# specific language governing permissions and limitations
+# under the License.
+
+#' @importFrom bit64 print.integer64
+#' @export
+bit64::print.integer64
+
+#' @importFrom bit64 str.integer64
+#' @export
+bit64::str.integer64
diff --git a/r/man/reexports.Rd b/r/man/reexports.Rd
index 5171b3eb555..66194feadbf 100644
--- a/r/man/reexports.Rd
+++ b/r/man/reexports.Rd
@@ -1,8 +1,10 @@
 % Generated by roxygen2: do not edit by hand
-% Please edit documentation in R/reexports-tibble.R
+% Please edit documentation in R/reexports-bit64.R, R/reexports-tibble.R
 \docType{import}
 \name{reexports}
 \alias{reexports}
+\alias{print.integer64}
+\alias{str.integer64}
 \alias{as_tibble}
 \title{Objects exported from other packages}
 \keyword{internal}
@@ -11,6 +13,8 @@ These objects are imported from other packages. Follow the links
 below to see their documentation.
 
 \describe{
+  \item{bit64}{\code{\link[bit64]{print.integer64}}, \code{\link[bit64]{str.integer64}}}
+
   \item{tibble}{\code{\link[tibble]{as_tibble}}}
 }}