使用包计算电子邮件地址的哈希值digest:
d <- digest('ab@c.com', algo='md5', serialize=FALSE)
d
## [1] "b1554c62bf1d05a4a9c48754a6619c17"
Run Code Online (Sandbox Code Playgroud)
然后向gravatar询问图片:
download.file(paste0('http://www.gravatar.com/avatar/', d, '.png?d=identicon'), mode='wb', destfile='ab.png')
## trying URL 'http://www.gravatar.com/avatar/b1554c62bf1d05a4a9c48754a6619c17.png?d=identicon'
## Content type 'image/png' length 2280 bytes
## opened URL
## ==================================================
## downloaded 2280 bytes
Run Code Online (Sandbox Code Playgroud)

这mode='wb'是Windows系统所必需的. mode='w'是默认值,b在非Windows系统上将忽略该标志.