fix cut pff dropdown menu

vizapp/.Rhistory

-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')

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')

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;