msa

msa/global.R

@@ -31,7 +31,11 @@ library(hash)
 # than previous approaches
 
 # system.time({
-source("~/git/LSHTM_analysis/scripts/Header_TT.R")
+if(interactive()){
+  source("~/git/LSHTM_analysis/scripts/Header_TT.R")
+} else {
+  source("/srv/shiny-server/git/LSHTM_analysis/scripts/Header_TT.R")
+}
 
 load_target_globals=function(target){
   cat(paste0("Reloading Target: ", target))
@@ -248,7 +252,7 @@ lapply(c(
 
 #### Shiny UI #####
 if(interactive()){
-ui <- dashboardPage(
+  ui <- dashboardPage(
     #dashboardHeader(title = paste0(gene, "/", drug)),
     dashboardHeader(title = "Sequence Alignment"),
     
@@ -309,9 +313,9 @@ ui <- dashboardPage(
         )
       )
     )
-)
-#### Shiny Backend Server #####
-server <- function(input, output, session) {
+  )
+  #### Shiny Backend Server #####
+  server <- function(input, output, session) {
     observeEvent(
       {
         input$display_position_full_range #special-purpose for MSA
@@ -420,10 +424,10 @@ server <- function(input, output, session) {
     
     
     
-}
-################ Running Server ##############
-app <- shinyApp(ui, server)
+  }
+  ################ Running Server ##############
+  app <- shinyApp(ui, server)
   
   
-runApp(app)
+  runApp(app)
 }