[Update] Berdasarkan komentar.
# 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()
[Jawaban Asli]
Berikut cara lain ... lihat gambar di bagian bawah. Potong dan tempel blok kode ke RStudio.
Komentar multiline yang membuat penggunaan IDE lebih efektif adalah "Hal yang Baik", sebagian besar IDE atau editor sederhana tidak memiliki penyorotan teks dalam blok komentar -out sederhana; meskipun beberapa penulis telah meluangkan waktu untuk memastikan penguraian dalam string di sini. Dengan R kami juga tidak memiliki komentar multi-baris atau di sini-string, tetapi menggunakan ekspresi tak terlihat di RStudio memberikan semua kebaikan itu.
Selama tidak ada backticks di bagian yang diinginkan untuk digunakan untuk komentar multiline, here-string, atau blok komentar yang tidak dieksekusi, maka ini mungkin sesuatu yang berharga.
#### 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!"
Dan ini fotonya ...
