Thank all contributors on home page

contributors.R

@@ -0,0 +1,31 @@
+library(tidyverse)
+contribs_all_json <- gh::gh("/repos/:owner/:repo/contributors",
+  owner = "hadley",
+  repo = "r4ds",
+  .limit = Inf
+)
+contribs_all <- tibble(
+  login = contribs_all_json %>% map_chr("login"),
+  n = contribs_all_json %>% map_int("contributions")
+)
+
+contribs_old <- read_csv("contributors.csv", col_types = list())
+contribs_new <- contribs_all %>% anti_join(contribs_old)
+
+# Get info for new contributors
+needed_json <- map(
+  contribs_new$login,
+  ~ gh::gh("/users/:username", username = .x)
+)
+info_new <- tibble(
+  login = map_chr(needed_json, "login", .default = NA),
+  name = map_chr(needed_json, "name", .default = NA),
+  blog = map_chr(needed_json, "blog", .default = NA)
+)
+info_old <- contribs_old %>% select(login, name, blog)
+info_all <- bind_rows(info_old, info_new)
+
+contribs_all <- contribs_all %>%
+  left_join(info_all) %>%
+  arrange(login)
+write_csv(contribs_all, "contributors.csv")

contributors.csv

@@ -0,0 +1,139 @@
+login,n,name,blog
+adidoit,1,adi pradhan,http://adidoit.github.io
+agila5,1,Andrea Gilardi,
+ajay-d,1,Ajay Deonarine,http://deonarine.com/
+AlanFeder,1,NA,
+alonzi,1,pete,
+ALShum,1,Alex,www.ALShum.com
+andland,1,Andrew Landgraf,http://andrewlandgraf.com
+andrewmacfarland,1,NA,http://www.andrewmacfarland.com/
+aviast,1,Michael Henry,
+batpigandme,1,Mara Averick,https://twitter.com/dataandme
+bbrewington,1,Brent Brewington,
+behrman,29,Bill Behrman,
+benherbertson,3,Ben Herbertson,
+benmarwick,2,Ben Marwick,http://faculty.washington.edu/bmarwick/
+bensteinberg,4,Ben Steinberg,
+bgreenwell,9,Brandon Greenwell,
+bklamer,11,Brett Klamer,
+chrMongeau,1,Christian Mongeau,http://mongeau.net
+coopermor,2,Cooper Morris,
+csgillespie,7,Colin Gillespie,http://www.mas.ncl.ac.uk/~ncsg3/
+csrvermaak,7,Rademeyer Vermaak,
+curious-abhinav,1,Abhinav Singh,https://curious-abhinav.github.io
+curtisalexander,1,Curtis Alexander,https://www.calex.org
+cwarden,2,Christian G. Warden,http://xn.pinkhamster.net/
+darrkj,1,Kenny Darrell,http://darrkj.github.io/blogs
+davidrubinger,1,David Rubinger,
+DDClark,1,David Clark,
+derwinmcgeary,1,Derwin McGeary,http://derwinmcgeary.github.io
+dgromer,2,Daniel Gromer,
+djbirke,1,NA,
+dpastoor,2,Devin Pastoor,
+duju211,12,Julian During,
+dylancashman,1,Dylan Cashman,https://www.eecs.tufts.edu/~dcashm01/
+eddelbuettel,1,Dirk Eddelbuettel,http://dirk.eddelbuettel.com
+EdwinTh,1,Edwin Thoen,thats-so-random.com
+elgabbas,1,Ahmed El-Gabbas,https://elgabbas.github.io
+ericwatt,1,Eric Watt,www.ericdwatt.com
+erikerhardt,2,Erik Erhardt,StatAcumen.com
+etiennebr,2,Etienne B. Racine,
+evjrob,1,Everett Robinson,
+flemingspace,1,Flemming Villalona,
+florisvdh,1,Floris Vanderhaeghe,
+gadenbuie,1,Garrick Aden-Buie,https://garrickadenbuie.com
+garrettgman,101,Garrett Grolemund,
+GoldbergData,1,Josh Goldberg,https://twitter.com/GoldbergData
+gridgrad,1,bahadir cankardes,
+gustavdelius,2,Gustav W Delius,
+hadley,725,Hadley Wickham,http://hadley.nz
+hao-trivago,2,Hao Chen,
+harrismcgehee,7,Harris McGehee,https://gist.github.com/harrismcgehee
+hengnicai,1,Hengni Cai,
+iansealy,3,Ian Sealy,
+ijlyttle,3,Ian Lyttle,
+ivan-krukov,1,Ivan Krukov,
+jacobkap,1,Jacob Kaplan,http://crimedatatool.com/
+jazzlw,1,Jazz Weisman,
+jdstorey,1,John D. Storey,http://jdstorey.github.io/
+jeffboichuk,2,Jeff Boichuk,https://www.commerce.virginia.edu/faculty/boichuk
+jefferis,1,Gregory Jefferis,http://www2.mrc-lmb.cam.ac.uk/group-leaders/h-to-m/gregory-jefferis/
+JeldorPKU,1,蒋雨蒙,https://jeldorpku.github.io
+jennybc,6,Jennifer (Jenny) Bryan,https://jennybryan.org
+jenren,1,Jen Ren,
+jeroenjanssens,1,Jeroen Janssens,http://jeroenjanssens.com
+jimhester,2,Jim Hester,http://www.jimhester.com
+jjchern,6,JJ Chen,
+joannejang,2,Joanne Jang,joannejang.com
+johnsears,1,John Sears,
+jonathanflint,1,NA,
+jonmcalder,1,Jon Calder,http://joncalder.co.za
+jonpage,3,Jonathan Page,economistry.com
+jpetuchovas,1,Justinas Petuchovas,
+jroberayalas,7,Jose Roberto Ayala Solares,jroberayalas.netlify.com
+jules32,1,Julia Stewart Lowndes,http://jules32.github.io
+kaetschap,1,Sonja,
+karawoo,1,Kara Woo,http://karawoo.com
+katrinleinweber,1,Katrin Leinweber,
+kdpsingh,5,Karandeep Singh,http://umich.edu/~kdpsingh
+khumph,1,Kyle Humphrey,
+kirillseva,2,Kirill Sevastyanenko,
+koalabearski,1,NA,
+krlmlr,1,Kirill Müller,
+landesbergn,1,Noah Landesberg,noahlandesberg.com
+lindbrook,1,NA,
+maurolepore,2,Mauro Lepore,https://fgeo.netlify.com/
+mbeveridge,6,Mark Beveridge,https://twitter.com/mbeveridge
+mfherman,1,Matt Herman,mattherman.info
+mine-cetinkaya-rundel,4,Mine Cetinkaya-Rundel,https://stat.duke.edu/~mc301
+mjhendrickson,1,Matthew Hendrickson,https://about.me/matthew.j.hendrickson
+MJMarshall,2,NA,
+mustafaascha,1,Mustafa Ascha,
+nareal,1,Nelson Areal,nelsonareal.net
+nate-d-olson,1,Nate Olson,
+nateaff,1,Nathanael,nateaff.com
+nickclark1000,1,Nick Clark,
+nickelas,1,NA,
+nirmalpatel,2,Nirmal Patel,http://playpowerlabs.com
+nmjakobsen,1,Nina Munkholt Jakobsen,http://www.nmjakobsen.com
+Nowosad,6,Jakub Nowosad,https://nowosad.github.io
+peterhurford,1,Peter Hurford,http://www.peterhurford.com
+pkq,4,Patrick Kennedy,
+radugrosu,10,Radu Grosu,radugrosu.com
+Ranae,2,Ranae Dietzel,ranae.github.io
+rgertenbach,1,Robin Gertenbach,
+rlzijdeman,2,Richard Zijdeman,
+Robinlovelace,2,Robin,http://robinlovelace.net
+robinsones,1,Emily Robinson,robinsones.github.io
+RohanAlexander,1,Rohan Alexander,https://www.rohanalexander.com/
+RomeroBarata,1,Romero Morais,
+rudeboybert,1,Albert Y. Kim,http://rudeboybert.rbind.io/
+saghirb,3,Saghir,http://www.ilustat.com
+sauercrowd,1,Jonas,https://blog.sauercrowdlabs.xyz
+schuess,2,Robert Schuessler,
+seamus-mckinsey,4,Seamus McKinsey,
+seanpwilliams,1,NA,
+seasmith,1,Luke Smith,https://seasmith.github.io
+sedaghatfar,3,Matthew Sedaghatfar,
+sekR4,1,Sebastian Kraus,https://www.linkedin.com/in/sebastiankrausjena
+sfirke,1,Sam Firke,samfirke.com
+ShanEllis,1,Shannon Ellis,shanellis.com
+shoili,1,NA,shoili.github.io
+sibusiso16,52,S'busiso Mkhondwane,
+spirgel,2,NA,
+StevenMMortimer,1,Steven M. Mortimer,https://stevenmortimer.com
+stragu,1,Stéphane Guillou,https://stragu.github.io/
+svenski,1,Sergiusz Bleja,
+talgalili,1,Tal Galili,https://www.r-statistics.com
+timwaterhouse,1,Tim Waterhouse,
+tjmahr,1,TJ Mahr,tjmahr.com
+tklebel,4,Thomas Klebel,https://thomasklebel.eu
+tomjamesprior,1,Tom Prior,
+tteo,4,Terence Teo,tteo.github.io
+wibeasley,2,Will Beasley,http://scholar.google.com/citations?user=ffsJTC0AAAAJ&hl=en
+yahwes,3,NA,yahwes.github.io
+yihui,3,Yihui Xie,https://yihui.name
+yimingli,3,Yiming (Paul) Li,https://yimingli.net
+yutannihilation,1,Hiroaki Yutani,https://twitter.com/yutannihilation
+zeal626,1,NA,
+zo0z,1,Azza Ahmed,

index.rmd

@@ -18,4 +18,18 @@ This is the website for __"R for Data Science"__. This book will teach you how t
 This website is (and will always be) __free to use__, and is licensed under the [Creative Commons Attribution-NonCommercial-NoDerivs 3.0](http://creativecommons.org/licenses/by-nc-nd/3.0/us/) License.  If you'd like a __physical copy__ of the book, you can order it from [amazon](http://amzn.to/2aHLAQ1); it was published by O'Reilly in January 2017. If you'd like to __give back__
 please make a donation to [Kākāpō Recovery](https://www.doc.govt.nz/kakapo-donate): the [kākāpō](https://www.youtube.com/watch?v=9T1vfsHYiKY) (which appers on the cover of R4DS) is a critically endangered native NZ parrot; there are only 148 left.
 
-The book is written in [RMarkdown](https://rmarkdown.rstudio.com) with [bookdown](https://bookdown.org). It is automatically rebuilt from [source](https://github.com/hadley/r4ds) by [travis](http://travis-ci.org/).
+The book is written in [RMarkdown](https://rmarkdown.rstudio.com) with [bookdown](https://bookdown.org). It is automatically rebuilt from [source](https://github.com/hadley/r4ds) by [travis](http://travis-ci.org/). R4DS is a collaborative effort and many people have contributed fixes and improvements via pull request. 
+
+```{r, results = "asis", echo = FALSE, message = FALSE}
+library(dplyr)
+contributors <- readr::read_csv("contributors.csv", col_types = list())
+contributors <- contributors %>% 
+  mutate(
+    link = glue::glue("[\\@{login}](https://github.com/{login})"),
+    desc = ifelse(is.na(name), link, glue::glue("{name} ({link})"))
+  )
+
+cat("A big thanks goes to everyone has contributed!\n")
+cat(paste0(contributors$desc, collapse = ", "))
+```
+