从LRS获取xAPI语句

Question

看一下下面的代码。

我的目标是从学习记录存储(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)

Answer 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)
}