library(httr)

res <- GET("https://api.github.com/emojis")

emoji_list <- content(res)
str(emoji_list, list.len = 5)

## List of 888
##  $ +1                             : chr "https://assets-cdn.github.com/images/icons/emoji/unicode/1f44d.png?v6"
##  $ -1                             : chr "https://assets-cdn.github.com/images/icons/emoji/unicode/1f44e.png?v6"
##  $ 100                            : chr "https://assets-cdn.github.com/images/icons/emoji/unicode/1f4af.png?v6"
##  $ 1234                           : chr "https://assets-cdn.github.com/images/icons/emoji/unicode/1f522.png?v6"
##  $ 8ball                          : chr "https://assets-cdn.github.com/images/icons/emoji/unicode/1f3b1.png?v6"
##   [list output truncated]

length(emoji_list)

## [1] 888

cat(sprintf("![%s](%s)", names(emoji_list), unlist(emoji_list)), sep="\n")