| b7783fd5 |
dashboardPage(
title = "GSVA Shiny Application",
|
| 8874e35d |
|
| b7783fd5 |
dashboardHeader(
tags$li(class = "dropdown",
|
| 8874e35d |
tags$div(id = "app_title", "GSVA Shiny Application")
|
| b7783fd5 |
),
title = tags$img(src="GSVA.png", height=75, width=75)
|
| ca2b622a |
),
|
| 8874e35d |
|
| b7783fd5 |
dashboardSidebar(
tags$head(
tags$link(rel = "stylesheet", type = "text/css", href = "style.css")
|
| ca2b622a |
),
|
| 8874e35d |
fluidRow(
column(
width = 12,
align = "center",
h3("Data Input", style="font-weight: bold")
)
),
# h3("Data input"),
|
| b7783fd5 |
matrixUI("matrix1"),
br(),
geneSetsUI("genes1"),
br(),
radioButtons("arg", "Change default settings:",
c("No" = "no",
"Yes" = "yes")),
br(),
|
| 8874e35d |
fluidRow(
actionButton("button", "Run"),
downloadUI("download"),
closeBtnUI("close"),
)
|
| b7783fd5 |
),
|
| 8874e35d |
|
| b7783fd5 |
dashboardBody(
shinyjs::useShinyjs(),
add_busy_spinner(spin = "double-bounce", position = "bottom-right",
height = "100px", width = "100px"),
|
| 8874e35d |
fluidRow(
box(
width = 9,
tabsetPanel(id = "Panels", type="tabs",
tabPanel("Samples",
textOutput("errorsGsva"),
htmlOutput("text1"),
plot1_UI("plot1"),
tableOutput("result")
),
tabPanel("GeneSets",
uiOutput("text2"),
htmlOutput("text3"),
plot2_UI("plot2"),
plot3_UI("plot3")
),
tabPanel("Session Info",
verbatimTextOutput("sessionInfo"))
)
),
box(
width = 3,
argumentsDataUI("argumentsInput")
|
| b7783fd5 |
)
)
|
| ce727bdf |
)
|
| 8874e35d |
|
| fcc9177b |
)
|
