apache
diff --git a/‎r/R/array.R‎
Lines changed: 8 additions & 1 deletion b/‎r/R/array.R‎
Lines changed: 8 additions & 1 deletion
diff --git a/‎r/man/array.Rd‎
Lines changed: 14 additions & 0 deletions b/‎r/man/array.Rd‎
Lines changed: 14 additions & 0 deletions
diff --git a/‎r/man/record_batch.Rd‎
Lines changed: 14 additions & 0 deletions b/‎r/man/record_batch.Rd‎
Lines changed: 14 additions & 0 deletions
diff --git a/‎r/src/Makevars.in‎
Lines changed: 1 addition & 1 deletion b/‎r/src/Makevars.in‎
Lines changed: 1 addition & 1 deletion
@@ -81,12 +81,15 @@ MakeArray <- function(data){
   `arrow::Array`$new(data)
 }
 
+#' create an arrow::Array from an R vector
+#'
+#' @param \dots Vectors to coerce
+#'
 #' @export
 array <- function(...){
   `arrow::Array`$new(vctrs::vec_c(...))
 }
 
-
 `arrow::RecordBatch` <- R6Class("arrow::RecordBatch", inherit = `arrow::Object`,
   public = list(
     initialize = function(.data){
@@ -98,6 +101,10 @@ array <- function(...){
   )
 )
 
+#' Create an arrow::RecordBatch from a data frame
+#'
+#' @param data a data frame
+#'
 #' @export
 record_batch <- function(.data){
   `arrow::RecordBatch`$new(.data)
 
@@ -18,4 +18,4 @@
 PKG_CPPFLAGS=@cflags@
 PKG_CXXFLAGS=$(C_VISIBILITY)
 CXX_STD=CXX11
-PKG_LIBS=@libs@
+PKG_LIBS=@libs@  -Wl,-rpath,/usr/local/lib
Original file line number	Diff line number	Diff line change
`@@ -81,12 +81,15 @@ MakeArray <- function(data){`
`81`	`81`	`arrow::Array`$new(data)
`82`	`82`	`}`
`83`	`83`
	`84`	`+#' create an arrow::Array from an R vector`
	`85`	`+#'`
	`86`	`+#' @param \dots Vectors to coerce`
	`87`	`+#'`
`84`	`88`	`#' @export`
`85`	`89`	`array <- function(...){`
`86`	`90`	`arrow::Array`$new(vctrs::vec_c(...))
`87`	`91`	`}`
`88`	`92`
`89`		`-`
`90`	`93`	`arrow::RecordBatch` <- R6Class("arrow::RecordBatch", inherit = `arrow::Object`,
`91`	`94`	`public = list(`
`92`	`95`	`initialize = function(.data){`
`@@ -98,6 +101,10 @@ array <- function(...){`
`98`	`101`	`)`
`99`	`102`	`)`
`100`	`103`
	`104`	`+#' Create an arrow::RecordBatch from a data frame`
	`105`	`+#'`
	`106`	`+#' @param data a data frame`
	`107`	`+#'`
`101`	`108`	`#' @export`
`102`	`109`	`record_batch <- function(.data){`
`103`	`110`	`arrow::RecordBatch`$new(.data)