R/ui.R

In JARS3N/preciseR: data processing and calculations

ui<-function(){
library(shiny)
shinyUI(fluidPage(
    # Application title
    titlePanel("Process Percision Data"),
    
    # Sidebar with a slider input for number of bins
    sidebarLayout(
        sidebarPanel(
            selectInput(
                "Analyte",
                "Analyte",
                choices = c("OCR", "PER"),
                selected = NULL,
                multiple = FALSE,
                selectize = TRUE,
                width = NULL,
                size = NULL
            ),
            selectInput(
                "target",
                "target",
                choices = c("LLOD", "SSMD-Z'"),
                selected = NULL,
                multiple = FALSE,
                selectize = TRUE,
                width = NULL,
                size = NULL
            ),
            selectInput(
                "Plate",
                "Plate",
                choices = c("Split", "Whole"),
                selected = NULL,
                multiple = FALSE,
                selectize = TRUE,
                width = NULL,
                size = NULL
            ),
            fileInput(
                "XL",
                "XL files",
                multiple = TRUE,
                accept = NULL,
                width = NULL,
                buttonLabel = "Browse...",
                placeholder = "No file selected"
            ),
            downloadButton("downloadData", "Download"),
            actionButton("clear", "Clear Data"),
            width = 3
        ),
        # Show a plot of the generated distribution
        mainPanel(DT::DTOutput('foo'))
    )
))
}