RAM usage optimisations

ainefairbrother · Nov 13, 2020 · 2ce770a · 2ce770a
1 parent c329fca
commit 2ce770a
Show file tree

Hide file tree

Showing 3 changed files with 5 additions and 4 deletions.
diff --git a/R/single_gene_gen_fig.R b/R/single_gene_gen_fig.R
@@ -9,7 +9,7 @@ GenFigSingleGene = function(arg1){
                                                    ,nrow=2,
                                                    ncol=1,
                                                    labels=c("A", "B")),
-                                 bottom = text_grob("Plot produced using the MitoNuclearCOEXPlorer tool [https://snca.atica.um.es/MitoNuclearCOEXPlorer/]", color = "black",
+                                 bottom = text_grob("Plot produced using the MitoNuclearCOEXPlorer tool [https://ainefairbrotherbrowne.shinyapps.io/MitoNuclearCOEXPlorer/]", color = "black",
                                                     hjust = 1, x = 1, face = "italic", size = 10)))
 }
 

diff --git a/R/test_list_for_enrichment_fn.R b/R/test_list_for_enrichment_fn.R
@@ -229,7 +229,7 @@ test_list_for_enrichment = function(gene_list, iters, filt_bkg_for_protein_codin
     time.taken = end.time - start.time
     print(paste("Runtime =", time.taken))
     return(ggpubr::annotate_figure(fig,
-                                   bottom = text_grob("Analysis and visualisation provided by the MitoNuclearCOEXPlorer tool [https://snca.atica.um.es/MitoNuclearCOEXPlorer/]", color = "black",
+                                   bottom = text_grob("Analysis and visualisation provided by the MitoNuclearCOEXPlorer tool [https://ainefairbrotherbrowne.shinyapps.io/MitoNuclearCOEXPlorer/]", color = "black",
                                                       hjust = 1, x = 1, face = "italic", size = 10)))
 
   }else{

diff --git a/app.R b/app.R
@@ -411,15 +411,16 @@ shinyApp(
         paste("MitoNuclearCOEXPlorer_correlations_12_CNS_regions","csv",sep=".")
       },
       content = function(con){
-        file.copy('./data/GTEx_brain_summary_table.csv', con)
+        write.csv(summary_brain, con)
+
       })
 
     output$downloadCTRL <- downloadHandler(
       filename = function(){
         paste("MitoNuclearCOEXPlorer_correlations_heart_and_muscle","csv",sep=".")
       },
       content = function(con){
-        file.copy('./data/GTEx_control_tissues_summary_table.csv', con)
+        write.csv(summary_controls, con)
       })
 
     output$downloadSINGLEGENE <- downloadHandler(