-
Notifications
You must be signed in to change notification settings - Fork 0
/
ui.R
46 lines (34 loc) · 1.76 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
# author: Anton Kratz
# created: Sun Dec 20 17:43:02 JST 2015
# last change: Mon Jun 6 22:12:39 JST 2016
library(shiny)
library(DT)
library(ggplot2)
# read in a file "desc.txt" for long descriptions of input files
dat <- read.table("/home/kratz/ShinyApps/deiva_github/desc.txt", stringsAsFactors = FALSE, sep="\t")
nams <- dat[, 1]
dat <- dat[, -1]
names(dat) <- nams
shinyUI(fluidPage(
sidebarLayout(
sidebarPanel(
textInput("searchpoint", "Locate a gene symbol:", "Calb1|Dlg2|Pcp2"),
helpText(
strong("Identify"), ": Draw a rectangle in the scatter plot to identify genes.", tags$br(),
strong("Locate"), ": Type a gene symbol in the search box above (case doesn't matter). This greps for gene symbols. Plot is updated after each key stroke!", tags$br(),
strong("Zoom"), ": Double-click inside the blue rectangle to zoom in. Double-click outside of the blue rectangle to zoom out.", tags$br(),
strong("Contact"), ": Anton Kratz" , a("<[email protected]>", href="mailto:[email protected]")),
strong("Last change"), "Mon Jun 6 22:17:47 JST 2016", tags$br(), tags$br(),
sliderInput("alphaslider", "alpha channel", min = 0.1, max = 1, value = 0.8, step = 0.01),
sliderInput("fc", "log2FoldChange is higher than:", min = 0, max = 5, value = 0, step= 1),
sliderInput("pv", "p value is lower than:", min = 0, max = 0.1, value = 0.05, step= 0.01),
htmlOutput("text1")
),
mainPanel(
selectInput("variable", "Select experiment of interest:", width = "100%", dat),
plotOutput("plot1", brush = brushOpts(id = "plot_brush", resetOnNew = TRUE), height = 450, dblclick = "plot1_dblclick"),
downloadButton('dbutton', 'Download entire (all pages) table as tab-separated CSV ASCII'), tags$hr(),
dataTableOutput("info")
)
)
))