install_rmd_xelatex_template.R

if (.Platform$OS.type == "windows") {
  folder <- file.path(Sys.getenv("AppData"), "RStudio", "templates")
} else {
  folder <- "~/.config/rstudio/templates"
}

if (!dir.exists(folder)) { dir.create(folder, recursive = TRUE) }

f <- file(file.path(folder, "default.Rmd") ,"wt")

template_text <- '---
title: "Your Title"
author: "Your Name"
output:
  pdf_document:
    latex_engine: xelatex
  html_document: default
---'

writeLines(template_text, con = f)
close(f)