diff --git a/vizapp/.Rhistory b/vizapp/.Rhistory
index 6cff52acb8c5be24b4258496775fe4d7234efb87..4cd1023840f366bee676779b5b5608c41e6b8fc5 100644
--- a/vizapp/.Rhistory
+++ b/vizapp/.Rhistory
@@ -1,19 +1,3 @@
-div(class="card-footer",
-a(class="btn btn-primary btn-sm", 'data-toggle'="tab",'data-value'="DEA",id="dea","DEA")
-)
-)
-),
-column(4,
-div(class="card text-center",
-div(class="card-header",
-"GSEA"
-),
-div(class="card-body",
-h5(class="card-title","To Examine Gene Set Enrichment Analysis"),
-p(class="card-text","Here you will be able explore Gene Set Enrichment Analysis by Group and Gene Set List.")
-),
-div(class="card-footer",
-a(class="btn btn-primary btn-sm",'data-toggle'="tab", 'data-value'="QuSAGE",id="gsea","GSEA")
 )
 )
 )
@@ -508,5 +492,21 @@ runApp('shiny_R/vizapp')
 runApp('shiny_R/vizapp')
 install.packages("shinythemes")
 install.packages("shinythemes", dep=TRUE)
+shiny::runApp('shiny_R/DisHet_shinyapp')
+runApp('shiny_R/DisHet_shinyapp')
+install.packages("DisHet")
+runApp('shiny_R/DisHet_shinyapp')
+runApp('shiny_R/DisHet_shinyapp')
+clean
+runApp('shiny_R/DisHet_shinyapp')
+runApp('shiny_R/DisHet_shinyapp')
+getwd()
+load("/home/danni/shiny_R/DisHet_shinyapp/eTME_signatures.RData")
+head(isfar)
+head(eTME_signatures)
+load("/home/danni/shiny_R/DisHet_shinyapp/DisHet_App_example.RData")
+head(DisHet_App_example)
+head(DisHet_App_example)
+load("/home/danni/shiny_R/DisHet_shinyapp/DisHet_App_example.RData")
+head(DisHet_App_example)
 shiny::runApp('shiny_R/rnaseq/vizapp')
-runApp('shiny_R/rnaseq/vizapp')
diff --git a/vizapp/server.R b/vizapp/server.R
index 31b788afc78dfb5ac7435e96bcdcab8bc3e5d8a1..7e0b4fd05a56011af41bb9c6ff8ed98796ed1221 100644
--- a/vizapp/server.R
+++ b/vizapp/server.R
@@ -10,8 +10,8 @@ library("gplots")
 
 shinyServer(function(input, output, session) {
 
-    #data.dir <- Sys.getenv('outputDir')
-    data.dir <-"../../vizapp/workflow_322_output"
+    data.dir <- Sys.getenv('outputDir')
+    #data.dir <-"../../vizapp/workflow_322_output"
     rda.dir <- data.dir
     symsyn <- read.table(file='symbol2synonym.txt',header=FALSE)
     names(symsyn) <- c('symbol','synonyms')
diff --git a/vizapp/www/style.css b/vizapp/www/style.css
index cd2a65da0aec7c1a6dedae9c80034b9d14f8b1ce..f16eeff91e045f6b57b97a528b89c4c24552c2b2 100755
--- a/vizapp/www/style.css
+++ b/vizapp/www/style.css
@@ -26,13 +26,20 @@ label.checkbox  {
 }
 
 select { 
-  max-width: 200px; 
+  max-width: 300px; 
 }
 
 .selectize-input { 
-  max-width: 200px; 
+  max-width: 350px; 
+  padding: 6px 5px;
+}
+.selectize-control.single .selectize-input:after{
+  border-style: none;
+  border-color: transparent;
+}
+.selectize-dropdown [data-selectable], .selectize-dropdown .optgroup-header {
+    padding: 3px 5px;
 }
-
 pre {
   overflow: auto;
   word-wrap: normal;