Merge pull request #226 from ropensci/fix-title

Add title for works
ropensci · Apr 6, 2024 · fa108bb · fa108bb
2 parents bc8e677 + 5f0c598
commit fa108bb
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 2 deletions.
diff --git a/R/oa2df.R b/R/oa2df.R
@@ -137,7 +137,7 @@ works2df <- function(data, abstract = TRUE, verbose = TRUE,
                      pb = if (verbose) oa_progress(length(data)) else NULL) {
 
   col_order <- c(
-    "id", "display_name", "author", "ab", "publication_date", "relevance_score",
+    "id", "title", "display_name", "author", "ab", "publication_date", "relevance_score",
     "so", "so_id", "host_organization", "issn_l", "url", "pdf_url",
     "license", "version", "first_page", "last_page", "volume", "issue", "is_oa",
     "is_oa_anywhere", "oa_status", "oa_url", "any_repository_has_fulltext",
@@ -150,6 +150,7 @@ works2df <- function(data, abstract = TRUE, verbose = TRUE,
     ~type, ~field,
     "identical", "id",
     "identical", "display_name",
+    "identical", "title",
     "identical", "publication_date",
     "identical", "doi",
     "identical", "type",

diff --git a/tests/testthat/test-oa_fetch.R b/tests/testthat/test-oa_fetch.R
@@ -364,7 +364,7 @@ test_that("oa_fetch works with 1 identifier", {
   expect_s3_class(s, "data.frame")
   expect_s3_class(co, "data.frame")
 
-  expect_equal(dim(w), c(1, 37))
+  expect_equal(dim(w), c(1, 38))
   expect_equal(dim(a), c(1, 17))
   expect_equal(dim(i), c(1, 21))
   expect_equal(dim(f), c(1, 17))