MINOR: [R] Fix style warnings

Closes #11030 from nealrichardson/fix-style

Authored-by: Neal Richardson <neal.p.richardson@gmail.com>
Signed-off-by: Antoine Pitrou <antoine@python.org>

r/R/dataset-write.R

@@ -69,17 +69,17 @@
 #' list.files(two_levels_tree, recursive = TRUE)
 #'
 #' # In the two previous examples we would have:
-#' # X = \{4,6,8\}, the number of cylinders.
-#' # Y = \{3,4,5\}, the number of forward gears.
-#' # Z = \{0,1,2\}, the number of saved parts, starting from 0.
+#' # X = {4,6,8}, the number of cylinders.
+#' # Y = {3,4,5}, the number of forward gears.
+#' # Z = {0,1,2}, the number of saved parts, starting from 0.
 #'
 #' # You can obtain the same result as as the previous examples using arrow with
 #' # a dplyr pipeline. This will be the same as two_levels_tree above, but the
 #' # output directory will be different.
 #' two_levels_tree_2 <- tempfile()
 #' mtcars %>%
-#'  group_by(cyl, gear) %>%
-#'  write_dataset(two_levels_tree_2)
+#'   group_by(cyl, gear) %>%
+#'   write_dataset(two_levels_tree_2)
 #' list.files(two_levels_tree_2, recursive = TRUE)
 #'
 #' # And you can also turn off the Hive-style directory naming where the column

r/tests/testthat/test-dplyr-aggregate.R

@@ -101,7 +101,7 @@ test_that("Group by mean on dataset", {
       collect(),
     tbl
   )
-  
+
   expect_dplyr_equal(
     input %>%
       group_by(some_grouping) %>%
@@ -121,7 +121,7 @@ test_that("Group by sd on dataset", {
       collect(),
     tbl
   )
-  
+
   skip("ARROW-13691 - na.rm not yet implemented for VarianceOptions")
   expect_dplyr_equal(
     input %>%
@@ -142,7 +142,7 @@ test_that("Group by var on dataset", {
       collect(),
     tbl
   )
-  
+
   skip("ARROW-13691 - na.rm not yet implemented for VarianceOptions")
   expect_dplyr_equal(
     input %>%

r/tools/nixlibs.R

@@ -517,4 +517,3 @@ if (!file.exists(paste0(dst_dir, "/include/arrow/api.h"))) {
     cat("*** Proceeding without C++ dependencies\n")
   }
 }
-