tilde is flattened out and causes indention like other operators

Author: lorenzwalthert

NEWS.md

@@ -32,6 +32,7 @@
 * rules that add tokens don't break stylerignore sequences anymore (#891).
 * Add vignette on distributing style guide (#846, #861).
 * Alignment detection respects stylerignore (#850).
+* `~` causes now indention, like `+`, `-`, `|` etc. (#902).
 * `Warning: Unknown or uninitialised column:` was fixed (#885).
 * Unaligned expressions with quoted key (e.g. `c("x" = 2)`) are now correctly
   detected (#881).

R/relevel.R

@@ -28,7 +28,7 @@ flatten_operators_one <- function(pd_nested) {
   pd_token_left <- c(special_token, "PIPE", math_token, "'$'")
   pd_token_right <- c(
     special_token, "PIPE", "LEFT_ASSIGN", if (parser_version_get() > 1) "EQ_ASSIGN",
-    "'+'", "'-'"
+    "'+'", "'-'", "'~'"
   )
   pd_nested %>%
     flatten_pd(pd_token_left, left = TRUE) %>%

R/rules-indention.R

@@ -38,7 +38,8 @@ indent_op <- function(pd,
                         "PIPE",
                         "LEFT_ASSIGN",
                         "EQ_ASSIGN",
-                        "'$'"
+                        "'$'",
+                        "'~'"
                       )) {
   indent_indices <- compute_indent_indices(pd, token)
   pd$indent[indent_indices] <- pd$indent[indent_indices] + indent_by

tests/testthat/indention_operators/tilde-in.R

@@ -0,0 +1,7 @@
+y ~
+x+
+y
+
+
+x ~
+  1 + (x|b)

tests/testthat/indention_operators/tilde-in_tree

@@ -0,0 +1,7 @@
+y ~
+  x +
+  y
+
+
+x ~
+  1 + (x | b)

tests/testthat/indention_operators/tilde-out.R

@@ -141,6 +141,14 @@ test_that("indents eq_formals correctly with various levels of scope", {
   ), NA)
 })
 
+test_that("tilde causes indention and is flattened out", {
+  expect_warning(test_collection("indention_operators",
+    "tilde",
+    transformer = style_text
+  ), NA)
+})
+
+
 test_that("overall", {
   expect_warning(test_collection("indention_operators",
     "overall",