イレギュラーデータの確認

イレギュラーデータを再度確認しておきます。issue_idが16451と16447にvalue項がないことが分かります。
　

sample_issues <- issues %>%
  dplyr::filter(id <= 16455 & id >= 16446) %>%
  dplyr::select(id, custom_fields) %>%
  tidyr::unnest() %>%
  tidyr::drop_na() %>%
  dplyr::rename(issue_id = id)

sample_issues %>% knitr::kable()

リスト型変数を結合して展開する

リスト型変数内にはチケット番号を識別するための識別子を持っていません（リスト型変数の最初のidは、カスタムフィールドの識別子です）。
　

sample_issues %>% 
  dplyr::select(custom_fields) %>% knitr::kable()

　
そこで、リスト型変数内にチケット番号の識別子（ここではissue_idと名前を変えてあります）を入れ込んで識別できるようにしておきます。リスト型変数はc関数を用いて単純に結合するだけでリスト内の変数を追加できます。
　

c(issue_id = sample_issues$issue_id[1], sample_issues$custom_fields[[1]])

## $issue_id
## [1] 16451
## 
## $id
## [1] 2
## 
## $name
## [1] "Resolution"
## 
## $value
## [1] "Invalid"

この結合処理を各データに対して反復して適用するためにpurrrパッケージを利用します。
　

purrr::map2_df(sample_issues$issue_id, sample_issues$custom_fields,
               .f = function(.x, .y) {c(issue_id = .x, .y)}) %>% knitr::kable()

　
purrr::map2関数群は、purrr::map関数群を拡張した関数群で、二つの引数（.x, .y）に対して.fで指定した処理（関数や演算子など）を適用する関数です。 　

これでチケット番号issue_id（元の識別名はid）に紐付いたカスタムフィールド情報を取得することができました。あとは、以前に学んだtidyr::spread関数を用いてカスタムフィールド（name）が変数になるように展開しておくとチケットデータと結合するのに便利です。
　

purrr::map2_df(sample_issues$issue_id, sample_issues$custom_fields,
               .f = function(.x, .y) {c(issue_id = .x, .y)}) %>%
  dplyr::select(-id) %>%
  tidyr::spread(key = name, value = value) %>%
  dplyr::rename(id = issue_id) %>% knitr::kable()

チケットデータとの結合

カスタムフィールドが展開できましたので、あとは、チケットデータに対して識別子であるチケット番号（id）を元に結合処理を行います。

cf_list <- issues %>%
  dplyr::select(id, custom_fields) %>%
  tidyr::unnest() %>%
  tidyr::drop_na()

df_cf <- purrr::map2_df(cf_list$id, cf_list$custom_fields,
                        .f = function(.x, .y) {c(iid = .x, .y)}) %>%
  dplyr::select(-id) %>%
  tidyr::spread(key = name, value = value) %>%
  dplyr::rename(id = iid) %>%
  dplyr::arrange(dplyr::desc(id))

issues %>%
  dplyr::select(id, subject) %>%
  dplyr::left_join(df_cf, by = "id") %>% 
  dplyr::mutate_if(is.character, dplyr::na_if, "") %>% 
  head(10) %>% knitr::kable()

　
ここでは表示の都合上、チケット番号、タイトル、カスタムフィールドのみに絞ってありますが、この結合処理により全てのリスト型変数に対する展開処理が終わったことになります。以降はお好きに処理してください。