allow for arbitrary indention characters

Author: lorenzwalthert

.pre-commit-config.yaml

@@ -4,11 +4,7 @@ default_stages: [commit]
 
 repos:
 -   repo: https://github.com/lorenzwalthert/precommit
-<<<<<<< HEAD
     rev: v0.2.2.9006
-=======
-    rev: v0.2.1.9002
->>>>>>> 319b36fd (more updates)
     hooks:
     -   id: style-files
         args: [--style_pkg=styler, --style_fun=tidyverse_style]

API

@@ -6,7 +6,7 @@ cache_activate(cache_name = NULL, verbose = !getOption("styler.quiet", FALSE))
 cache_clear(cache_name = NULL, ask = TRUE)
 cache_deactivate(verbose = !getOption("styler.quiet", FALSE))
 cache_info(cache_name = NULL, format = "both")
-create_style_guide(initialize = default_style_guide_attributes, line_break = NULL, space = NULL, token = NULL, indention = NULL, use_raw_indention = FALSE, reindention = tidyverse_reindention(), style_guide_name = NULL, style_guide_version = NULL, more_specs_style_guide = NULL, transformers_drop = specify_transformers_drop())
+create_style_guide(initialize = default_style_guide_attributes, line_break = NULL, space = NULL, token = NULL, indention = NULL, use_raw_indention = FALSE, reindention = tidyverse_reindention(), style_guide_name = NULL, style_guide_version = NULL, more_specs_style_guide = NULL, transformers_drop = specify_transformers_drop(), indent_character = " ")
 default_style_guide_attributes(pd_flat)
 specify_math_token_spacing(zero = "'^'", one = c("'+'", "'-'", "'*'", "'/'"))
 specify_reindention(regex_pattern = NULL, indention = 0, comments_only = TRUE)

NEWS.md

@@ -49,6 +49,8 @@
 * added guarantee that styled code is parsable (#892).
 * An error is now thrown on styling if input unicode characters can't be 
   correctly parsed for Windows and R < 4.2 (#883).
+* Developers can now create style guides with indention characters other than 
+  spaces (#916).
 * styling of text does not error anymore when the R option `OutDec` is set to 
   a non-default value (#912).
 * Fix argument name `filetype` in Example for `style_dir()` (#855).

R/serialize.R

@@ -2,15 +2,23 @@
 #'
 #' Collapses a flattened parse table into character vector representation.
 #' @inheritParams apply_stylerignore
+#' @param indent_character The character that is used for indention. We strongly
+#'   advise for using spaces as indention characters.
 #' @keywords internal
-serialize_parse_data_flattened <- function(flattened_pd) {
+serialize_parse_data_flattened <- function(flattened_pd, indent_character = "") {
   flattened_pd <- apply_stylerignore(flattened_pd)
   flattened_pd$lag_newlines[1] <- 0L # resolve start_line elsewhere
   with(
     flattened_pd,
     paste0(
       collapse = "",
-      map(lag_newlines, add_newlines), map(lag_spaces, add_spaces), text
+      map(lag_newlines, add_newlines),
+      map2(
+        ifelse(lag_newlines > 0, indent_character, " "),
+        lag_spaces,
+        rep_char
+      ),
+      text
     )
   )
 }

R/style-guides.R

@@ -71,6 +71,7 @@ tidyverse_style <- function(scope = "tokens",
                             math_token_spacing = tidyverse_math_token_spacing()) {
   args <- as.list(environment())
   scope <- scope_normalize(scope)
+  indent_character <- " "
 
 
   indention_manipulators <- if ("indention" %in% scope) {
@@ -240,7 +241,8 @@ tidyverse_style <- function(scope = "tokens",
     style_guide_name       =               style_guide_name,
     style_guide_version    =                 styler_version,
     more_specs_style_guide =                           args,
-    transformers_drop      =              transformers_drop
+    transformers_drop      =              transformers_drop,
+    indent_character       =               indent_character
   )
 }
 
@@ -289,6 +291,7 @@ tidyverse_style <- function(scope = "tokens",
 #'   introduced to improve speed. Listing transformers here that occur almost
 #'   always in code does not make sense because the process of excluding them
 #'   also takes some time.
+#' @inheritParams serialize_parse_data_flattened
 #' @examples
 #' set_line_break_before_curly_opening <- function(pd_flat) {
 #'   op <- pd_flat$token %in% "'{'"
@@ -318,7 +321,8 @@ create_style_guide <- function(initialize = default_style_guide_attributes,
                                style_guide_name = NULL,
                                style_guide_version = NULL,
                                more_specs_style_guide = NULL,
-                               transformers_drop = specify_transformers_drop()) {
+                               transformers_drop = specify_transformers_drop(),
+                               indent_character = " ") {
   list(
     # transformer functions
     initialize = list(initialize = initialize),
@@ -332,7 +336,8 @@ create_style_guide <- function(initialize = default_style_guide_attributes,
     style_guide_name = style_guide_name,
     style_guide_version = style_guide_version,
     more_specs_style_guide = more_specs_style_guide,
-    transformers_drop = transformers_drop
+    transformers_drop = transformers_drop,
+    indent_character = indent_character
   ) %>%
     map(compact)
 }

R/testing.R

@@ -171,6 +171,7 @@ style_empty <- function(text, base_indention = 0) {
     # transformer options
     use_raw_indention = FALSE,
     reindention       = specify_reindention(),
+    indent_character  = " ",
     NULL
   )
   transformed_text <- parse_transform_serialize_r(text,
@@ -192,6 +193,7 @@ style_op <- function(text, base_indention = 0) {
     # transformer options
     use_raw_indention = FALSE,
     reindention       = specify_reindention(),
+    indent_character  = " ",
     NULL
   )
 

R/transform-block.R

@@ -37,7 +37,10 @@ parse_transform_serialize_r_block <- function(pd_nested,
     is_on_newline <- flattened_pd$lag_newlines > 0
     is_on_newline[1] <- TRUE
     flattened_pd$lag_spaces[is_on_newline] <- flattened_pd$lag_spaces[is_on_newline] + base_indention
-    serialized_transformed_text <- serialize_parse_data_flattened(flattened_pd)
+    serialized_transformed_text <- serialize_parse_data_flattened(
+      flattened_pd,
+      indent_character = transformers$indent_character
+    )
   } else {
     serialized_transformed_text <- map2(
       c(0, find_blank_lines_to_next_expr(pd_nested)[-1] - 1L),

man/create_style_guide.Rd

@@ -0,0 +1,15 @@
+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)),
+      indent_character = "\t",
+      style_guide_name = "test",
+      style_guide_version = 1
+    )
+  }
+  expect_equal(
+    style_text("{\n1\n}", style = sg) %>%
+      as.character(),
+    c("{", "\t1", "}")
+  )
+})