R/uiWellReport.R

In andrejadd/GWSDAT: GroundWater Spatiotemporal Data Analysis Tool (GWSDAT)

uiWellReport <- function(csite, img_frmt) {
  
    fluidRow(
      shinydashboard::box(width = 3, title = "Settings", 
        status = "warning", 
        div(style = "margin-bottom:30px",
            "Exclude contaminants and wells by selecting and pressing the Delete key. Use Ctrl and Shift to select multiple elements."),
        
      selectInput("solute_select_wr", 'Substances', choices = csite$ui_attr$solute_names,
                  selected = csite$ui_attr$solute_select_wr, multiple = TRUE, selectize = TRUE),
      
      selectInput("sample_loc_select_wr", 'Wells', choices = csite$ui_attr$sample_loc_names,
                   selected = csite$ui_attr$sample_loc_select_wr, multiple = TRUE, selectize = TRUE),
            
      radioButtons("logscale_wr", label = "Use Log-Scale",
                 choices = list("Yes", "No"), 
                 selected = csite$ui_attr$logscale_wr),
      actionButton("update_wellreport_plot" ,"Update Plot", icon("refresh"),
                   class = "btn btn-primary")
    
    ), # end box

    shinydashboard::box(width = 9, status = "primary", 
          plotOutput("well_report_plot", height = 600),  
          
          div(style = "display: inline-block;",
              selectInput("export_format_wr", label = "Image format", 
                          choices = img_frmt[-which(img_frmt == "tif")], 
                          selected = img_frmt[[1]]
              )
          ),
          
          div(style = "display: inline-block; vertical-align:top; margin-top: 25px; margin-right: 10px", 
              downloadButton("save_wellreport_plot", label = "Save Plot")
          )
    )
  )
}