Start adding an UI using Shiny

This commit is contained in:
Elias Projahn 2021-06-24 22:38:16 +02:00
parent be696b91a0
commit 5d59018b2e
4 changed files with 118 additions and 3 deletions

17
ui.R Normal file
View 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"),
)
)
)