EBSeq/install

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