R/jira_hpqc_defects.R

In neugelb/njira: Extract data from the JIRA API for Neugelb

#' jira_hpqc_defects
#'
#' Convert your JIRA MBA export to a table of the current defects as reported by the back
#' @param jira_df The data-frame, usually the one created by running \code{\link{jira_issues}}
#' @param hpqc_file The HPQC Excel file
#' @export

jira_hpqc_defects <- function(jira_df,hpqc_file) {

require(tidyverse)
require(readxl)
require(neugelbtools)

defects <- jira_df %>%
  filter(str_detect(issue_title,'QCK_D.Digitalstrategie - Defect')==TRUE) %>%
  mutate(defect_id = str_remove(issue_title,'.*Defect #'),
         defect_id = as.numeric(str_remove(defect_id,' .*')))

def_ids <- defects %>%
  distinct(defect_id) %>%
  pull(defect_id)

defect_tickets <- read_excel(hpqc_file) %>%
  tidycols() %>%
  mutate(in_jira = defect_id %in% def_ids) %>%
  rename(hpqc_priority = priority)

missing_ids <- defect_tickets %>%
  filter(!defect_id %in% def_ids) %>%
  pull(defect_id)

defects_combined <- defect_tickets %>%
  full_join(defects,by='defect_id') %>%
  filter(!defect_id %in% missing_ids)

final_defects <- defects_combined %>%
  select(defect_id,issue_nr,issue_title,issue_status,issue_priority,hpqc_priority,issue_label,summary,issue_url) %>%
  group_by(defect_id) %>%
  mutate(nr_tickets = n(),
         has_coba_label = issue_label == 'coba',
         matched_priority = ifelse(issue_priority %in% c("Must",'Critical') & hpqc_priority == "1_Immediately",TRUE,
            ifelse(issue_priority == 'High' & hpqc_priority == "2_High",TRUE,
            ifelse(issue_priority %in% c('Medium','Should') & hpqc_priority == '3_Medium',TRUE,
            ifelse(issue_priority %in% c('Low','Could') & hpqc_priority == '4_Low',TRUE,FALSE))))) %>%
  ungroup() %>%
  arrange(desc(defect_id))

return(final_defects)

}