先前介绍了包datapasta，可以很好的简化数据框的一些复制粘贴的格式操作：

07. R 代码的收纳工—datapasta

写完后才发现，原来现在Rstudio 也已经提供了相关的操作了：

看来它们也不甘落后呀。

但是formatR 的批量处理还是挺香的。

formatR

今天介绍一个神器——formatR 包。

参见：https://blog.csdn.net/weixin_41929524/article/details/108998848

比如我复制来的一串代码：

function( bioPackage ){
if(!bioPackage %in% rownames(installed.packages())){
CRANpackages <- available.packages()
if(bioPackage %in% rownames(CRANpackages)){
 install.packages( bioPackage)
}else{
 BiocManager::install(bioPackage,suppressUpdates=F,ask=F)
}
}
}
x = 1:10

如果希望将文中赋值的等号替换为 <- ，可以添加参数arrow 为T，下面的代码表示将原本的代码输出为新文件 my_format:

> tidy_source(source = "04-R-oop.R", arrow = T, file = "my_format.R")
p_load(pryr, formatR, shiny)
x <- 1
class(x)
attr(x, "class") <- "random"
x
class(x)
function(bioPackage) {
    if (!bioPackage %in% rownames(installed.packages())) {
        CRANpackages <- available.packages()
        if (bioPackage %in% rownames(CRANpackages)) {
            install.packages(bioPackage)
        } else {
            BiocManager::install(bioPackage, suppressUpdates = F, ask = F)
        }
    }
}
x <- 1:10

有如下参数：

其他操作还有tidy.dir 可以批量对目录下的所有R 脚本进行格式化。

可视化实现格式化

借助于shiny ：

library(shiny)
tidy_app()

相当于把参数替换为了选项，可以直接在底部的框框内输入希望替换的代码。