# Set up the layout of the shiny page
library(shiny)
shinyUI(fluidPage(
titlePanel("Uploading SummarizedExperiment"),
sidebarLayout(
sidebarPanel(
fileInput('file1', 'Choose tab-delimited file',
accept=c('text/csv',
'text/comma-separated-values,text/plain',
'.csv')),
tags$hr(),
checkboxInput('header', 'Header', TRUE),
radioButtons('sep', 'Separator',
c(Comma=',',
Semicolon=';',
Tab='\t'),
','),
radioButtons('quote', 'Quote',
c(None='',
'Double Quote'='"',
'Single Quote'="'"),
'"')
),
mainPanel(
tableOutput('contents')
)
)
))
# # Application title
# titlePanel("Coefficient of variation and count data"),
# # Page layout
# fluidRow(
# column(width = 5,
# # CV-versus-mean plot
# plotOutput("plotCV",
# click = clickOpts(id = "plotCV_click", clip = TRUE),
# hover = hoverOpts(id = "plotCV_hover", nullOutside = FALSE),
# width = 500, height = 500)
# ),
# column(width = 4, offset = 1,
# # the counts plot for a single gene
# plotOutput("plotGene", width=500, height=500)
# )
# )
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.