```r
contributors = readr::read_csv("extdata/contributors.csv")
#> Parsed with column specification:
#> cols(
#>   name = col_character(),
#>   link = col_character()
#> )
c_txt = contributors$name
c_url = contributors$link
c_rmd = paste0("[", c_txt, "](", c_url, ")")
contributors_text = paste0(c_rmd, collapse = ", ")
```