# Открыто тасок
this_week_opened <- jira_changelog_data %>%
        filter(issue_type != "Epic") %>%
        filter(as.Date(issue_created) >= start_date) %>%
        filter(as.Date(issue_created) <= end_date) %>%
  select(key, issue_created) %>% unique() %>% nrow()
# В работе
this_week_processed <- jira_worklog_data %>%
  filter(as.Date(started) >= start_date) %>%
        filter(as.Date(started) <= end_date) %>%
  select(key) %>% unique() %>% nrow()
# Закрыто
this_week_closed <- jira_changelog_data %>%
        filter(issue_type != "Epic") %>%
        filter(as.Date(issue_resolutiondate) >= start_date) %>%
        filter(as.Date(issue_resolutiondate) <= end_date) %>%
  select(key, issue_created) %>% unique() %>% nrow()
# Отправлено в холд / бэклог
this_week_holded <- issue_history %>%
  filter(change_date >= start_date) %>%
        filter(change_date <= end_date) %>%
  filter(toString == "Hold" | toString == "Backlog") %>%
  select(key) %>% unique() %>% nrow()