R/jira_extract.R

In neugelb/neugelbtools: Various small Neugelb tools

jira_extract <- function(x) {

  z <- tibble(issue_nr = x$key,
              issue_title = x$fields$summary,
              issue_status = x$fields$status$statusCategory$name,
              issue_reporter = x$fields$reporter$key,
              issue_assignee = str_to_title(x$fields$assignee$key),
              votes = x$fields$votes$votes,
              issue_type = x$fields$issuetype$name,
              is_subtask = x$fields$issuetype$subtask,
              project_id = x$fields$project$key,
              project_name = x$fields$project$name,
              created = x$fields$created)

    return(z)

}