31 lines
600 B
R
31 lines
600 B
R
|
#!/usr/bin/env Rscript
|
||
|
|
#
|
||
|
|
# check and install required packages
|
||
|
|
#
|
||
|
|
|
||
|
|
out <- function(...) {
|
||
|
|
cat(paste0('+ ', ..., '\n'), file=stderr())
|
||
|
|
}
|
||
|
|
|
||
|
|
installed <- function(package) {
|
||
|
|
package %in% rownames(installed.packages())
|
||
|
|
}
|
||
|
|
|
||
|
|
check <- function(package, repos="http://cran.univ-lyon1.fr") {
|
||
|
|
if (installed(package)) {
|
||
|
|
out("R package ", package, " installed")
|
||
|
|
} else {
|
||
|
|
out("Installing R package ", package, " from ", repos)
|
||
|
|
install.packages(package, repos=repos)
|
||
|
|
}
|
||
|
|
invisible(installed(package))
|
||
|
|
}
|
||
|
|
|
||
|
|
check("grid")
|
||
|
|
check("gridExtra")
|
||
|
|
check("vcd")
|
||
|
|
check("plotrix")
|
||
|
|
|
||
|
|
quit(save='no', status=0)
|
||
|
|
|