我有一个包含一些图像的文件夹（在 .png 和 .jpg 中）。我的目标是将它们全部上传到 imgur.com 并取回每个链接或 ID。
我尝试安装 imguR 和 imgur_upload 两个软件包，但未能安装它们。
有什么快速的解决方法吗？
【问题讨论】：
标签： r image-uploading imgur
首先，如果您在默认浏览器中登录了您的 imgur 帐户，请退出。在 R 中，尝试
tkn <- imgur_login()
您的浏览器将尝试打开：
https://api.imgur.com/oauth2/authorize?response_type=code&client_id=1babd0decbb90f2&redirect_uri=http%3A%2F%2Flocalhost%3A1410%2F&state=yVKVeDejjB
并给出错误：
{"data":{"error":"redirect_uri_mismatch","request":"\/oauth2\/authorize","method":"GET"},"success":false,"status":400}
删除url末尾，留下：
https://api.imgur.com/oauth2/authorize?response_type=code&client_id=1babd0decbb90f2
现在您将看到使用您的用户名和密码登录的屏幕，然后您将获得：
身份验证完成。请关闭此页面并返回 R。
#upload images
listoffileIDs <- character()
mylistf <- list.files(pattern = ".jpg|.png")
lapply(seq_along(mylistf), function(i)
{
y <- upload_image(mylistf[[i]], token = tkn)
Sys.sleep(5)
listoffileIDs[[i]] <<- paste(unlist(account_images(token = tkn))[[1]])
y
})
data.frame(mylistf = mylistf, listoffileIDs = listoffileIDs)
#add images to new album
firstalbum <- create_album(listoffileIDs, title = "firstalbum",
privacy = "hidden" , token = tkn)
firstalbum$id # album id
# add images to extant album https://imgur.com/a/ALBUMID
# example: get ID of first album
firstalbum <- account_albums(token = tkn)[[1]]#
add_album_images(firstalbum, listoffileIDs, token = tkn)
【讨论】：
你可以用 knitr 做到这一点。这将上传一张图片并返回您的 URL：
setwd("yourWD")
install.packages(knitr)
install.packages("RCurl")
install.packages("XML")
knitr::imgur_upload("fish2.jpg", key = "Yourimguraccountkey")
【讨论】：
Error: Bad Request 不知道为什么......它工作过一次。另外，我怎样才能获得自己的密钥？