从 LRS 获取 xAPI 语句

Question

看看下面的代码。

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

从 LRS 获取 xAPI 语句

GET xAPI statements from a LRS

json

r

httr

xapi