如果没有一个适当的可重复的例子,这是一种猜测工作,但更常见的策略是这样的
alldata <- dplyr::bind_rows(lapply(as.character(org_list[[1]]), function(reporter) {
req <- GET(“https://myjira.com/“,
path = “rest/api/2/search”,
query = list(jql = paste0(“project in (ABC,DEF,XYZ) AND reporter = “, reporter), maxResults = 500),
authenticate(my_UN, my_PW),
verbose()
)
api_request_content <- httr::content(req, as = “text”)
api_request_content_flat <- fromJSON(api_request_content, flatten = TRUE)
as.data.frame(api_request_content_flat$issues)
}))
</code>