All transformers are named

Author: krlmlr

R/testing.R

@@ -164,7 +164,9 @@ NULL
 style_empty <- function(text, base_indention = 0) {
   transformers <- list(
     # transformer functions
-    initialize = default_style_guide_attributes,
+    initialize        = list(
+      default_style_guide_attributes = default_style_guide_attributes
+    ),
     line_break        = NULL,
     space             = NULL,
     token             = NULL,
@@ -186,9 +188,13 @@ style_empty <- function(text, base_indention = 0) {
 style_op <- function(text, base_indention = 0) {
   transformers <- list(
     # transformer functions
-    initialize        = default_style_guide_attributes,
+    initialize        = list(
+      default_style_guide_attributes = default_style_guide_attributes
+    ),
     line_break        = NULL,
-    space             = partial(indent_op, indent_by = 2),
+    space             = list(
+      indent_op = partial(indent_op, indent_by = 2)
+    ),
     token             = NULL,
     # transformer options
     use_raw_indention = FALSE,

R/transform-files.R

@@ -329,8 +329,9 @@ apply_transformers <- function(pd_nested, transformers) {
   transformed_updated_multi_line <- post_visit(
     pd_nested,
     c(
-      transformers$initialize, transformers$line_break, set_multi_line,
-      if (length(transformers$line_break) != 0) update_newlines
+      transformers$initialize, transformers$line_break,
+      set_multi_line = set_multi_line,
+      update_newlines = if (length(transformers$line_break) != 0) update_newlines
     )
   )
 

R/visit.R

@@ -106,6 +106,8 @@ post_visit_one <- function(pd_nested, fun) {
 #' @family visitors
 #' @keywords internal
 visit_one <- function(pd_flat, funs) {
+  stopifnot(!is.null(names(funs)))
+  stopifnot(all(names(funs) != ""))
   for (f in funs) {
     pd_flat <- f(pd_flat)
   }

tests/testthat/test-indent-character.R

@@ -1,7 +1,9 @@
 test_that("indention character can be arbitrary", {
   sg <- function(indent_by = 1) {
     create_style_guide(
-      indention = list(purrr::partial(indent_braces, indent_by = indent_by)),
+      indention = list(
+        indent_braces = purrr::partial(indent_braces, indent_by = indent_by)
+      ),
       indent_character = "\t",
       style_guide_name = "test",
       style_guide_version = 1