tests/testthat/indention_curly_brackets/multi_line_curly_while_for_if_fun-out.R

In krlmlr/styler: Non-Invasive Pretty Printing of R Code

a <- function(x, y, z) {
  while (2 + 2 > call(3, 1)) {
    if (isTRUE(x)) {
      b
    }
  }
  for (a in 1:19) {
    x[i] + 1
  }
}


if (
  require("logspline") &&
    require("rstanarm")
) {
  NULL
}