tests/testthat/token_adding_removing/if_else_stylerignore-in.R

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

a =1
b=3
k = 9
h <- function() 1
s <- h
{
  if (TRUE) # styler: off
    3
  else
    5 # styler: off
}


{
  if (TRUE) { # styler: off
    3
    a + b
  }else
    5 # styler: off

  c()
}

# styler: off
{
  if (TRUE)
    3
  else {
    h()
    5 }
}
# styler: on

{
  if (TRUE) {
    3 # styler: off
  }else {
    s()
    5 }
}

if (TRUE) # styler: off
  1 else
    3

if (FALSE) # styler: off
  1 + a * ( 31/2) else
    3^k


if (TRUE)
  1+1 else # styler: off
    3

if (TRUE)
  1 + 1 else a +4

# styler: off
{if (TRUE)
  3
else
  5
}
# styler: on