diff --git a/R/single_gene_gen_fig.R b/R/single_gene_gen_fig.R
index b41ecd9..b99c5cb 100644
--- 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
index 8657430..65523db 100644
--- 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
index d4396a2..5245c00 100644
--- a/app.R
+++ b/app.R
@@ -411,7 +411,8 @@ 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(
@@ -419,7 +420,7 @@ shinyApp(
         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(