R:上传图片到imgur

Question

我有一个包含一些图像的文件夹(在.png和.jpg中)。我的目标是将它们全部上传到imgur.com，并从每个链接或ids中取回链接或ids。

我试着安装imguR和imgur_upload两种软件包，但都想安装它们。

有快速的工作吗？

Answer 1

你可以用针织品做这个。这将上传一个图像并返回您的URL：

setwd("yourWD")
install.packages(knitr)
install.packages("RCurl")
install.packages("XML")
knitr::imgur_upload("fish2.jpg", key = "Yourimguraccountkey")

Answer 2

首先，如果您在默认浏览器中登录了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)