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 = "```{stata}\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.