-
Notifications
You must be signed in to change notification settings - Fork 3
/
Copy pathui.R
51 lines (47 loc) · 2.82 KB
/
ui.R
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
# Shiny Ciona UI
library(shiny)
shinyUI(fluidPage(
titlePanel(h1("Cardiopharyngeal Specification
scRNA-seq Data",align = "center"),windowTitle = "Ciona scRNA-seq"),
sidebarLayout(
sidebarPanel("",h5("Email",span("[email protected]", style = "color:blue"),"if you
have any questions regarding of this website.")),
mainPanel(
h4("This website hosts the Spatial-Temporal Cardiopharyngeal Specification Single-Cell RNA-seq data
in", HTML("<I> Ciona Intestinalis.</I>"), "The data was generated in",a("Satija Lab",href="http://satijalab.org",target="_blank"),
"and", a("Christiaen Lab",href="http://biology.as.nyu.edu/object/LionelChristiaen.html",target="_blank"),"at", a("NYGC",href="http://www.nygenome.org",target="_blank"),
"/",a("NYU",href="http://biology.as.nyu.edu",target="_blank"), "and was analysed using",a("Seurat.",href="http://www.satijalab.org/seurat",target="_blank")),
h4("Warning: For better performance, it is recommended to run this Shiny app localy.",a("",href="http://biology.as.nyu.edu",target="_blank"),"If you encountered a crash of this page, wait 3-5 mins and retry.")
)
),
sidebarLayout(
sidebarPanel(h3("Spatial Dynamics (using hpf20 data)"),
textInput("genes", value = NULL, label = h3("Enter Gene Names")),
selectInput("hpfgeneList", label = h3("Select Gene List"),
choices = list("All","ASM", "Heart", "FHP_Specific", "SHP_Specific"))
),
mainPanel(
tabsetPanel(
tabPanel(h3("tsne Plot"), plotOutput("tsne",width = "80%")),
tabPanel(h3("Feature Plot"), plotOutput("featurePlot",width = "80%")),
tabPanel(h3("Violin Plot"), plotOutput("violinPlot",width="80%")),
tabPanel(h3("Heatmap"), plotOutput("hpfheatmap",width="80%")
)))),
sidebarLayout(
sidebarPanel(h3("Temporal Dynamics (with regulatory states)"),
selectInput("trajectory", label = h3("Select Trajectory"),
choices = list("ASM", "FHP", "SHP")),
selectInput("geneList", label = h3("Select Gene List"),
choices = list("ASM", "Heart", "FHP_Specific", "SHP_Specific")),
textInput("geneHeatmap", value = NULL, label = h3("Enter Gene Names")),
checkboxInput("smooth","Smoothed Data"),
selectInput("dataset", label = h3("Download Gene List"), choices=c("ASM","Heart","FHP","SHP","KH2013_UniqueNAME")),
downloadButton("downloadData", "Download")
),
mainPanel(
tabsetPanel(
tabPanel(h3("Heatmap"),plotOutput("heatmap",width = "80%")),
tabPanel(h3("Gene Plot"), plotOutput("genePlot",width = "80%")),
tabPanel(h3("Violin Plot"), plotOutput("vlnPlot",width="80%"))
)))
))