tanu/Dashboards
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

msa

Browse source
This commit is contained in:
Tanushree Tunstall 2022-09-05 16:57:00 +01:00
parent e69c2a60aa
commit 594c1c24d6
1 changed files with 173 additions and 169 deletions
Download patch file Download diff file Expand all files Collapse all files

22
msa/global.R
View file

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