#!/usr/bin/env Rscript
tryCatch({if (!requireNamespace("pacman")) install.packages("pacman")}, warning = function(w) {
  if (!requireNamespace("devtools"))
    install.packages("devtools")
  devtools::install_url("https://cran.r-project.org/src/contrib/Archive/pacman/pacman_0.4.6.tar.gz")
})

pkgs <- c("futile.logger")
suppressMessages(pacman::p_load(pkgs, character.only = TRUE))
suppressMessages(devtools::install_github("ngsjs/ngsjs/src/ngsjs", upgrade = "never"))
suppressMessages(devtools::install_github("openbiox/bioshiny/src/bioshiny", upgrade = "never"))
suppressMessages(devtools::install_github("Miachol/gvmap", upgrade = "never"))
suppressMessages(devtools::install_github("jcrodriguez1989/shinyParallel", upgrade = "never"))

flog.info("All bioshiny basic dependences (R packages) were resolved.")


msg <- 'For parallel shiny: shinyParallel::installShinyParallel(system.file("extdata", "shiny", package = "bioshiny"), max.sessions=40, users.per.session=5)'