diff --git a/r/R/compute.R b/r/R/compute.R
index 5c27e206d7e..8cfaaf7b415 100644
--- a/r/R/compute.R
+++ b/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)
diff --git a/r/R/dataset.R b/r/R/dataset.R
index eb7cfaf4f44..072a0f3ae96 100644
--- a/r/R/dataset.R
+++ b/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
diff --git a/r/R/ipc_stream.R b/r/R/ipc_stream.R
index 1e101d84e3c..c45d1de6e33 100644
--- a/r/R/ipc_stream.R
+++ b/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()
diff --git a/r/man/list_compute_functions.Rd b/r/man/list_compute_functions.Rd
index 4ca0e518f13..45e0338368e 100644
--- a/r/man/list_compute_functions.Rd
+++ b/r/man/list_compute_functions.Rd
@@ -39,8 +39,7 @@ available inside \code{dplyr} verbs.
 }
 \examples{
 \dontshow{if (arrow_available()) (if (getRversion() >= "3.4") withAutoprint else force)(\{ # examplesIf}
-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)
 \dontshow{\}) # examplesIf}
 }
diff --git a/r/man/open_dataset.Rd b/r/man/open_dataset.Rd
index 53eade595be..59717863932 100644
--- a/r/man/open_dataset.Rd
+++ b/r/man/open_dataset.Rd
@@ -128,7 +128,7 @@ write_dataset(airquality, tf3, partitioning = c("Month", "Day"), hive_style = FA
 
 # 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
diff --git a/r/man/value_counts.Rd b/r/man/value_counts.Rd
index 6ef77cd4727..7e64d1550cf 100644
--- a/r/man/value_counts.Rd
+++ b/r/man/value_counts.Rd
@@ -19,6 +19,6 @@ This function tabulates the values in the array and returns a table of counts.
 \examples{
 \dontshow{if (arrow_available()) (if (getRversion() >= "3.4") withAutoprint else force)(\{ # examplesIf}
 cyl_vals <- Array$create(mtcars$cyl)
-value_counts(cyl_vals)
+counts <- value_counts(cyl_vals)
 \dontshow{\}) # examplesIf}
 }
diff --git a/r/man/write_to_raw.Rd b/r/man/write_to_raw.Rd
index 1f507e384c3..a3c6e324b54 100644
--- a/r/man/write_to_raw.Rd
+++ b/r/man/write_to_raw.Rd
@@ -23,7 +23,6 @@ access that buffer as a \code{raw} vector in R.
 \examples{
 \dontshow{if (arrow_available()) (if (getRversion() >= "3.4") withAutoprint else force)(\{ # examplesIf}
 # The default format is "stream"
-write_to_raw(mtcars)
-write_to_raw(mtcars, format = "file")
+mtcars_raw <- write_to_raw(mtcars)
 \dontshow{\}) # examplesIf}
 }