inst/shiny-examples/simpleVis/ui.R

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)

    )

  )

))
qenvio/hicvidere documentation built on May 26, 2019, 11:35 a.m.