note.R

# some quick commend to use

# this is a setup file

library("blogdown")

list.of.packages <- c("blogdown", "ggplot2", "data.table","plyr","QuantPsyc", "ggh4x", "ggforce",
                      "glmnet","leaps","randomForest","gbm","caret","xgboost","Ckmeans.1d.dp",
                      "DiagrammeR", "knitr", "here",
                      "curl", "gplots", "dendextend", "colorspace",
                      "raster", "Hmisc", "plyr", "RColorBrewer", "googledrive", "usmap",
                      "SHAPforxgboost",
                      # "leafletCN", "rgdal", "ggsn", # can no longer install
                      "maps",  "mapproj", "ggmap",
                      "devtools", "drake", "reshape2", "scatterplot3d", "readr")
new.packages <- list.of.packages[!(list.of.packages %in% installed.packages()[,"Package"])]
if(length(new.packages)) install.packages(new.packages)


here::here()
blogdown::stop_server()
blogdown::serve_site()
blogdown::build_site()