Added CRAN mirrors to image_data_explorer.R

R/explore_plot.R

@@ -114,7 +114,7 @@ plot_server <- function(input, output, session, rv) {
   })
   
   ### Interactions with the plot
-  Interaction_Plot<- function(){
+  Interaction_Plot <- function(){
     observe({
       req(rv$data)
       isolate({

image_data_explorer.R

@@ -10,13 +10,15 @@ options(shiny.maxRequestSize=500*1024^2)
 ## Increase amount of RAM allocated to the JVM to allow BioFormats to read large files. This needs to be done before loading rJava (or packages using it).
 # options(java.parameters = "-Xmx8g") 
 
+cran.mirrors <- c('https://ftp.gwdg.de/pub/misc/cran/', 'https://cloud.r-project.org/')
+
 ## Install required packages if missing
 ## CRAN packages
 pkg <- c("devtools", "BiocManager", "DT", "shiny", "shinyFiles", "shinycssloaders", "shinydashboard", "shinyjs", "shinyWidgets", "shinybusy", "assertthat", "ggplot2", "plotly", "RANN", "MASS", "uwot")
 new.pkg <- pkg[!(pkg %in% installed.packages())]
 if (length(new.pkg)) {
   message(paste0("Installing ", new.pkg, "\n"))  
-  install.packages(new.pkg)
+  install.packages(new.pkg, repos = cran.mirrors)
 }
 ## Bioconductor packages
 if(!"RBioFormats" %in% installed.packages()) {