[R] Need to have more control on cat()

[Christofer Bogaso]

Hi all, here is my small piece of codes:

fn1 <- function(x = 4) {
    y <- 0
    if(y == 0) cat("y value
                    is zero\n") # I intentionally created 2nd line here
    return(4)
}

If I run this function I get following

> fn1()
y value
                    is zero
[1] 4

Here you see there are lot of spaces before "is zero". How can I
format cat() to force it to start from margin?

Thanks