From c5336a8a17203ed9036a9ebbeaadb323456d3d4e Mon Sep 17 00:00:00 2001 From: Bo Li Date: Sat, 7 Sep 2013 05:38:50 -0500 Subject: [PATCH] Fixed loading library problem for EBSeq/install --- EBSeq/install | 11 +++++++---- 1 file changed, 7 insertions(+), 4 deletions(-) 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") }) }) })) - -- 2.39.2