13. R studio/R 工具指南（十二：设置个性化的代码快捷键 snippets）

snippet my_packages
 my_packages<- c(${0})
 boost_install_packages(my_packages = my_packages, jobs=T, 
 loaded = T, mirror = T, parallel = T)
 
snippet my_frame
 # 0. packages && data preparation ----
 ${0}
 # 1.   ----
 # 2.   ----
 #  ----
 #  ----

snippet my_labs
 labs(x = "${0}", caption = "By: Mug Peng")
 
snippet my_packages
 my_packages<- c("maftools", "data.table", "RColorBrewer", "paletteer"${0})
 tmp <- sapply(my_packages, function(x) library(x, character.only = T)); rm(tmp)

snippet my_frame
 rm(list = ls())
 
 # 0.  packages loaded && data preparation ----
 ${0}
 # 1.   ----
 # 2.   ----
 #  ----
 #  ----

snippet my_project
 make_r_template("${0}", project = "SYSU")
 
snippet my_project2
 make_r_template("${0}", project = "Rselenium-crawler-tcm-database")