r - 有没有办法使用 RStudio 删除 R 脚本中的所有注释？

Question

有没有办法使用 RStudio 删除 R 脚本中的所有注释？

我需要将文件缩小到尽可能小的尺寸。然而，这个文件被大量评论。

如果我是对的，支持 REGEX 的 Rstudio 中的搜索和替换功能可能对这项工作有所帮助。

我很感激任何帮助。

Answer 1

我不会用正则表达式来处理这个任务。它可能有效，但仅限于简单的情况。考虑以下 /tmp/test.R脚本:

x <- 1 # a comment
y <- "#######"
z <- "# not a comment \" # not \"" # a # comment # here

f <- # a function
   function(n) {
for (i in seq_len(n))
print(i)} #...

如您所见，说明注释真正开始的位置有点复杂。

如果你不介意重新格式化你的代码(好吧，你说你想要尽可能小的代码)，请尝试以下操作:

writeLines(as.character(parse("/tmp/test.R")), "/tmp/out.R")

这将给 /tmp/out.R和:

x <- 1
y <- "#######"
z <- "# not a comment \" # not \""
f <- function(n) {
    for (i in seq_len(n)) print(i)
}

或者，使用来自 formatR 的函数包裹:

library(formatR)
tidy_source(source="/tmp/test.R", keep.comment=FALSE)
## x <- 1
## y <- "#######"
## z <- "# not a comment \" # not \""
## f <- function(n) {
##     for (i in seq_len(n)) print(i)
## } 

顺便说一句， tidy_source有一个 blank争论，这可能是你的兴趣。但我无法让它与 formatR 0.10 + R 3.0.2 一起使用...