使用tryCatch或其他处理Rfacebook中的callAPI错误

Question

我有一个可能包含错误的Facebook用户名列表。 我想打电话给他们的很多人，并获得每个人有多少喜欢。 如果getUsers遇到错误的用户名，我想将其从列表中删除，然后重试。

我想在Rfacebook中做到这一点（但是如果答案是我必须使用httr并自己编写GET请求，就这样吧）。

load("fbCred.RData") # you will need a Facebook credential to execute this

library(Rfacebook)

fb_users <- c("brucespringsteen","coldplay")
fb_likes <- tryCatch(getUsers(users=fb_users,token=fbCred)$likes)
fb_likes # Returns: [1]  4807200 36768913

fb_users <- c("brucespringsteen","coldplay","This-Bad-Name-Will-Fail")
fb_likes <- tryCatch(getUsers(users=fb_users,token=fbCred)$likes)
# Returns:
# Error in callAPI(query, token) : 
#   (#803) Some of the aliases you requested do not exist: This-Bad-Name-Will-Fail
if(inherits(fb_likes,"error")){
  # I want to remove the one that failed from the list of users and try again. 
  # But the callAPI error never makes it into fb_likes. 
}

有没有办法在Rfacebook中做到这一点？ 如何检索不良用户的名称，以便可以将其从列表中删除并重试？

编辑：我知道我可以一遍遍地遍历用户名。 这是我当前的解决方法（使用adply），但是需要更长的时间。

Answer 1

该错误属于“ try-error”类，而不是“ error”类。 另外，您需要使用try ，而不是tryCatch ：

fb_likes <- try(getUsers(users=fb_users,token=fbCred)$likes)
if(inherits(fb_likes, "try-error")) { ... }

应该管用。 tryCatch更复杂，并且需要不同的结构，例如：

tryCatch(
  fb_likes <- getUsers(users=fb_users,token=fbCred)$likes,
  error=function(e) { 
    err.msg <- conditionMessage(e)
    ...
} )

Answer 2

load("fbCred.RData") # you will need a Facebook credential to execute this

library(Rfacebook)

fb_users <- c("brucespringsteen","coldplay","This_Will_Fail","Bad_Bad_Bad")

fb_likes <- try(getUsers(users=fb_users,token=fbCred)$likes)

if(inherits(fb_likes,"try-error")){
  bad_users <- unlist(strsplit(sub(".*exist\\:\\s+(.*)\\n$","\\1",
                           fb_likes[1]),split=","))
  print(paste("These user names failed, removing:", 
          paste(bad_users,collapse=", ")))
  fb_users <- setdiff(fb_users,bad_users)
  fb_likes <- getUsers(users=fb_users,token=fbCred)$likes
}
print(data.frame(fb_users,fb_likes))

产生所需的输出：

[1] "These user names failed, removing: This_Will_Fail, Bad_Bad_Bad"

          fb_users fb_likes
1 brucespringsteen  4808496
2         coldplay 36786558

要提取不良用户列表（使用正则表达式和strsplit），可以从geterrmessage()开始（假设这是最后一个错误），但是从try-error对象本身开始可能更可靠。 然后，我使用setdiff删除不良用户。