mirror of
https://github.com/johrpan/geposanui.git
synced 2025-10-26 11:17:24 +01:00
17 lines
326 B
R
17 lines
326 B
R
|
library(DT)
|
||
|
|
library(shiny)
|
||
|
|
|
||
|
|
ui <- fluidPage(
|
||
|
|
titlePanel("TPE-OLD candidates"),
|
||
|
|
sidebarLayout(
|
||
|
|
position = "right",
|
||
|
|
sidebarPanel(
|
||
|
|
h3("Candidate selection"),
|
||
|
|
DTOutput("genes"),
|
||
|
|
width = 3
|
||
|
|
),
|
||
|
|
mainPanel(
|
||
|
|
plotOutput("scatter"),
|
||
|
|
)
|
||
|
|
)
|
||
|
|
)
|