[Cập nhật] Dựa trên nhận xét.
# 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()
[Câu trả lời gốc]
Đây là một cách khác ... hãy xem ảnh ở dưới cùng. Cắt và dán khối mã vào RStudio.
Các nhận xét đa dòng làm cho việc sử dụng IDE hiệu quả hơn là một "Điều tốt", hầu hết các IDE hoặc trình chỉnh sửa đơn giản không có phần đánh dấu văn bản trong các khối -out nhận xét đơn giản; mặc dù một số tác giả đã dành thời gian để đảm bảo phân tích cú pháp trong chuỗi này. Với R, chúng tôi cũng không có nhận xét nhiều dòng hoặc ở đây, nhưng việc sử dụng các biểu thức vô hình trong RStudio mang lại tất cả những điều tốt đẹp đó.
Miễn là không có bất kỳ dấu nền nào trong phần muốn được sử dụng cho nhận xét nhiều dòng, chuỗi ở đây hoặc khối nhận xét không được thực thi thì đây có thể là thứ đáng giá.
#### 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!"
Và đây là bức ảnh ...
