ui.R

# Define UI for application that draws a histogram
ui <- fluidPage(
  titlePanel("Bight Data"),
  sidebarLayout(sidebarPanel(
    selectInput("reference_metal",
                label = "Select a Reference metal",
                choices = calibration.env$reference_metals,
                selected = calibration.env$reference_metals[1]
    ),
    selectInput("trace_metal",
                label = "Select a Trace Metal",
                choices = calibration.env$trace_metals
    ),
    checkboxInput("debug_mode","Calibration Values"),
    actionButton("rm_button", "Reference Metal Overview"),
    actionButton("tm_button", "Trace Metal Detail")
  ),
  mainPanel( 
    #this will create a space for us to display our map
    
    tabsetPanel(id="tabs",type = "tabs",
                tabPanel("Map", 
                         fluidRow(
                           leafletOutput(outputId = "mymap")
                         ),
                         fluidRow(verbatimTextOutput("Click_text"))
                         ), 
                tabPanel("Calibration Curve", 
                         h3("Calibration Plot"),
                         plotOutput("calibrationPlot"),
                         h3("Residual Analysis"),
                         h4("Residuals By Fit"),
                         plotOutput("residualsPlot"),
                         h4("Residuals By Depth"),
                         plotOutput("residualsByDepth"),
                         h4("Residuals By Latitude"),
                         plotOutput("residualsByLat"),
                         h4("Residuals By Longitude"),
                         plotOutput("residualsByLong"),
                         h4("Ratio Actual to Predicted By Latitude"),
                         plotOutput("APByLat"),
                         h4("Ratio Actual to Predicted By Longitude"),
                         plotOutput("APByLong"),
                         h3("Average Trace Metal Concentration By Stratum"),
                         plotOutput("StratumPlot")
                         ),
                tabPanel("Table", h3("Model Summary"),
                         fluidRow(verbatimTextOutput("TraceModelSummary")),
                         h3("Predicted Values"),
                         fluidRow(tableOutput("TraceMetalPredictions"))
                ),
                tabPanel("Reference Element Comparison",
                         h3("Normalizer Comparison"),
                         fluidRow(tableOutput("NormalizerComparison"))
                ),
                tabPanel("Overview Table",h3("Normalized Summary"),
                         fluidRow(tableOutput("OverviewTableNormal")),
                         h3("Raw Summary"),
                         fluidRow(tableOutput("OverviewTableRaw")),
                         h3("Sediment Summary Statistics"),
                         fluidRow(tableOutput("SedimentSummaryStatistics")),
                         h3("Slope Intercept Test"),
                         fluidRow(tableOutput("SlopeInterceptTest"))
                )
    )

  )
  ))