R/upload_wetqc_ui.R

In JARS3N/shinyStar: shinyStar

upload_wetqc_ui<-function(){
require(shiny)
require(shinyjs)
shinyUI(
  pageWithSidebar(
    # Application title
    headerPanel("Upload WetQC Data"),
    sidebarPanel(
      actionButton("goButton", "Select Directory",icon = icon("upload")),
      actionButton("Quit", "Exit",icon=icon("times-circle")),
      actionButton("exprt", 'Export as CSV',icon = icon("table")),
      br(),
      br(),
      actionButton('upload',"Database Upload",icon=icon('send')),
      strong('Highlighted runs are not uploaded to the database'),
      width=1.5
    ),
    mainPanel(
      tabsetPanel(
        tabPanel("Selection & Validation",
                 DT::dataTableOutput('foo') #,
                 #actionButton("desel", 'Deselect All Rows',icon = icon("undo"))
        ),
        tabPanel("Terms",
                 strong('pH.Status & O2.Status'),
                 p('Taken from calibration data,checks if each status is "Good"'),
                 br(),
                 strong('Positives'),
                 p('Checks if the assay is minimally performing where the median Gain or Ksv is greater than 0 and ignores NA values where values are not applicable to the assay'),
                 br(),
                 strong('Injection'),
                 p('Determines if 95% or greater of the F0 for the injections are < 10% difference from the expected F0')
        ),
        tabPanel("Data",
                 DT::dataTableOutput('foo2')
        )

      )
    )

  )
)

}