tests/testthat/scope-character/scope_tokens-out.R

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

# adding line-break
if (x) {
  1 + 1 + +1
} else {
  3
}

# removing line-break
test_that("x", {
  my_test(call)
})


# do not replace assignment
a <- 3
data_frame(a = 3)

# do not resolve semicolon
a <- function(x) x + 1
b
c

# don't add brackets in pipes
a %>%
  b() %>%
  c()