R/dryqc_ui.R

Defines functions dryqc_ui

dryqc_ui <- function() {
  require(shiny)
  shinyUI(pageWithSidebar(
    headerPanel(textOutput('head')),
    mainPanel(width = '100%',
              tabsetPanel(
                type = "tabs",
                tabPanel("Boxplot by Cartridge", plotOutput('plot1'))
              )),
    sidebarPanel(
      width = 20,
      selectInput("analyte", "Select analyte",
                  c("pH", "O2"), multiple = FALSE),
      selectInput(
        "Lot",
        "Select Lot",
        "select Lot",
        selected = FALSE,
        multiple = FALSE
      )
    )
  ))
}
JARS3N/LiveLongAndProsper documentation built on Feb. 7, 2023, 1:11 a.m.