R/yearly_postive_deviation.R

In cyngularities/TFSDataMonitoring: Functions automate photovoltaic data monitoring tasks.

#' This function compares estimated yearly yield to actual yield for portals SE and SMA.
#' @param se_performance SolarEdge Data.
#' @param sma_performance SunnyPortal Data
#' @param estimates Reference for .
#' @param status Reference list on site status.
#' @return Yearly production above estimates data.frame as an object, and also written to yearly_positive_deviation.csv.
#' @export
#' @examples
#' yearly_positive_deviation(sma_performance,se_performance,estimates,status)



yearly_positive_deviation <- function(sma_performance,se_performance,estimates,status) {
  se_filter <- left_join(se_performance %>% select(PORTAL.NAME,YEAR),
            estimates %>% select(PORTAL.NAME,Address,City,State,Postal,Email,
            Installation.Date,JOB.NAME,MonitorCode,PvEstYearlyProd), by = "PORTAL.NAME")
  sma_filter <- left_join(sma_performance %>% select(PORTAL.NAME,YEAR),
            estimates %>% select(PORTAL.NAME,Address,City,State,Postal,Email,
            Installation.Date,JOB.NAME,MonitorCode,PvEstYearlyProd), by = "PORTAL.NAME")
  se_sma_bind <- rbind(se_filter, sma_filter)
  se_sma_deviation <- se_sma_bind %>%
    transform(PERFORMANCE = (as.numeric(YEAR)/PvEstYearlyProd)*100)%>%
  positive <- filter(se_sma_deviation, PERFORMANCE > 95.0)
  distinct(positive, PORTAL.NAME, .keep_all= TRUE)
  return(positive)
}