diff options
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/indent/r/comment.R | 2 | ||||
| -rw-r--r-- | tests/indent/r/cond.R | 12 | ||||
| -rw-r--r-- | tests/indent/r/func.R | 12 | ||||
| -rw-r--r-- | tests/indent/r/loop.R | 17 | ||||
| -rw-r--r-- | tests/indent/r/pipe.R | 7 |
5 files changed, 50 insertions, 0 deletions
diff --git a/tests/indent/r/comment.R b/tests/indent/r/comment.R new file mode 100644 index 00000000..4396e178 --- /dev/null +++ b/tests/indent/r/comment.R @@ -0,0 +1,2 @@ +# some +# comment diff --git a/tests/indent/r/cond.R b/tests/indent/r/cond.R new file mode 100644 index 00000000..86519291 --- /dev/null +++ b/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 +} diff --git a/tests/indent/r/func.R b/tests/indent/r/func.R new file mode 100644 index 00000000..bc184dfb --- /dev/null +++ b/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 + ) + ) +} diff --git a/tests/indent/r/loop.R b/tests/indent/r/loop.R new file mode 100644 index 00000000..610bf6a7 --- /dev/null +++ b/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 + } +} diff --git a/tests/indent/r/pipe.R b/tests/indent/r/pipe.R new file mode 100644 index 00000000..2eef8421 --- /dev/null +++ b/tests/indent/r/pipe.R @@ -0,0 +1,7 @@ +mtcars |> + head( + n = 6L + ) |> + subset( + cyl > 3 + ) |
