inst/shiny/SedReviewGUI/ui.R

In USGS-R/sedReview: A package and shiny GUI for review of discrete water-quality sediment records and box coefficient exploration of data stored in the USGS NWIS system

ui <- navbarPage(
  titlePanel(title = NULL, windowTitle = "SedReview 1.2"),
  tabPanel(title = img(src="Logo.png", width="60px",height = "20px"),
           h3("Welcome to SedReview 1.2: Discrete sediment data review and exploration toolbox."),
           h4("Please use the 'Site-Level Assessment Module' to review and plot data from a specific site."),
           h4("Please use the 'Science-Center Review Module' to perform high-level data reviews for an entire Water Science Center."),
           h4(helpText(a('User Guide', href="sedReview_manual.html",target="_blank"))),
           h4(helpText(a("Additional Info: SedReview GitHub",
                         href="https://github.com/USGS-R/sedReview",target="_blank")))
  ),
  
  
  tabPanel("Site-Level Assessment Module", helpText(h4(verbatimTextOutput("site"))),
           source("ui_SLA.R", local = TRUE)$value),
  
  tabPanel("Science-Center Review Module", helpText(h4(verbatimTextOutput("site2"))),
           source("ui_SCR.R", local = TRUE)$value),
  
  tabPanel("Save/Load SedReview Session Data",
           h1("Save all current work in SedReview Session to R data file."),
           actionButton(inputId = "savePrep", label = "Push to prepare data"),
           helpText(h3(verbatimTextOutput("saveInfo"))),
           downloadButton('saveRData', 'Save SedReview session'),br(),br(),
           h1("Load a previous SedReview Session."),
           fileInput("loadRDataFile",label="Browse to saved R data file",accept=".rda"),
           actionButton(inputId = "loadRData", "Load SedReview Session"),
           helpText(h3(verbatimTextOutput("loadInfo")))
           )
  
)