testData/parser/r/CorrectNewLines.r

(10
* 15)

foo <- function(arg =
                10) {
  arg
}

(foo
    (10,
     20))

if(1
 + 2) 3

for (x in 1
          :10) 20

while(1
      + 3)  break