rename to default_style_guide_attributes

Author: lorenzwalthert

API

@@ -2,8 +2,8 @@
 
 ## Exported functions
 
-create_style_guide(initialize = initialize_default_attributes, line_break = NULL, space = NULL, token = NULL, indention = NULL, use_raw_indention = FALSE, reindention = tidyverse_reindention())
-initialize_default_attributes(pd_flat)
+create_style_guide(initialize = default_style_guide_attributes, line_break = NULL, space = NULL, token = NULL, indention = NULL, use_raw_indention = FALSE, reindention = tidyverse_reindention())
+default_style_guide_attributes(pd_flat)
 specify_math_token_spacing(zero = NULL, one = c("'+'", "'-'", "'*'", "'/'", "'^'"))
 specify_reindention(regex_pattern = NULL, indention = 0, comments_only = TRUE)
 style_dir(path = ".", ..., style = tidyverse_style, transformers = style(...), filetype = "R", recursive = TRUE, exclude_files = NULL)

NAMESPACE

@@ -2,7 +2,7 @@
 
 S3method(print,vertical)
 export(create_style_guide)
-export(initialize_default_attributes)
+export(default_style_guide_attributes)
 export(specify_math_token_spacing)
 export(specify_reindention)
 export(style_dir)

R/indent.R

@@ -1,7 +1,7 @@
 #' Update indention information of parse data
 #'
 #' @param pd A nested or flat parse table that is already enhanced with
-#'   line break and space information via [initialize_default_attributes()].
+#'   line break and space information via [default_style_guide_attributes()].
 #' @param indent_by How many spaces should be added after the token of interest.
 #' @param token The token the indention should be based on.
 #' @name update_indention

R/initialize.R

@@ -7,9 +7,9 @@
 #' @examples
 #' string_to_format <- "call( 3)"
 #' pd <- styler:::compute_parse_data_nested(string_to_format)
-#' styler:::pre_visit(pd, c(initialize_default_attributes))
+#' styler:::pre_visit(pd, c(default_style_guide_attributes))
 #' @export
-initialize_default_attributes <- function(pd_flat) {
+default_style_guide_attributes <- function(pd_flat) {
 
   init_pd <-
     initialize_newlines(pd_flat) %>%

R/nested_to_tree.R

@@ -7,7 +7,7 @@
 #' @importFrom purrr when
 create_tree <- function(text, structure_only = FALSE) {
   compute_parse_data_nested(text) %>%
-    pre_visit(c(initialize_default_attributes)) %>%
+    pre_visit(c(default_style_guide_attributes)) %>%
     create_node_from_nested_root(structure_only) %>%
     as.data.frame()
 }
@@ -25,7 +25,7 @@ create_tree <- function(text, structure_only = FALSE) {
 #' if (getRversion() >= 3.2) {
 #' code <- "a <- function(x) { if(x > 1) { 1+1 } else {x} }"
 #' nested_pd <- styler:::compute_parse_data_nested(code)
-#' initialized <- styler:::pre_visit(nested_pd, c(initialize_default_attributes))
+#' initialized <- styler:::pre_visit(nested_pd, c(default_style_guide_attributes))
 #' styler:::create_node_from_nested_root(initialized, structure_only = FALSE)
 #' }
 create_node_from_nested_root <- function(pd_nested, structure_only) {

R/serialized_tests.R

@@ -144,7 +144,7 @@ NULL
 style_empty <- function(text) {
   transformers <- list(
     # transformer functions
-    initialize = initialize_default_attributes,
+    initialize = default_style_guide_attributes,
     line_break = NULL,
     space      = NULL,
     token      = NULL,
@@ -163,7 +163,7 @@ style_op <- function(text) {
 
   transformers <- list(
     # transformer functions
-    initialize = initialize_default_attributes,
+    initialize = default_style_guide_attributes,
     line_break = NULL,
     space      = partial(indent_op, indent_by = 2),
     token      = NULL,

R/style_guides.R

@@ -136,7 +136,7 @@ tidyverse_style <- function(scope = "tokens",
 
   create_style_guide(
     # transformer functions
-    initialize        = initialize_default_attributes,
+    initialize        = default_style_guide_attributes,
     line_break        = line_break_manipulators,
     space             = space_manipulators,
     token             = token_manipulators,
@@ -177,7 +177,7 @@ tidyverse_style <- function(scope = "tokens",
 #' }
 #' style_text("a <- function(x) { x }", style = set_line_break_before_curly_opening_style)
 #' @export
-create_style_guide <- function(initialize = initialize_default_attributes,
+create_style_guide <- function(initialize = default_style_guide_attributes,
                                line_break = NULL,
                                space = NULL,
                                token = NULL,

man/create_style_guide.Rd

@@ -73,12 +73,12 @@ table"):
 ```{r}
 string_to_format <- "call( 3)"
 pd <- styler:::compute_parse_data_nested(string_to_format) %>%
-  styler:::pre_visit(c(initialize_default_attributes))
+  styler:::pre_visit(c(default_style_guide_attributes))
 pd$child[[1]] %>%
   select(token, terminal, text, newlines, spaces)
 ```
 
-`initialize_default_attributes()` is called to initialize some variables, it does not actually
+`default_style_guide_attributes()` is called to initialize some variables, it does not actually
 transform the parse table.
 
 All the function `remove_space_after_opening_paren()` now does is to look for
@@ -155,7 +155,7 @@ respectively, so we need both.
 The sequence in which styler applies rules on each level of nesting is given in 
 the list below:
 
-* call `initialize_default_attributes()` to initialize some variables.
+* call `default_style_guide_attributes()` to initialize some variables.
 * modify the line breaks (modifying `lag_newlines` only based on 
   `token`, `token_before`, `token_after` and `text`).
 * modify the spaces (modifying `spaces` only based on `lag_newlines`,