inst/shiny-apps/cv-and-counts/ui.R

In jhsiao999/Humanzee: Tools for statistical analysis of genomics data

# 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)
  #   )
  # )