Merge pull request #65 from kbroman/cran

Package had stopped working

Author: kbroman

.github/workflows/R-CMD-check.yaml

@@ -2,11 +2,12 @@
 # Need help debugging build failures? Start at https://github.com/r-lib/actions#where-to-find-help
 on:
   push:
-    branches: [main, master]
+    branches: [main, master, cran]
   pull_request:
-    branches: [main, master]
 
-name: R-CMD-check
+name: R-CMD-check.yaml
+
+permissions: read-all
 
 jobs:
   R-CMD-check:
@@ -29,7 +30,7 @@ jobs:
       R_KEEP_PKG_SOURCE: yes
 
     steps:
-      - uses: actions/checkout@v3
+      - uses: actions/checkout@v4
 
       - uses: r-lib/actions/setup-pandoc@v2
 
@@ -47,3 +48,4 @@ jobs:
       - uses: r-lib/actions/check-r-package@v2
         with:
           upload-snapshots: true
+          build_args: 'c("--no-manual","--compact-vignettes=gs+qpdf")'

DESCRIPTION

@@ -1,7 +1,7 @@
 Package: aRxiv
 Title: Interface to the arXiv API
-Version: 0.10
-Date: 2024-02-29
+Version: 0.12
+Date: 2025-07-29
 Authors@R: c(person("Karthik", "Ram", role="aut",
     email="karthik.ram@gmail.com", comment=c(ORCID = "0000-0002-0233-1757")),
     person("Karl", "Broman", role=c("aut","cre"),
@@ -28,5 +28,5 @@ Suggests:
 VignetteBuilder: knitr
 Encoding: UTF-8
 LazyData: true
-RoxygenNote: 7.3.1
+RoxygenNote: 7.3.2
 Roxygen: list(markdown = TRUE)

NEWS.md

@@ -1,3 +1,15 @@
+aRxiv 0.12
+----------
+
+### BUG FIXES
+
+* The package had totally stopped working. Got it working again by
+  using `GET` rather than `POST`, and `query` rather than `body`.
+
+* Fixed a typo in `arxiv_count()` that had been introduced way back in
+  December, 2014.
+
+
 aRxiv 0.10
 ----------
 

R/arxiv_count.R

@@ -47,10 +47,10 @@ function(query=NULL, id_list=NULL)
     # (extra messy to avoid possible problems when testing on CRAN
     #    timeout_action defined in timeout.R)
     body <- list(search_query=query, id_list=id_list,
-                 start=0, max_gresults=0)
+                 start=0, max_results=0)
     body <- drop_nulls(body)
-    search_result <- try(httr::POST(query_url,
-                                    body=body,
+    search_result <- try(httr::GET(query_url,
+                                    query=body,
                                     httr::timeout(get_arxiv_timeout())))
     if(inherits(search_result, "try-error")) {
         timeout_action()

R/arxiv_search.R

@@ -138,8 +138,8 @@ function(query=NULL, id_list=NULL, start=0, limit=10,
                  start=start, max_results=limit,
                  sortBy=recode_sortby(sort_by), sortOrder=sort_order)
     body <- drop_nulls(body)
-    search_result <- try(httr::POST(query_url,
-                                    body=body,
+    search_result <- try(httr::GET(query_url,
+                                    query=body,
                                     httr::timeout(get_arxiv_timeout())))
     if(inherits(search_result, "try-error")) {
         timeout_action()

R/can_arxiv_connect.R

@@ -18,11 +18,11 @@ can_arxiv_connect <-
 {
     query_url <- "http://export.arxiv.org/api/query"
 
-    result <- tryCatch(z <- httr::POST(query_url, body=list(search_query="all:electron", max_results=0),
+    result <- tryCatch(z <- httr::GET(query_url, query=list(search_query="all:electron", max_results=0),
                                        httr::timeout(max_time)),
                        error=function(e) paste("Failure to connect in arxiv_check"))
 
-    # check for error in httr::POST
+    # check for error in httr::GET
     if(!is.null(result) && length(result)==1 &&
        result == "Failure to connect in arxiv_check") {
         warning("Failed to connect to ", query_url, " in ", max_time, " sec")

tests/testthat/test-arxiv_errors.R

@@ -13,12 +13,12 @@ test_that("arxiv_error_message gives right info", {
     query_url <- "http://export.arxiv.org/api/query"
 
     delay_if_necessary()
-    good <- POST(query_url, body=list(id_list="1403.3048,1402.2633,1309.1192"))
+    good <- GET(query_url, query=list(id_list="1403.3048,1402.2633,1309.1192"))
     good <- result2list(good)
     expect_null(arxiv_error_message(good))
 
     delay_if_necessary()
-    bad <- POST(query_url, body=list(id_list="1403.3048,1402.2633,1309.119"))
+    bad <- GET(query_url, query=list(id_list="1403.3048,1402.2633,1309.119"))
     bad <- result2list(bad)
     expect_equal(arxiv_error_message(bad), "incorrect id format for 1309.119")
 

tests/testthat/test-clean.R

@@ -17,7 +17,7 @@ if(!on_cran) {
     query_url <- "http://export.arxiv.org/api/query"
     delay_if_necessary()
 
-    z <- httr::POST(query_url, body=list(search_query=query,
+    z <- httr::GET(query_url, query=list(search_query=query,
                                          start=0, max_results=20,
                                          sort_by="submitted"))
     z <- get_entries(result2list(z))
@@ -74,7 +74,7 @@ test_that("clean_links works right", {
 
     # manuscript with multiple DOI links
     delay_if_necessary()
-    zz <- POST(query_url, body=list(id_list="1206.1585v3",
+    zz <- GET(query_url, query=list(id_list="1206.1585v3",
                                     start=0, max_results=1))
     zz <- get_entries(result2list(zz))
 
@@ -100,7 +100,7 @@ test_that("clean_categories works right", {
 
     # manuscript with 6 categories
     delay_if_necessary()
-    zz <- POST(query_url, body=list(id_list="1303.5613v1",
+    zz <- GET(query_url, query=list(id_list="1303.5613v1",
                                     start=0, max_results=1))
     zz <- get_entries(result2list(zz))
 

vignettes/aRxiv.Rmd

@@ -263,8 +263,8 @@ A few short notes:
   (e.g., `stat.AP`) but also codes for the
   [Mathematical Subject Classification (MSC)](https://mathscinet.ams.org/mathscinet/msc/msc2010.html) (e.g., 14J60)
   and the
-  [ACM Computing Classification System](https://www.acm.org/publications/class-2012)
-  (e.g., F.2.2). These are not searchable with `cat:` but are
+  ACM Computing Classification System
+  (e.g., F.2.2, see `www.acm.org/publications/class-2012`). These are not searchable with `cat:` but are
   searchable with a general search.
 
 ```{r search_msc}