/
installPackages.R
18 lines (15 loc) · 1.23 KB
/
installPackages.R
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
packages_w1 <- c("rvest", "stringr", "selectr", "quantmod", "devtools", "rjson", "jsonlite", "rlist", "magrittr", "pipeR")
packages_w2 <- c("rJava", "dplyr", "data.table", "ROracle", "RODBC", "RJDBC", "RMySQL", "RSQLite", "XLConnect", "gdata", "xlsx", "readxl")
packages_w3 <- c("ggplot2", "shiny", "rmarkdown", "circlize", "dygraphs")
packages_w4 <- c("Lahman", "e1071", "jiebaR", "xgboost", "irlba", "LiblineaR", "SparseM", "xgboost", "tm", "tmcn", "wordcloud", "koRpus", "Rweibo", "openNLP", "twitteR", "openNLPdata", "ROAuth", "corpora", "languageR", "zipfR")
packages <- c(packages_w1, packages_w2, packages_w3, packages_w4)
if (length(setdiff(packages, rownames(installed.packages()))) > 0) {
install.packages(setdiff(packages, rownames(installed.packages())),repos="http://cran.r-project.org")
}
library(devtools)
github_Packages <- c("ramnathv/slidifyLibraries", "ramnathv/slidify", "rstudio/shinyapps", "renkun-ken/formattable")
github_PackagesName <- sapply(strsplit(github_Packages,"/"),function(x)x[2])
if (length(setdiff(github_PackagesName, rownames(installed.packages()))) > 0) {
index <- match(x = setdiff(github_PackagesName, rownames(installed.packages())), table = github_PackagesName)
install_github(github_Packages[index])
}