R/template.R

In repana: Repeatable Analysis in R

# Insert a template for an snipet code
# 20200512 by JJAV
# # # # # # # # # # # # # # # # # # # #

#' RStudio addin app to insert a template to the heading part of a snip code
#'
#' @return The template to insert
#' @export
#' @importFrom rstudioapi insertText
insert_template <- function(){
  # This function is not included in the unit test
  fpath <- trimws(config::get("template"))
  if (! identical(file.exists(fpath),TRUE)){
    fpath <- system.file("templates", "template_spin.txt", package="repana")
  }

  txt <- readLines(fpath)
  txt <- paste(txt, collapse  = "\n")
  txt <- gsub("\\[INSERT DATE\\]", format(Sys.Date()),txt)
  rstudioapi::insertText(txt)
}