rmd <- function(){
attempt::stop_if_not(
rstudioapi::isAvailable(),
msg = "Can't run this function outside RStudio."
)
attempt::stop_if_not(
rstudioapi::hasFun(
c("getActiveDocumentContext",
"insertText")
),
msg = "Your RStudio version is too old to run this addin."
)
loc <- rstudioapi::getActiveDocumentContext()$selection[[1]]$range
rstudioapi::insertText(
location = loc,
text = "```{node}\n\n```\n"
)
loc$start[[1]] <- loc$start[[1]] + 1
loc$end[[1]] <- loc$end[[1]] + 1
rstudioapi::setCursorPosition(
loc
)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.