Skip to content

Instantly share code, notes, and snippets.

@ymattu
Created June 17, 2019 05:15
Show Gist options
  • Save ymattu/dfb7a0ee48ff8d479630df36334addcc to your computer and use it in GitHub Desktop.
Save ymattu/dfb7a0ee48ff8d479630df36334addcc to your computer and use it in GitHub Desktop.
createProject <- function(dir) {
path <- file.path(dir, paste0(basename(dir), ".Rproj"))
template_path <- system.file("templates/template.Rproj",
package = "devtools")
x <- c("Version: 1.0", "", "RestoreWorkspace: Default", "SaveWorkspace: Default",
"AlwaysSaveHistory: Default", "", "EnableCodeIndexing: Yes",
"UseSpacesForTab: Yes", "NumSpacesForTab: 4", "Encoding: UTF-8",
"", "RnwWeave: knitr", "LaTeX: pdfLaTeX")
cat(paste(x, collapse="\n"), file=template_path)
file.copy(template_path, path)
message(path, " has been created")
}
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment