Skip to content

Commit

Permalink
Create ui.R
Browse files Browse the repository at this point in the history
  • Loading branch information
srinew authored Feb 5, 2020
1 parent f849d4e commit 730bd8b
Showing 1 changed file with 45 additions and 0 deletions.
45 changes: 45 additions & 0 deletions ui.R
Original file line number Diff line number Diff line change
@@ -0,0 +1,45 @@
ui <- fluidPage(

HTML('<meta name="viewport" content="width=1024">'),
# Application title
titlePanel(div(HTML("CT value Normalized Heatmap for Morgan lab"))),
sidebarLayout(
sidebarPanel(
fileInput("file", "Choose CSV File",
accept = c(
"text/csv",
"text/comma-separated-values,text/plain",
".csv")
),
# checkboxInput("header", "Header", TRUE),
radioButtons("select_class_1",
"Sample Clustering:",
selected = c("Yes"),
choiceNames = list("Yes",
"No"),
choiceValues = list("Yes",
"No"),
width = 200),
radioButtons("select_class_2",
"Clustering method:",
selected = c("ward.D2"),
choiceNames = list("ward.D2",
"ward.D",
"single",
"complete",
"average",
"median"),
choiceValues = list("ward.D2",
"ward.D",
"single",
"complete",
"average",
"median"),
width = 200),
downloadButton("export", label = "download heatmap"),
width = 2),
mainPanel(
plotOutput("distPlot")
)
)
)

0 comments on commit 730bd8b

Please sign in to comment.