ui <- shinyUI(fluidPage(
titlePanel("HiCvideRe"),
sidebarLayout(
sidebarPanel(
fileInput('file1',
'Choose TSV File',
accept=c("text/tab-separated-values",
".tsv")),
uiOutput('selection')
),
mainPanel(
plotOutput('plot_matrix', inline = T)
)
)
))
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.