R/write_preamble.R

In dchiu911/rsf: Report of Statistical Findings in 'bookdown'

# preamble.tex
write_preamble <- function(path) {
  cmds <-
    "\\usepackage{titlesec, blindtext, color, float}

\\titleformat{\\chapter}[display]
  {\\Huge\\bfseries}
  {}
  {0pt}
  {\\thechapter.\\ }

\\titleformat{name=\\chapter,numberless}[display]
  {\\Huge\\bfseries}
  {}
  {0pt}
  {}

\\titlespacing*{\\chapter}{0pt}{0pt}{40pt}"

  writeLines(cmds, file.path(path, "preamble.tex"))
}

# References
# https://github.com/rstudio/bookdown/issues/677
# https://tex.stackexchange.com/questions/284893/remove-chapter-from-a-book-text"
# https://tex.stackexchange.com/questions/12597/renaming-the-bibliography-page-using-bibtex