# This is the user-interface definition of a Shiny web application.
# You can find out more about building applications with Shiny here:
#
# http://www.rstudio.com/shiny/
#
library(shiny)
shinyUI(pageWithSidebar(
# Application title
headerPanel("RMINC data explorer"),
# Sidebar with a slider input for number of bins
sidebarPanel(
conditionalPanel(
'input.tab == "Slice Series" || input.tab == "Single Slice"',
sliderInput("range",
"Threshold",
min = 0,
max = 15,
step=0.1,
value = c(2, 15)),
uiOutput("statsDescription")),
conditionalPanel(
'input.tab == "Slice Series" || input.tab == "Single Slice"',
uiOutput("fdr_thresholds")),
selectInput("statistic", "Statistic to display:", choices=c()),
#choices=c("Neonatal" = "Neonatal",
# "Sex" = "mouse.gender")),
conditionalPanel(
'input.tab == "Slice Series"',
selectInput("dimension", "Dimension to display:",
choices=c("coronal" = 2,
"sagittal" = 1,
"axial" = 3))),
conditionalPanel(
'input.tab == "Slice Series"',
sliderInput("sliceRange",
"Slice Range",
min=1, max=340, value=c(55, 280))),
conditionalPanel(
'input.tab == "Slice Series"',
sliderInput("rows", "Number of rows",
min=1, max=10, value=5)),
conditionalPanel(
'input.tab == "Slice Series"',
sliderInput("columns", "Number of columns",
min=1, max=10, value=4)),
conditionalPanel(
'input.tab == "Single Slice"',
checkboxInput("updatePlot", "Update plot", TRUE)
),
conditionalPanel(
'input.tab == "Single Slice" || input.tab == "Volumes"',
selectInput("xvar", "X axis on plot", choices=c("Adult",
"Neonatal",
"treatment",
"sex"))
),
conditionalPanel(
'input.tab == "Single Slice" || input.tab == "Volumes"',
selectInput("colour", "Colour on plot", choices=c("Adult",
"Neonatal",
"treatment",
"sex"))
),
conditionalPanel(
'input.tab == "Single Slice" || input.tab == "Volumes"',
selectInput("fill", "fill on plot", choices=c("Adult",
"Neonatal",
"treatment",
"sex"))
),
conditionalPanel(
'input.tab == "Single Slice" || input.tab == "Volumes"',
selectInput("graphType", "Graph type",
choices=c("boxplot", "point" = "jitter")))
),
# Show a plot of the generated distribution
mainPanel(
tabsetPanel(
id="tab",
tabPanel("Slice Series", plotOutput("seriesPlot", height="800px")),
tabPanel("Single Slice",
style="background-color: black",
fluidRow(
column(7,
plotOutput("coronalPlot", height="500px", click="plot_click")),
column(5,
plotOutput("axialPlot", height="500px", click="click_axial"))),
fluidRow(
column(8,
plotOutput("sagittalPlot", click="click_sagittal")),
column(4,
plotOutput("graphPlot"))
),
#sliderInput("slice", "Slice:",
# min=1, max=340, value=120, width="100%"),
fluidRow(
column(12,
verbatimTextOutput("summaryText")))),
tabPanel("Volumes",
fluidRow(
DT::dataTableOutput(outputId="volumesTable")),
fluidRow(
plotOutput("volumesPlot")
#column(6,
# plotOutput("volumesPlot2"))
)
)
#),
)
)
))
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.