indents(r): add tests

tests/indent/r/comment.R

@@ -0,0 +1,2 @@
+# some
+# comment

tests/indent/r/cond.R

@@ -0,0 +1,12 @@
+x <- 10
+
+if (x > 3) {
+  x <- 3
+} else if (x < 3) {
+  x <- -3
+} else {
+  if (x > 0) {
+    x <- 1
+  }
+  x <- 0
+}

tests/indent/r/func.R

@@ -0,0 +1,12 @@
+foo <- function(x) {
+  bar <- function(a, b, c) {
+    return(a + b + c)
+  }
+  return(
+    bar(
+      x,
+      1,
+      2
+    )
+  )
+}

tests/indent/r/loop.R

@@ -0,0 +1,17 @@
+x <- 1
+
+while (x < 10) {
+  x <- x + 1
+  break
+}
+
+for (i in 1:3) {
+  x <- x + 1
+}
+
+repeat {
+  x <- x + 1
+  if (x > 100) {
+    break
+  }
+}

tests/indent/r/pipe.R

@@ -0,0 +1,7 @@
+mtcars |>
+  head(
+    n = 6L
+  ) |>
+  subset(
+    cyl > 3
+  )