From: Bo Li <bli@cs.wisc.edu>
Date: Sat, 7 Sep 2013 10:38:50 +0000 (-0500)
Subject: Fixed loading library problem for EBSeq/install
X-Git-Url: https://git.donarmstrong.com/?p=rsem.git;a=commitdiff_plain;h=c5336a8a17203ed9036a9ebbeaadb323456d3d4e

Fixed loading library problem for EBSeq/install
---

diff --git a/EBSeq/install b/EBSeq/install
index 2438adb..d5e96b4 100755
--- 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") })
 		    })
 	}))
 
-