Thank GitHub contributors in your articles

thank_GitHub_contributors.R

# Thanks for article
library(purrr)
library(gh)

repos <- gh("/repos/statnmap/gitlabr/stats/contributors")
map(repos, "author") %>% map("login")

map_chr(repos, ~paste0(
  # "[&#x0040;", # With @ before 
  "[",
  pluck(.x, "author", "login"),
  "](",
  pluck(.x, "author", "html_url"),
  ")"
  )
) %>% 
  glue::glue_collapse(sep = ", ", last = " and ")
  
  # [statnmap](https://github.com/statnmap), [KevCaz](https://github.com/KevCaz), [JiaxiangBU](https://github.com/JiaxiangBU), [RLesur](https://github.com/RLesur) and [jirkalewandowski](https://github.com/jirkalewandowski)