どうもシリアルパッケージクリエイター見習いです。 呪文のようなカラーコード(#000000, #FFFFFFの違いすら曖昧)を覚えることができないので、ファイルを見返してカラーコードを確認することがあります。しかし、そんなこともいちいちやっていると面倒なので、簡単にファイル中のカラーコードを把握したい、というもの。 color_picker: そんな関数 より正確にカラーコードを取得するよう、なおかつコードの可読性を高めるために@hoxo_mさんがコメントしてくれました。感謝。 # 関数の定義 color_picker <- function(file, show = TRUE, ...) { col <- readLines(file, warn = FALSE) %>% stringr::str_match_all("[\"\'](#[0-9a-fA-F]{6})[\"\']") %>