R/upload_lightleak_qc_ui.R

In JARS3N/shinyStar: shinyStar

upload_lightleak_qc_ui<-function(){
require(shiny)
    shinyUI(fluidPage(
      titlePanel("PipeFish::Upload Instrument QC Light Leak Data"),
      mainPanel(
        p("Select directory containing xlsx files from light leak utility test"),
        checkboxInput("CB", "open and save XLSX files first", value = TRUE, width = NULL),
        actionButton('send', "Upload Data", icon = icon("cog", lib = "glyphicon"), width = NULL)
      )
    )
    )

}