pre-commit

R/testing.R

@@ -164,16 +164,16 @@ NULL
 style_empty <- function(text, base_indention = 0) {
   transformers <- list(
     # transformer functions
-    initialize        = list(
+    initialize = list(
       default_style_guide_attributes = default_style_guide_attributes
     ),
-    line_break        = NULL,
-    space             = NULL,
-    token             = NULL,
+    line_break = NULL,
+    space = NULL,
+    token = NULL,
     # transformer options
     use_raw_indention = FALSE,
-    reindention       = specify_reindention(),
-    indent_character  = " ",
+    reindention = specify_reindention(),
+    indent_character = " ",
     NULL
   )
   transformed_text <- parse_transform_serialize_r(text,
@@ -188,18 +188,18 @@ style_empty <- function(text, base_indention = 0) {
 style_op <- function(text, base_indention = 0) {
   transformers <- list(
     # transformer functions
-    initialize        = list(
+    initialize = list(
       default_style_guide_attributes = default_style_guide_attributes
     ),
-    line_break        = NULL,
-    space             = list(
+    line_break = NULL,
+    space = list(
       indent_op = partial(indent_op, indent_by = 2)
     ),
-    token             = NULL,
+    token = NULL,
     # transformer options
     use_raw_indention = FALSE,
-    reindention       = specify_reindention(),
-    indent_character  = " ",
+    reindention = specify_reindention(),
+    indent_character = " ",
     NULL
   )
 

R/visit.R

@@ -109,7 +109,7 @@ make_visit_one <- function(funs) {
   body <- rlang::call2("{", !!!all_calls)
 
   env <- rlang::as_environment(funs, rlang::base_env())
-  rlang::new_function(rlang::pairlist2(pd_flat =), body, env)
+  rlang::new_function(rlang::pairlist2(pd_flat = ), body, env)
 }
 
 #' Propagate context to terminals