R で Github Repository をきれいにする

第109回R勉強会@東京（#TokyoR）
発表資料

Transcript

1. R で Github Repository を綺麗にする by khiroyuki1993
2. 自己紹介 黒宮寛之（くろみー） 今日が人生初LTです ~2023.3 京都大学情報学研究科 博士課程学生 2023.4- GMOペパボ株式会社 Webアプリケーションエンジニア Website: https://kuromiyahiroyuki.tech/
3. Rとのかかわり 主に論文を書くときに使っていた（データ分析、図の作成） 特に統計の専門家というわけではなく、標準的な？Rユーザ 割合は Python : R = 1:1 くらい アプリに組み込むときは Python だけど、単発の分析ならRみたいな感じ 博士号をとれたのもRのおかげと言っても過言ではない
4. 最近気づいたこと Github Repository の数が多い！
5. Github CLI を使って数えてみる % gh repo list --limit 100 | wc -l 72 --limit option をつけないとデフォルトで30個までしかとってこないので注意
6. 全部有益なコードだったらいいのだが、（もちろん）大半は全く使い道のないレポジトリ フォークして放置 レポジトリ（とREADME）だけ作って放置 大昔のレポート
7. 最近のGithub Private Repository の数無制限だからそのままでいいん じゃない？
8. ミニマリストへの憧れ 要らないものを自分の部屋に置いておきたくない 例えどれだけ部屋が広いとしても
9. 試したこと
10. 1. 手動でレポジトリを一つ一つ削除する → だるすぎる
11. 2. Github CLIでレポジトリの削除 gh コマンドでレポジトリの削除ができる gh alias set repo-delete 'api -X DELETE "repos/$1"' gh repo-delete vilmibm/deleteme How to delete a repo using gh cli · Issue #2461 · cli/cli → でもこれだけ多いと手動でレポジトリをリストアップするのも大変 使っていないレポジトリを更新日時順とかでソート／フィルタリングしてほしい
12. 3. Open Interpreter 最近流行りの自動コーディングツール % interpreter --fast Prompt: **Sort the github repository by last update date using gh command.** To sort the GitHub repositories by the last update date, we can use the gh command with the --sort option. The updated field can be used to sort the repositories by the date of the last update. Let's execute this command. gh repo list --limit 100 --sort updated
13. 結果 I apologize for the confusion. It seems that the gh repo list command does not upport the --sort option. However, we can achieve the same result by using the gh api command to interact with the GitHub API directly. This will allow us to sort the repositories by the last update date. gh api コマンドを使えばできるっぽいがあまり複雑なシェルコマンドを打ちたくない（情 弱） → じゃあどうするか → 僕たちには R があるじゃないか
14. やったこと ほぼこの記事のパクリ Cleaning up forked GitHub repositories with {gh}
15. 1. gh library をインストール install.packages("gh") 2. PAT を設定 credentials::set_github_pat()
16. 3. 元記事の方法だと private repository が取れないので これを使う my_repos = gh("GET /user/repos", visibility = "all", affiliation = "owner", before = "2022-12-01T", sort = "updated", page = 1, per_page = 100) これでレポジトリの更新日時でフィルタリングしたりソートしたりできる （dplyr::filter とか使う必要もなかった） 参考 Repositories - GitHub Docs
17. 4. レポジトリを更新日時でフィルタリングして削除 # list of list から dataframe に変換 targeted_repos = purrr::map_dfr(my_repos, ~unlist(.x["name"])) repos_to_delete = targeted_repos$name # 削除するレポジトリを手動で調整 excluded_repos = c("important repo") to_delete = setdiff(repos_to_delete, excluded_repos) # レポジトリを削除 purrr::map(to_delete, ~gh("DELETE /repos/:owner/:repo", owner = my_username, repo = .x))
18. レポジトリが消えた（-40個）
19. まとめ gh パッケージを使えばR から Github API を叩くことができる レポジトリ一覧が dataframe 形式で手に入るのでそこから R の様々な関数が適用可能
20. Rを使って快適な Github Life by khiroyuki1993