ARROW-5505: [R] namespace cleanup

r/.Rbuildignore

@@ -14,3 +14,4 @@ clang_format.sh
 ^_pkgdown\.yml$
 ^docs$
 ^pkgdown$
+^.*\.orig$

r/DESCRIPTION

@@ -29,20 +29,20 @@ Imports:
     assertthat,
     glue,
     R6,
-    vctrs (>= 0.1.0),
     fs,
     tibble,
-    crayon,
     bit64
 Roxygen: list(markdown = TRUE)
 RoxygenNote: 6.1.1
 Suggests:
     covr,
+    crayon,
     pkgdown,
     rmarkdown,
     roxygen2,
     testthat,
     lubridate,
+    vctrs (>= 0.1.0),
     hms
 Collate:
     'enums.R'

r/NAMESPACE

@@ -107,7 +107,8 @@ export(RecordBatchStreamWriter)
 export(StatusCode)
 export(TimeUnit)
 export(Type)
-export(array)
+export(arrow_array)
+export(arrow_table)
 export(arrow_available)
 export(as_tibble)
 export(boolean)
@@ -147,7 +148,6 @@ export(read_table)
 export(record_batch)
 export(schema)
 export(struct)
-export(table)
 export(time32)
 export(time64)
 export(timestamp)
@@ -173,6 +173,6 @@ importFrom(rlang,"%||%")
 importFrom(rlang,abort)
 importFrom(rlang,dots_n)
 importFrom(rlang,list2)
-importFrom(rlang,warn)
 importFrom(tibble,as_tibble)
+importFrom(tibble,lst)
 useDynLib(arrow, .registration = TRUE)

r/R/ArrayData.R

@@ -26,7 +26,7 @@
 #' @section Usage:
 #'
 #' ```
-#' data <- array(x)$data()
+#' data <- arrow_array(x)$data()
 #'
 #' data$type()
 #' data$length()

r/R/R6.R

@@ -32,7 +32,12 @@
       self$`.:xp:.` <- xp
     },
     print = function(...){
-      cat(crayon::silver(glue::glue("{cl}", cl = class(self)[[1]])), "\n")
+      msg <- glue("{cl}", cl = class(self)[[1]])
+      if ("crayon" %in% rownames(installed.packages())) {
+        # Colorize it
+        msg <- crayon::silver(msg)
+      }
+      cat(msg, "\n")
       if(!is.null(self$ToString)){
         cat(self$ToString(), "\n")
       }

r/R/Table.R

@@ -51,16 +51,17 @@
   )
 )
 
-#' Create an arrow::Table from a data frame
+#' Create an `arrow::Table` from a data frame
 #'
 #' @param ... arrays, chunked arrays, or R vectors
 #' @param schema a schema. The default (`NULL`) infers the schema from the `...`
 #'
-#' @return an arrow::Table
+#' @return an `arrow::Table`
 #'
 #' @export
-table <- function(..., schema = NULL){
-  dots <- tibble::lst(...)
+#' @importFrom tibble lst
+arrow_table <- function(..., schema = NULL){
+  dots <- lst(...)
   stopifnot(length(dots) > 0)
   shared_ptr(`arrow::Table`, Table__from_dots(dots, schema))
 }

r/R/array.R

@@ -28,7 +28,7 @@
 #' @section Usage:
 #'
 #' ```
-#' a <- array(x)
+#' a <- arrow_array(x)
 #'
 #' a$IsNull(i)
 #' a$IsValid(i)
@@ -120,11 +120,12 @@
 #' create an [arrow::Array][arrow__Array] from an R vector
 #'
 #' @param x R object
-#' @param type Explicit [type][arrow__DataType], or NULL (the default) to infer from the data
+#' @param type Explicit [type][arrow__DataType], or NULL (the default) to infer
+#' from the data
+#' @return An Arrow array R6 object
 #'
-#' @importFrom rlang warn
 #' @export
-array <- function(x, type = NULL){
+arrow_array <- function(x, type = NULL){
   `arrow::Array`$dispatch(Array__from_vector(x, type))
 }
 
@@ -134,4 +135,3 @@ array <- function(x, type = NULL){
     dictionary = function() `arrow::Array`$dispatch(DictionaryArray__dictionary(self))
   )
 )
-

r/R/write_arrow.R

@@ -24,7 +24,7 @@ to_arrow <- function(x) {
 
 # splice the data frame as arguments of table()
 # see ?rlang::list2()
-`to_arrow.data.frame` <- function(x) table(!!!x)
+`to_arrow.data.frame` <- function(x) arrow_table(!!!x)
 
 #' serialize an [arrow::Table][arrow__Table], an [arrow::RecordBatch][arrow__RecordBatch], or a
 #'   data frame to either the streaming format or the binary file format

r/data-raw/codegen.R

@@ -72,7 +72,7 @@ cpp_functions_definitions <- decorations %>%
   select(name, return_type, args, file, line) %>%
   pmap_chr(function(name, return_type, args, file, line){
     glue::glue('
-    // {basename(file)}:{line}
+    // {basename(file)}
     #if defined(ARROW_R_WITH_ARROW)
     {return_type} {name}({real_params});
     RcppExport SEXP _arrow_{name}({sexp_params}){{