inst/www/ui.R

In c5sire/licor: Tools for processing molecular data from a Licor sequencer

is.glimmer <-function(){
  str_detect(.Platform$pkgType,"source")
}

if(is.glimmer()){
  shinyUI(pageWithSidebar(
    headerPanel(paste("Licor to matrix converter (version ",version(),")", sep="")),
    sidebarPanel(
      fileInput('file1', 'Choose tab delimited or Excel File',
                accept=c('application/vnd.openxmlformats-officedocument.spreadsheetml.sheet','application/xlsx'))
      ,
      tags$hr(),
      downloadButton('downloadData', 'Download converted data!')
    ),
    mainPanel(
      tableOutput('contents'),
      htmlOutput('hint')
    )
  ))  
} else {
  


shinyUI(pageWithSidebar(
  headerPanel(paste("Licor to matrix converter (version ",version(),")", sep="")),
  sidebarPanel(
    fileInput('file1', 'Choose tab delimited or Excel File',
              accept=c('application/vnd.openxmlformats-officedocument.spreadsheetml.sheet','application/xlsx'))
    ,
    tags$hr(),
    checkboxInput("hasSummary","Save summary",TRUE),
    checkboxInput("hasJoined","Save joined marker data",TRUE),
    checkboxInput("useColor","Colorize marker data",FALSE),
    tags$hr(),
    downloadButton('downloadData', 'Download converted data!')
    
    
  ),
  mainPanel(
    tableOutput('contents'),
    htmlOutput('hint')
  )
))

}