testData/parser/r/ErrorIf.r

func1 <- function() {
    if
}

func2 <- function() {
    if(
}

func3 <- function() {
    if()
}

func4 <- function() {
    if(1)
}

func5 <- function() {
    if(1) 2
    else
}

func6 <- function() {
    if(1)
    else
}