devtools::install_github('rstudio/rmarkdown') library(rmarkdown) setwd("~/Dropbox/Projects/Personal_Website") #Render the site render_site() #Creates a PDF of the CV render("cv.Rmd", "pdf_document",output_file="./_site/cv_Alex_Singleton.pdf") #Inserts a download link to the PDF CV conn<-file("./_site/cv.html") text <- readLines(conn) close(conn) d_link <- "
  • Download CV (pdf)
  • " text_new <- c(text[1:290],d_link,text[291:length(text)]) write(text_new, file = "./_site/cv.html") #Shell Script to copy files and move update git system("bash git.sh")