Create pptexport.R

Pure laziness... ggplot graphs -> PPT