我（有点）已经知道这个问题的答案。但我认为这是R用户列表经常问到的问题之一，因此应该有一个完整且好的答案。据我所知，在R中没有多行注释功能。那么，是否有任何好的解决方法？
虽然在R中进行许多工作通常涉及交互式会话（这引起了对多行注释的需求的疑问），但有时我不得不向同事和同学发送脚本，其中包括许多非平凡的代码块。对于来自其他语言的人来说，这是一个相当自然的问题。
过去我使用引号。由于字符串支持换行符，在R脚本中运行：
"
Here's my multiline comment.
"
a <- 10
rocknroll.lm <- lm(blah blah blah)
...
这个方案很好，有没有更好的解决方案呢？
大多数编辑器都有一些快捷方式来注释掉代码块。 默认编辑器使用类似于 command 或 control 和单引号的方式来注释选定的代码行。在 RStudio 中，使用的是Command或 Control + /。请检查你的编辑器。
仍然是逐行注释，但它们也可以取消选定的行。对于 Mac RGUI，它是 command-option'（我想象 Windows 是 control option）。对于 Rstudio，只需再次使用Command或Control+Shift+C即可。
随着编辑器更新和不同软件成为最受欢迎的 R 编辑器，这些快捷键可能会随时间而变化。你需要查找你所使用的软件的相关信息。
C-x r t，然后输入你想添加的字符（例如"##"）。要缩进代码块以适用于SO，请执行相同的操作，但将最后三个字符替换为四个空格！ - Josh O'BrienM-x comment-region。不知道C-x r，谢谢！ - Sacha Epskamp一种类似块注释的方法使用了if语句：
if(FALSE) {
all your code
}
虽然这个方法有效，但我几乎总是使用我的编辑器的块注释选项（比如 RStudio、Kate 和 Kwrite）。
这个问题在邮件列表上经常出现，例如最近在r-help上的线程。通常一致的答案是：考虑到该语言没有直接支持，您必须要么：
if (FALSE) 结构，但请注意它仍然需要完全解析，并且必须是语法正确的。#'来创建自动扩展的注释部分（当你从这样一行返回到新行或在这样的部分中插入新行时，它会自动变成注释）。#' - bluenote10将其包装在一个未使用的函数中：
.f = function() {
## unwanted code here:
}
# An empty function for Comments
Comment <- function(`@Comments`) {invisible()}
#### Comments ####
Comment( `
# Put anything in here except back-ticks.
api_idea <- function() {
return TRUE
}
# Just to show api_idea isn't really there...
print( api_idea )
`)
####
#### Code. ####
foo <- function() {
print( "The above did not evaluate!")
}
foo()
[Translated Answer]
这里有另一种方法...请查看底部的图片。将代码块复制并粘贴到RStudio中。
使用IDE更加有效的多行注释是“好事”，大多数IDE或简单编辑器都没有突出显示简单注释块内的文本；虽然有些作者花费了时间确保在here-strings中进行解析。对于R，我们没有多行注释或here-strings，但在RStudio中使用不可见表达式可以获得所有这些好处。
只要所需部分中没有反引号用于多行注释、here-strings或非执行注释块，则这可能是值得一试的东西。
#### Intro Notes & Comments ####
invisible( expression( `
{ <= put the brace here to reset the auto indenting...
Base <- function()
{ <^~~~~~~~~~~~~~~~ Use the function as a header and nesting marker for the comments
that show up in the jump-menu.
--->8---
}
External <- function()
{
If we used a function similar to:
api_idea <- function() {
some_api_example <- function( nested ) {
stopifnot( some required check here )
}
print("Cut and paste this into RStudio to see the code-chunk quick-jump structure.")
return converted object
}
#### Code. ####
^~~~~~~~~~~~~~~~~~~~~~~~~~ <= Notice that this comment section isnt in the jump menu!
Putting an apostrophe in isn't causes RStudio to parse as text
and needs to be matched prior to nested structure working again.
api_idea2 <- function() {
} # That isn't in the jump-menu, but the one below is...
api_idea3 <- function() {
}
}
# Just to show api_idea isn't really there...
print( api_idea )
}`) )
####
#### Code. ####
foo <- function() {
print( "The above did not evaluate and cause an error!")
}
foo()
## [1] "The above did not evaluate and cause an error!"
以下是图片...
comment=function(z){invisible(expression(z))}，这可能有助于人们理解到底发生了什么！ - SpacedmanComments<-function(\@Comments`)rm(`@Comments`)`。因为comment已经是一个有效的函数了。 - Thellx是由反引号分隔的多行表达式时，Comments=function(x){}将起作用。它不会尝试对其进行评估... - Spacedman我可以想到两个选项。第一个选项是使用允许块注释和取消注释的编辑器（例如Eclipse）。第二个选项是使用if语句。但那只能让你“注释”正确的R语法。因此，一个好的编辑器是首选的解决方法。
if(FALSE){
#everything in this case is not executed
}
我觉得任何一种语言都应该支持这个功能，这让我感到难以置信。
这可能是最简洁的解决方法：
anything="
first comment line
second comment line
"
- Ctrl+Q 在Notepad++中是用来折叠当前行或者选中的一段代码的快捷键。
- Ctrl+Shift+C 在RStudio中则是用来注释/取消注释当前选中的一段代码的快捷键。
- Michael Szczepaniak