R/search_coefs_ui.R

In JARS3N/LLP: LLP

search_coefs_ui <- function() {
  require(shiny)
  
  shinyUI(
    fluidPage(
      titlePanel("Retrieve Barcode Coefficients"),
      selectInput(
        "Lot",
        "Select Lot",
        c('SELECT'),
        selected = FALSE,
        multiple = FALSE
      ),
      p("Start typing the Lot in the dropdown to filter choices."),
      tableOutput('Lottable'),
      tableOutput('oxtable'),
      tableOutput('pHtable'),
      tableOutput('bftbl')
    )
  )
}