inst/shiny-examples/compareVis/ui.R

ui <- shinyUI(fluidPage(

  titlePanel("HiCvideRe"),

  sidebarLayout(

    sidebarPanel(

      fileInput('file1',
                'Choose TSV File',
                accept=c("text/tab-separated-values",
                         ".tsv")),

      uiOutput('selection')

    ),

    mainPanel(

        #verbatimTextOutput('plot_matrix')
        plotOutput('plot_matrix', inline = T)

    )

  )

))
qenvio/hicvidere documentation built on May 24, 2017, 1:24 p.m.