[Mise à jour] en se fondant sur les commentaires.
# 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()
[Réponse Originale À Cette Question]
Voici une autre façon... découvrez le pic à fond. Couper et coller le bloc de code dans RStudio.
Les commentaires de plusieurs lignes qui permettent à l'aide d'un IDE plus efficaces sont une "Bonne Chose", la plupart des IDEs ou de simples éditeurs n'ont pas le surlignage de texte à l'intérieur de simple commenté de blocs; bien que certains auteurs ont pris le temps de vous assurer d'analyse au sein de ici-chaînes. Avec R, nous n'avons pas les commentaires multi-lignes ou ici-chaînes, mais en utilisant invisible expressions dans RStudio donne tout ce que la bonté.
Tant qu'il ne sont pas les backticks dans la section souhaité être utilisé pour un commentaire sur plusieurs lignes, ici-chaînes, ou de la non-exécution des blocs de commentaires alors ce pourrait être quelque chose en vaille vraiment la peine.
#### 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!"
Et voici le pic...