翻訳協力者への謝辞

加えて, 日本語版の修正提案に協力していただいた方を以下にクレジットします. R Markdown クックブックなので R を使って機械的に掲載してみます. 以下に Github でのPRがマージされた方のアカウント名が表示されます.

• eitsupi, * nnawata

これは以下のようなプログラムで出力しています.

contributors <- rbind(read.csv(textConnection(system("git shortlog -s master JP",
  intern = T)), header = F, sep = "\t"), read.csv(textConnection(system("git shortlog -s work JP",
  intern = T)), header = F, sep = "\t"))
contributors <- aggregate(contributors[, 1], by = list(contributors$V2),
  sum)
contributors <- subset(contributors, !charmatch(contributors$Group.1,
  c("Katagiri, Satoshi", "S-Katagiri"), F))
cat(paste0("* [", contributors[order(contributors$x), ]$Group.1,
  "](", "https://github.com/", contributors[order(contributors$x),
    ]$Group.1, ")"), sep = ", ")