EBSeq/install

   1 #!/usr/bin/env Rscript
   2
   3 .libPaths(c(".", .libPaths()))
   4 result <- suppressWarnings(tryCatch({
   5           library("EBSeq")
   6           cat("EBSeq already exists.\n")
   7        }, error = function(err) {
   8             tryCatch({
   9                 source("http://www.bioconductor.org/biocLite.R")
  10                 biocLite("EBSeq", lib = ".")
  11                 library("EBSeq")
  12                 cat("The latest version of EBSeq is successfully installed from Bioconductor.\n")
  13                 }, error = function(err) {
  14                      tryCatch({
  15                          cat("Failed to install the latest version of EBSeq from Bioconductor! Try to install EBSeq v1.1.5 locally instead.\n")
  16                          install.packages(c("blockmodeling_0.1.8.tar.gz", "EBSeq_1.1.5.tar.gz"), lib = ".", repos = NULL)
  17                          library("EBSeq")
  18                          cat("EBSeq v1.1.5 is successfully installed locally.\n")
  19                          }, error = function(err) { cat("Failed to install EBSeq v1.1.5 locally!\n") })
  20                     })
  21         }))
  22