Fixed loading library problem for EBSeq/install

[rsem.git] / EBSeq / install

diff --git a/EBSeq/install b/EBSeq/install
index 2438adb789394bb32af4fb6382353aef134dbfa1..d5e96b4788672532a0bef3f99c8cf53397495c79 100755 (executable)
--- a/EBSeq/install
+++ b/EBSeq/install
@@ -1,19 +1,22 @@
 #!/usr/bin/env Rscript
 
+.libPaths(c(".", .libPaths()))
 result <- suppressWarnings(tryCatch({
-                 library("EBSeq", lib.loc = ".")
+                 library("EBSeq")
+         cat("EBSeq already exists.\n")
        }, error = function(err) {
             tryCatch({
                source("http://www.bioconductor.org/biocLite.R") 
                biocLite("EBSeq", lib = ".")
-               library("EBSeq", lib.loc = ".")
+               library("EBSeq")
+               cat("The latest version of EBSeq is successfully installed from Bioconductor.\n")
                }, error = function(err) {
                     tryCatch({
                         cat("Failed to install the latest version of EBSeq from Bioconductor! Try to install EBSeq v1.1.5 locally instead.\n")
                         install.packages(c("blockmodeling_0.1.8.tar.gz", "EBSeq_1.1.5.tar.gz"), lib = ".", repos = NULL)
-                        library("EBSeq", lib.loc = ".") 
+                        library("EBSeq") 
+                        cat("EBSeq v1.1.5 is successfully installed locally.\n")
                         }, error = function(err) { cat("Failed to install EBSeq v1.1.5 locally!\n") })
                    })
        }))
 
-