inst/shiny/WQReviewGUI/global.R

In USGS-R/WQ-Review: Discrete water-quality data review and exploration toolbox

library(WQReview)
library(shiny)
library(shinyBS)
library(dplyr)
library(DT)
library(reshape2)
library(ggplot2)
library(plotly)
library(excel.link)
#' @import excel.link
qw.data <- NULL
reports <- NULL
options(shiny.reactlog=TRUE) 
options(shiny.maxRequestSize=30*1024^2)
markedRecords <- data.frame(RECORD_NO = character(),
                            SITE_NO = character(),
                            STATION_NM = character(),
                            SAMPLE_START_DT = character(),
                            MEDIUM_CD = character(),
                            PARM_CD = character(),
                            DQI_CD_Current = character(),
                            DQI_CD_New = character(),
                            PARM_NM = character(),
                            Status = character(),
                            Comment = character()
                            )


                            
errors <- ""
###Plot global settings
medium.colors <- c("#000000", "#E69F00", "#56B4E9", "#009E73", "#D55E00")
names(medium.colors) <- c("WS ","WG ","WSQ","WGQ","OAQ")
## Sets color to medium code name, not factor level, so its consistant between all plots regardles of number of medium codes in data
qual.shapes <- c(19,0,2,5)
names(qual.shapes) <- c("Sample","<",">","E")








###Function for a new entry into the marked records table
getEntry <- function(plotTable,
                     flaggedRecord,
                     whereFlagged,
                     flaggedStatus,
                     flaggedComment,
                     parmSel = NULL)
{
                     
                     data.frame(RECORD_NO = flaggedRecord,
                       SITE_NO = unique(plotTable$SITE_NO[which(plotTable$RECORD_NO == 
                                                                                flaggedRecord)]
                       ),
                       STATION_NM = unique(plotTable$STATION_NM[which(plotTable$RECORD_NO == 
                                                                                      flaggedRecord)]
                       ),
                       SAMPLE_START_DT = as.character(unique(plotTable$SAMPLE_START_DT[which(plotTable$RECORD_NO == 
                                                                                                             flaggedRecord)])
                       ),
                       MEDIUM_CD = unique(plotTable$MEDIUM_CD[which(plotTable$RECORD_NO == 
                                                                                    flaggedRecord)]
                       ),
                       PARM_CD = as.character(parmSel),
                       DQI_CD_Current = unique(plotTable$DQI_CD[which(plotTable$RECORD_NO == 
                                                                                      flaggedRecord &
                                                                                      plotTable$PARM_CD == 
                                                                                      as.character(parmSel))]
                       ),
                       DQI_CD_New = input$seasonal_dqiCode,
                       PARM_NM = unique(plotTable$PARM_NM[which(plotTable$PARM_CD == 
                                                                                as.character(parmSel))]
                       ),
                       Where_Flagged = whereFlagged,
                       Status = flaggedStatus,
                       Comment = flaggedComment )
}