mirror of
https://github.com/johrpan/geposanui.git
synced 2025-10-26 11:17:24 +01:00
Start adding an UI using Shiny
This commit is contained in:
parent
be696b91a0
commit
5d59018b2e
4 changed files with 118 additions and 3 deletions
17
ui.R
Normal file
17
ui.R
Normal file
|
|
@ -0,0 +1,17 @@
|
|||
library(DT)
|
||||
library(shiny)
|
||||
|
||||
ui <- fluidPage(
|
||||
titlePanel("TPE-OLD candidates"),
|
||||
sidebarLayout(
|
||||
position = "right",
|
||||
sidebarPanel(
|
||||
h3("Candidate selection"),
|
||||
DTOutput("genes"),
|
||||
width = 3
|
||||
),
|
||||
mainPanel(
|
||||
plotOutput("scatter"),
|
||||
)
|
||||
)
|
||||
)
|
||||
Loading…
Add table
Add a link
Reference in a new issue