Fix checks

Fixes #314

DESCRIPTION

@@ -54,4 +54,4 @@ LazyData: true
 RoxygenNote: 7.3.2
 Config/testthat/edition: 3
 Depends: 
-    R (>= 2.10)
+    R (>= 3.5)

R/oa_fetch.R

@@ -22,11 +22,11 @@ oa_entities <- function() {
 #' The argument is ignored if entity is different from "works".
 #' @param output Character.
 #' Type of output, one of `"tibble"`, `"dataframe"`, `"list"`, or `"raw"`.
-##' \itemize{
-##'  \item{"tibble"}: {a tibble tidy data}
-##'  \item{"dataframe"}: {a base data.frame tidy data}
-##'  \item{"list"}: {a list of parsed JSON contents}
-##'  \item{"raw"}: {a list of raw JSON strings (length depends on query)}
+##' \describe{
+##'  \item{tibble}{a tibble tidy data}
+##'  \item{dataframe}{a base data.frame tidy data}
+##'  \item{list}{a list of parsed JSON contents}
+##'  \item{raw}{a list of raw JSON strings (length depends on query)}
 ##' }
 #'
 #' @return A data.frame or a list. Result of the query.

data-raw/coverage-works.csv

@@ -1,5 +1,6 @@
 original,oa2df,comment
 abstract_inverted_index,abstract,reconstructed from inverted index
+abstract_inverted_index_v3,NA,
 apc_list.currency,apc.currency,
 apc_list.provenance,apc.provenance,
 apc_list.value,apc.value,
@@ -83,4 +84,4 @@ topics,topics,
 type,type,
 type_crossref,NA,
 updated_date,NA,
-versions,NA,
+versions,NA,

data-raw/gen-data.R

@@ -1,3 +1,5 @@
+source("./R/oa_fetch.R")
+
 # concept_abbrev <- tibble::tribble(
 #                                 ~id,           ~display_name, ~abbreviation,
 #    "https://openalex.org/C41008148",      "Computer science",  "Comput Sci",
@@ -47,7 +49,8 @@ concept_abbrev <- tibble::tribble(
 oa2df_coverage <- list()
 for (entity in setdiff(oa_entities(), "concepts")) {
   oa2df_coverage[[entity]] <- readr::read_csv(
-    sprintf("data-raw/coverage-%s.csv", entity)
+    sprintf("data-raw/coverage-%s.csv", entity),
+    show_col_types = FALSE
   )
 }
 

tests/testthat/test-oa_fetch.R

@@ -416,20 +416,19 @@ test_that("different paging methods yield the same result", {
     entity = "works",
     title.search = c("bibliometric analysis", "science mapping"),
     cited_by_count = ">50",
+    options = list(select = "id"),
     from_publication_date = "2021-01-01",
     to_publication_date = "2021-12-31",
-    options = list(select = "id"),
+    verbose = TRUE,
     pages = c(2, 4:5),
-    per_page = 10,
-    verbose = TRUE
+    per_page = 10
   )
+
   expect_equal(
     w0[c(11:20, 31:min(50, nrow(w0))), ],
     w24
   )
 
-
-
 })
 
 test_that("pages works", {