Question

Is there any suitable program to fix the indents of a R script already written?

For example if it is fed an script like this:

foo = function(x) {
a = 1
    print(a)
 }

It converts it to:

foo = function(x) {
    a = 1
    print(a)
}

Or better?

Answer 1

Yes, use Yihui’s formatR package.

Demo with before and after:

R> system("cat /tmp/fex.R")
foo = function(x) {
a = 1
    print(a)
 }
R>
R> library(formatR)
R> tidy.source("/tmp/fex.R",replace.assign=TRUE)
foo <- function(x) {
    a <- 1
    print(a)
} 
R> 

You can of course redirect to a new file using tidy.source(..., file="NewFile.R")