算額あれこれ

算額問題をコンピュータで解きます

R 用の indent その2

formatR パッケージの tidy.souce 関数を使う。この方法では,コメントはちゃんと残る。

元のプログラム(encoding: utf-8

test<-function(x,y,z) {
n<-length(x) # 日本語のコメント
result<-numeric(n)
for (i in 1:n) {
result[i]<-(x[i]+y[i])*z[i]
}
return(result)
}

> library(formatR)
> tidy.source("testsource.R")
test <- function(x, y, z) {
    n <- length(x)  # 日本語のコメント
    result <- numeric(n)
    for (i in 1:n) {
        result[i] <- (x[i] + y[i]) * z[i]

    }
    return(result)
}

整形すべきプログラムをクリップボードにコピーして,tidy.source() とするのが最も簡単。

tidy.dir は,指定したディレクトリ中の全ての R ファイルを tidy.source を使って整形する

tidy.gui は,tidy.source を呼ぶ GUI システムを提供する