From c7101bb3bd1a83674bc3ad8cc4f4209d772b7842 Mon Sep 17 00:00:00 2001
From: Danni Luo <danni.luo@utsouthwestern.edu>
Date: Wed, 20 Jun 2018 14:02:36 -0500
Subject: [PATCH] fix cut pff dropdown menu
---
vizapp/.Rhistory | 34 +++++++++++++++++-----------------
vizapp/server.R | 4 ++--
vizapp/www/style.css | 13 ++++++++++---
3 files changed, 29 insertions(+), 22 deletions(-)
diff --git a/vizapp/.Rhistory b/vizapp/.Rhistory
index 6cff52a..4cd1023 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 31b788a..7e0b4fd 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 cd2a65d..f16eeff 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;
--
GitLab