From cedb8dc77739a9a8328381dae0618dd93f0ef544 Mon Sep 17 00:00:00 2001
From: Aine Fairbrother-Browne <aine.fairbrother-browne.18@ucl.ac.uk>
Date: Tue, 9 Feb 2021 21:13:39 +0000
Subject: [PATCH] Add pre-print citation

---
 app.R | 23 +++++++----------------
 1 file changed, 7 insertions(+), 16 deletions(-)

diff --git a/app.R b/app.R
index 2ca025c..16cf037 100644
--- a/app.R
+++ b/app.R
@@ -28,21 +28,6 @@ library(aws.s3)
 library(lobstr)
 library(gdata)
 
-# # # # loading tables from local and assigning to global
-# grch <<- read.fst("/home/abrowne/shiny/MitoNuclearCOEXPlorer_additional_files/data/grch3897_small.fst")
-# summary_brain <<- read.fst("/home/abrowne/shiny/MitoNuclearCOEXPlorer_additional_files/data/GTEx_brain_summary_table.fst")
-# summary_controls <<- read.fst("/home/abrowne/shiny/MitoNuclearCOEXPlorer_additional_files/data/GTEx_control_tissues_summary_table.fst")
-
-# # # # loading data from AWS
-# # read files from AWS -- data remote repository AWS bucket
-# Sys.setenv("AWS_ACCESS_KEY_ID"=Sys.getenv("AWS_ACCESS_KEY_ID"),
-#            "AWS_SECRET_ACCESS_KEY"=Sys.getenv("AWS_SECRET_ACCESS_KEY"),
-#            "AWS_DEFAULT_REGION"=Sys.getenv("AWS_DEFAULT_REGION"))
-
-# summary_controls <<- aws.s3::s3read_using(read.fst, object = "s3://shinyapp-mitonuclear/GTEx_control_tissues_summary_table.fst")
-# summary_brain <<- aws.s3::s3read_using(read.fst, object = "s3://shinyapp-mitonuclear/GTEx_brain_summary_table.fst")
-# grch <<- aws.s3::s3read_using(read.fst, object = "s3://shinyapp-mitonuclear/grch3897_small.fst")
-
 load("./.RData")
 
 # importing fns
@@ -59,6 +44,8 @@ shinyApp(
   # user interface
   ui = navbarPage("MitoNuclearCOEXPlorer",
                   
+                  
+                  
                   #theme = shinytheme("yeti"),
                   
                   tabPanel("Welcome",
@@ -67,6 +54,8 @@ shinyApp(
                            
                            fluidPage(
                              
+                             tags$head(includeHTML(("google-analytics.html"))),
+                             
                              br(),
                              
                              titlePanel(
@@ -269,7 +258,9 @@ shinyApp(
                                column(8,
                                       offset=2,
                                       wellPanel(
-                                        p('[Link to pre-print here]')
+                                        tags$ul(
+                                          "For further methodological details see our pre-print ", tagList(a("here.", href="https://www.biorxiv.org/content/10.1101/2021.02.04.429781v1"))
+                                          )
                                       ))))),
                   
                   # ---------------------- CONTACT TAB ------------------------------