是否有任何工具（编辑器、脚本等）可以自动重新格式化 R 代码？它不需要是可定制的，但它必须能够识别由分号或换行符分隔的语句，因为此代码具有两者。如果它可以将所有语句放在单独的行上，一致地缩进代码块并一致地放置大括号，我会非常高兴。
编辑：总结发现
感谢您的精彩回答。这是我发现的。
- ESS 和 StatET 都是很棒的 R 编辑器，并且在自动缩进代码块方面做得很好。StatET 允许您一次全选并重新缩进文件中的所有内容。据我所知，ESS 允许您一次缩进整个函数 def，但不能缩进整个文件（如果我错过了，请纠正我）。这些都不会修复大括号的放置或打断多语句行。（例如：i = n*b；a=i+1）
- formatR 很棒。除了固定缩进之外，它还将一致地放置大括号并拆分多语句行。
这是我编写的一个小函数，以便我可以转换整个源目录（使用与 formatR 相同的底层函数，奇怪的是在动画包中）。
library("animation")
tidy.all <- function(inDir = NULL, outDir = NULL, ...) {
if (is.null(inDir) || is.na(outDir))
stop("inDir can't be null or NA")
if (!file.info(inDir)$isdir)
stop("inDir must be a directory")
if (is.null(outDir) || is.na(outDir))
stop("outDir can't be null or NA")
if (!file.exists(outDir))
dir.create(outDir)
if (!file.info(outDir)$isdir)
stop("outDir must be a directory")
for (f in dir(inDir)) {
currFile <- file.path(inDir, f)
if (length(grep(".*\\.R$", currFile, perl = T))) {
outFile <- file.path(outDir, f)
if (file.exists(outFile))
stop(paste("refusing to overwrite", outFile))
tidy.source(currFile, file = outFile, ...)
}
}
}