R/markup.R

In dtkaplan/detex: Translates simple latex/sweave markup into Rmd

#' 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)
}