先前介绍了包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()
相当于把参数替换为了选项,可以直接在底部的框框内输入希望替换的代码。