codeface/packages.R at master · mitchell-joblin/codeface · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
filter.installed.packages <- function(packageList)  {
    if("-f" %in% commandArgs(trailingOnly = TRUE)) {
        return(packageList)
    } else {
        return(packageList[which(packageList %in% installed.packages()[,1] == FALSE)])
    }
}

p <- filter.installed.packages(c("BiRewire", "graph", "Rgraphviz"))
if(length(p) > 0) {
    source("http://bioconductor.org/biocLite.R")
    biocLite(p)
}

p <- filter.installed.packages(c("statnet", "ggplot2", "tm", "optparse",
                   "igraph", "zoo", "xts", "lubridate", "xtable",
                   "reshape", "wordnet", "stringr", "yaml", "plyr",
                   "scales", "gridExtra", "scales", "RMySQL",
                   "RCurl", "mgcv", "shiny", "dtw", "httpuv", "devtools",
                   "corrgram", "logging", "png", "rjson", "lsa", "RJSONIO"))
if(length(p) > 0) {
    install.packages(p ,dependencies=T)
}


p <- filter.installed.packages(c("shinyGridster"))
if(length(p) > 0) {
    devtools::install_github("wolfgangmauerer/tm-plugin-mail/pkg")
}

p <- filter.installed.packages(c("snatm"))
if(length(p) > 0) {
    devtools::install_github("wolfgangmauerer/snatm/pkg")
}

p <- filter.installed.packages(c("shinyGridster"))
if(length(p) > 0) {
    devtools::install_github("wch/shiny-gridster")
}

p <- filter.installed.packages(c("shinybootstrap2"))
if(length(p) > 0) {
	devtools::install_github("rstudio/shinybootstrap2")
}