Question

某些API使用API调用而不是结果返回令牌，然后使用该令牌进行第二次API调用以获取查询结果。现在，我只是在一个函数中使用Sys.sleep（）来猜测查询完成所需的时间以及令牌是否可用。似乎必须有更好的方法。也就是说，您是否可以每隔X秒或几秒钟迭代地使用令牌发送第二个API调用，直到成功为止？

以下是使用TotalImpact API（http://total-impact.org/api-docs）的最小示例。

require(RCurl); require(stringr); require(RJSONIO)

foo <- function(url, sleep) {
  tt <- getURL(url)
  token <- str_extract(tt[[1]], "[a-z0-9]+")
  message("Pausing a bit for the query to finish...")
  Sys.sleep(time = sleep)
  fromJSON(
    getURL(
      paste("http://total-impact-core.herokuapp.com/item/", token, sep='')))
}
myurl <- "http://total-impact-core.herokuapp.com/tiid/doi/10.1371/journal.pcbi.1000361"
sleeptime <- 4
foo(myurl, sleeptime)

> sessionInfo()
R version 2.15.1 (2012-06-22)
Platform: x86_64-apple-darwin9.8.0/x86_64 (64-bit)

locale:
[1] C/en_US.UTF-8/C/C/C/C

attached base packages:
[1] stats     graphics  grDevices utils     datasets  methods   base     

other attached packages:
[1] RJSONIO_0.98-1 stringr_0.6    RCurl_1.91-1   bitops_1.0-4.1 devtools_0.7  

loaded via a namespace (and not attached):
[1] digest_0.5.2 httr_0.1.1   memoise_0.1  plyr_1.7.1   tools_2.15.1

如何知道何时可以使用令牌？

0 个答案: