some minor bugfix in installscript

This commit is contained in:
Roland Hollós 2019-04-15 12:24:29 +02:00
parent 2c9b268402
commit c613710a0c

View File

@ -3,7 +3,7 @@
installedp<- sapply(packagesToInstall, function(pkgs){ installedp<- sapply(packagesToInstall, function(pkgs){
if(!is.element(pkgs,installed.packages()[,1])){ if(!is.element(pkgs,installed.packages()[,1])){
install.packages(pkgs) install.packages(pkgs)
if(!is.element(pkgs,installed.packages([,1]))){ if(!is.element(pkgs,installed.packages())[,1]){
return(FALSE) return(FALSE)
} else { } else {
return(TRUE) return(TRUE)