カスタムフィールドの確認

カスタムフィールドの中身を再確認しておきます（このようにデータフレーム型変数内にリスト型データを持っている場合はknitr::kable関数を用いると分かりやすく表示ｓｈちえくれます）。
　

issues %>% 
  head() %>% 
  dplyr::select(id, custom_fields) %>% 
  knitr::kable()

このようにカスタムフィールドはリスト型変数内にリスト型変数を持っています。Rのコードで表現すると以下のような形になっています。
　

list(
  list(id = n, name = "character", value = c("character")),
  list(id = n, name = "character", value = c("character")),
  ...
)

　
リスト型変数内の各変数名は

¹ プルダウン形式のカスタムフィールドの場合には選択肢IDが格納されているようです

ネスト構造を解消する

まずネスト構造を解消して単一のリスト型変数にすることから始めます。ネスト構造を解消するにはtidyr::unnest関数を用います。
　

issues %>% 
  head() %>% 
  dplyr::select(id, custom_fields) %>% 
  tidyr::unnest() %>% knitr::kable()

tidyr::unnest関数はこのようにネストされている変数を複数行に展開してくれます。したがって、展開後に識別できるような識別子（この場合はチケット番号であるid）と共に適用する必要がある点に注意してください。
　

NAデータの処理

カスタムフィールドはプロジェクト単位で設定できますが、入力が必須でない場合には以下のようにデータとして記録されない（欠損値になる）ことがあるようです。
　

issues %>% 
  dplyr::select(id, custom_fields) %>% 
  dplyr::filter(is.na(custom_fields)) %>% 
  head() %>% knitr::kable()

　
このようなデータは展開処理に不要なので、tidyr::drop_na関数を用いて削除しておきます。
　

issues %>% 
  head() %>% 
  dplyr::select(id, custom_fields) %>% 
  tidyr::unnest() %>% 
  tidyr::drop_na() %>% knitr::kable()

カスタムフィールドの展開

これで他のリスト型変数の項目（projectやtrackerなど）と同様の形式になりましたので、purrr::map関数群を用いてカスタムフィールドを展開します。
　

issues %>% 
  head() %>% 
  dplyr::select(id, custom_fields) %>% 
  tidyr::unnest() %>% 
  tidyr::drop_na() %>% knitr::kable()

カスタムフィールドの展開は リスト型変数の展開処理 で説明したように処理します。
　

map_if_chr <- function(.x, .f) {
  purrr::map_if(.x, !is.na(.x), .f) %>% 
    purrr::map_chr(1L) %>% 
    return()
}

issues %>%
  head() %>%
  dplyr::select(id, custom_fields) %>% 
  tidyr::unnest() %>% 
  tidyr::drop_na() %>% 
  dplyr::mutate(name = map_if_chr(custom_fields, 'name'),
                value = map_if_chr(custom_fields, 'value')) %>% knitr::kable()

　
purrr::map関数群は引数（.x）に対して.fで指定した処理（関数や演算子など）を適用する関数です。この処理の場合、.fにリストの名前（nameやvalueというリスト変数内の項目名）や数値を指定していますのでインデックス参照¹が行われています。すなわち、
　

custom_fields[[n]][[`name`]]    # map_ifでは条件に一致した時のみ指定名で参照し
custom_fields[[n]][[1L]]        # map_chrで文字列ベクトルとして取り出す

という参照を行っているのと等価です（n = 1, 2, ...）。
　
¹ ベクトルやリストの値を参照する時に利用する[や[[は、要素アクセス演算子と言える演算子の一種です
　
最後に不要な項目を削除してカスタムフィールド名が項目名になるように処理すれば、カスタムフィールド一覧の完了です。
　

issues %>%
  head() %>%
  dplyr::select(id, custom_fields) %>% 
  tidyr::unnest() %>% 
  tidyr::drop_na() %>% 
  dplyr::mutate(name = map_if_chr(custom_fields, 'name'),
                value = map_if_chr(custom_fields, 'value')) %>% 
  dplyr::select(-custom_fields) %>% 
  tidyr::spread(key = name, value = value) %>% knitr::kable()

　
あとはチケット一覧とマージすれば展開完了です。
　

issues %>%
  head(100) %>% 
  dplyr::select(id, custom_fields) %>% 
  tidyr::unnest() %>% 
  tidyr::drop_na() %>% 
  dplyr::mutate(name = map_if_chr(custom_fields, 'name'),
                value = map_if_chr(custom_fields, 'value')) %>% 
  dplyr::select(-custom_fields) %>% 
  tidyr::spread(key = name, value = value) %>% 
  dplyr::left_join(issues, ., by = "id") %>% 
  dplyr::select(id, subject, 'Affected version', 'Resolution') %>%
  dplyr::arrange(dplyr::desc(id)) %>% 
  head(10) %>% knitr::kable()