#' Mark a word as being introduced and indexed.
#' @export
new_word <- function(word) {
I(paste0("***", word, "***"))
# add indexing later
}
#' @export
dataset <- function(word) {
I(paste0("`", word, "`"))
# add indexing later
}
#' @export
index_entry <- function(index_label = "C", index_contents="Missing contents!") {
I(paste0("^[Index_entry. Contents: ", index_contents, "]"))
"" # return nothing
}
#' @export
verbatim_input <- function(file_name) {
text <- paste(readLines(file_name), collapse = "\n")
# escape quotes
text <- gsub("\"", "\\\"", text)
gsub("\'", "\\\'", text)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.