ARROW-13519: [R] Make doc examples less noisy

r/R/compute.R

@@ -89,9 +89,8 @@ call_function <- function(function_name, ..., args = list(...), options = empty_
 #' @param ... Additional parameters passed to `grep()`
 #' @return A character vector of available Arrow C++ function names
 #' @examplesIf arrow_available()
-#' list_compute_functions()
-#' list_compute_functions(pattern = "^UTF8", ignore.case = TRUE)
-#' list_compute_functions(pattern = "^is", invert = TRUE)
+#' available_funcs <- list_compute_functions()
+#' utf8_funcs <- list_compute_functions(pattern = "^UTF8", ignore.case = TRUE)
 #' @export
 list_compute_functions <- function(pattern = NULL, ...) {
   funcs <- compute__GetFunctionNames()
@@ -284,7 +283,7 @@ is_in <- function(x, table, ...) {
 #' `Int64`.
 #' @examplesIf arrow_available()
 #' cyl_vals <- Array$create(mtcars$cyl)
-#' value_counts(cyl_vals)
+#' counts <- value_counts(cyl_vals)
 #' @export
 value_counts <- function(x) {
   call_function("value_counts", x)

r/R/dataset.R

@@ -118,7 +118,7 @@
 #'
 #' # View files - you can see the partitioning means that files have been written
 #' # to folders based on Month/Day values
-#' list.files(tf3, recursive = TRUE)
+#' tf3_files <- list.files(tf3, recursive = TRUE)
 #'
 #' # With no partitioning specified, dataset contains all files but doesn't include
 #' # directory names as field names

r/R/ipc_stream.R

@@ -68,8 +68,7 @@ write_ipc_stream <- function(x, sink, ...) {
 #' @return A `raw` vector containing the bytes of the IPC serialized data.
 #' @examplesIf arrow_available()
 #' # The default format is "stream"
-#' write_to_raw(mtcars)
-#' write_to_raw(mtcars, format = "file")
+#' mtcars_raw <- write_to_raw(mtcars)
 #' @export
 write_to_raw <- function(x, format = c("stream", "file")) {
   sink <- BufferOutputStream$create()