0

看看下面的代码。

我的目标是从学习记录存储 (LRS) 获取 xAPI 语句。

该代码能够从 LRS 获取前 100 个 xAPI 语句 - 100 是每页显示的最大语句数 - 但不是之后的语句。

为了解决上述问题，我尝试创建一个循环，在其中使用计数器来获取接下来的 100 条语句，依此类推。然而，我遇到了麻烦。当前代码不保存接下来的 100 个 xAPI 语句。它只是一遍又一遍地保存前 100 个。我该如何解决？

如果您需要更多信息，请告诉我。

output <- data.frame()
counter <- 001L

base <- "https://lrs.com/servlet/ekp/xAPI/statements?from="
url <- paste0(base,counter)

while (TRUE) {
  res <- tryCatch({
    dat <- GET(url, authenticate(username, password, type = "basic"))
    dat <- content(dat, "text", encoding = "UTF-8")
    fromJSON(dat, flatten = TRUE)
  },error = function(e) NULL)
  if (length(res$statements) == 0) break
    output <- bind_rows(output, res$statements)
    counter <- counter + 100L
    print(counter)
}

output <- do.call(rbind, output)
4

1 回答 1

1

url不会改变，它应该包含在循环while中。

while (TRUE) {
  url <- paste0(base,counter)
  res <- tryCatch({
    dat <- GET(url, authenticate(username, password, type = "basic"))
    dat <- content(dat, "text", encoding = "UTF-8")
    fromJSON(dat, flatten = TRUE)
  },error = function(e) NULL)
  if (length(res$statements) == 0) break
  output <- bind_rows(output, res$statements)
  counter <- counter + 100L
  print(counter)
}
于 2021-06-26T13:24:59.250 回答