R/search_coefs_ui.R

Defines functions search_coefs_ui

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')
    )
  )
}
JARS3N/LiveLongAndProsper documentation built on June 21, 2020, 12:49 p.m.