R/dql_update.R

In OR-Dept-Environmental-Quality/odeqcdr: ODEQ Continuous Data Review

#' Manual update of rDQL field
#'
#' This function is to provide an ability to manually update rDQL field after manual review in shiny app for the volmon
#' program. Input is intended to be the df4.results dataframe must contain the following fields: rDQL, row.results,
#' Result.Comment
#'
#' @param df Dataframe to modify. Should be df4.results. No need to specify if part or pipe structure
#' @param rows Rows to modify. Get these from reviewing the shinyapp
#' @param DQL Updated final DQL value
#' @param comment Comment to be used in Result.Comment field
#' @export
#' @return Dataframe with updated DQL and comment
#'
#'

dql_update <- function(df, rows, DQL, comment = NA_character_){

if(!DQL %in% c("A", 'B', 'C', 'D', 'E', 'F')){
  stop("Invalid DQL. Please update using valid DQL")
}

#Look to see if we are dealing with results dataframe or audits dataframe
  if("row.results" %in% names(df)){


  df2 <- df %>%
    dplyr::mutate(rDQL = dplyr::case_when(row.results %in% rows ~ DQL,
                                          TRUE ~ rDQL),
                  Result.Comment = dplyr::case_when(row.results %in% rows & is.na(Result.Comment) ~ comment,
                                                    row.results %in% rows & !is.na(Result.Comment) & !is.na(comment) ~ paste(Result.Comment, ";", comment),
                                                    TRUE ~ Result.Comment
                                                    ))


  return(df2)

  } else if("row.audits" %in% names(df)){ #if audits dataframe

    df2 <- df %>%
      dplyr::mutate(rDQL = dplyr::case_when(row.audits %in% rows ~ DQL,
                                            TRUE ~ rDQL),
                    Result.Comment = dplyr::case_when(row.audits %in% rows & is.na(Result.Comment) ~ comment,
                                                      row.audits %in% rows & !is.na(Result.Comment) & !is.na(comment) ~ paste(Result.Comment, ";", comment),
                                                      TRUE ~ Result.Comment
                    ))

    return(df2)


  } else {
    stop("Invalid colnames. row.results or row.audit not found.")
  }



}