Last updated on 2024-12-18 19:49:19 CET.
Flavor | Version | Tinstall | Tcheck | Ttotal | Status | Flags |
---|---|---|---|---|---|---|
r-devel-linux-x86_64-debian-clang | 1.4.0 | 3.20 | 31.11 | 34.31 | OK | |
r-devel-linux-x86_64-debian-gcc | 1.4.0 | 2.35 | 22.63 | 24.98 | OK | |
r-devel-linux-x86_64-fedora-clang | 1.4.0 | 54.17 | OK | |||
r-devel-linux-x86_64-fedora-gcc | 1.4.0 | 54.79 | OK | |||
r-devel-windows-x86_64 | 1.4.0 | 5.00 | 62.00 | 67.00 | OK | |
r-patched-linux-x86_64 | 1.4.0 | 2.75 | 28.48 | 31.23 | ERROR | |
r-release-linux-x86_64 | 1.4.0 | 2.85 | 29.62 | 32.47 | OK | |
r-release-macos-arm64 | 1.4.0 | 35.00 | OK | |||
r-release-macos-x86_64 | 1.4.0 | 44.00 | OK | |||
r-release-windows-x86_64 | 1.4.0 | 4.00 | 63.00 | 67.00 | OK | |
r-oldrel-macos-arm64 | 1.4.0 | 31.00 | OK | |||
r-oldrel-macos-x86_64 | 1.4.0 | 50.00 | OK | |||
r-oldrel-windows-x86_64 | 1.4.0 | 6.00 | 71.00 | 77.00 | OK |
Version: 1.4.0
Check: examples
Result: ERROR
Running examples in ‘openalexR-Ex.R’ failed
The error most likely occurred in:
> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: oa_generate
> ### Title: Iterating through records
> ### Aliases: oa_generate
>
> ### ** Examples
>
> if (require("coro")) {
+ # Example 1: basic usage getting one record at a time
+ query_url <- "https://api.openalex.org/works?filter=cites%3AW1160808132"
+ oar <- oa_generate(query_url, verbose = TRUE)
+ p1 <- oar() # record 1
+ p2 <- oar() # record 2
+ p3 <- oar() # record 3
+ head(p1)
+ head(p3)
+
+ # Example 2: using `coro::loop()` to iterate through the generator
+ query_url <- "https://api.openalex.org/works?filter=cited_by%3AW1847168837"
+ oar <- oa_generate(query_url)
+ coro::loop(for (x in oar) {
+ print(x$id)
+ })
+
+ # Example 3: save records in blocks of 100
+ query_url <- "https://api.openalex.org/works?filter=cites%3AW1160808132"
+ oar <- oa_generate(query_url)
+ n <- 100
+ recs <- vector("list", n)
+ i <- 0
+
+ coro::loop(for (x in oar) {
+ j <- i %% n + 1
+ recs[[j]] <- x
+ if (j == n) {
+ # saveRDS(recs, sprintf("rec-%s.rds", i %/% n))
+ recs <- vector("list", n) # reset recs
+ }
+ i <- i + 1
+ })
+ head(x)
+ j
+ # 398 works total, so j = 98 makes sense.
+
+ # You can also manually call the generator until exhausted
+ # using `while (!coro::is_exhausted(record_i))`.
+ # More details at https://coro.r-lib.org/articles/generator.html.
+
+ }
Loading required package: coro
Getting record 1 of 489 records...
Getting record 2 of 489 records...
Getting record 3 of 489 records...
[1] "https://openalex.org/W4248184440"
[1] "https://openalex.org/W1521059904"
[1] "https://openalex.org/W2063977404"
[1] "https://openalex.org/W1987736762"
[1] "https://openalex.org/W2127626512"
[1] "https://openalex.org/W2135732400"
Error in res[[result_name]][[j]] : subscript out of bounds
Calls: <Anonymous> ... <Anonymous> -> user -> <<- -> env_poke -> eval_bare
Execution halted
Flavor: r-patched-linux-x86_64