Remove lazyeval dependency. (#74)

Closes #60.

DESCRIPTION

@@ -5,6 +5,7 @@ Authors@R: c(
     person("Jon", "Harmon", , "[email protected]", role = c("aut", "cre"),
            comment = c(ORCID = "0000-0003-4781-4346")),
     person("Myfanwy", "Johnston", , "[email protected]", role = "aut"),
+    person("Jordan", "Bradford", , "[email protected]", role = "aut"),
     person("David", "Robinson", , "[email protected]", role = c("aut", "cph"))
   )
 Description: Download and process public domain works in the Project
@@ -21,7 +22,6 @@ Imports:
     cli,
     dplyr,
     glue,
-    lazyeval,
     magrittr,
     purrr,
     readr,

NEWS.md

@@ -1,6 +1,8 @@
 # gutenbergr (development version)
 
-* `gutenberg_get_all_mirrors()` has been added to retrieve mirror data (@jrdnbradford, #58)
+* `gutenberg_download()` tries the `.txt` version of files when the `.zip` is unavailable (@jrdnbradford, #55).
+* New function `gutenberg_get_all_mirrors()` retrieves all mirror data (@jrdnbradford, #58).
+* The package infrastructure has been updated to make the package more robust and maintainable.
 
 # gutenbergr 0.2.4
 
@@ -14,7 +16,7 @@
 
 * Updated metadata (#32, #29)
 * minor bug fixes and improvements, including removing broken url and updating documentation to comply with CRAN roxygen2 requirements (#30, #31, #35, #28).
-* Changed maintainer (#30)
+* Changed maintainer (#30).
 
 # gutenbergr 0.2.0
 

R/gutenberg_download.R

@@ -129,7 +129,8 @@ try_gutenberg_download <- function(url) {
         "i" = "The book may have been archived.",
         "i" = "Alternatively, You may need to select a different mirror.",
         ">" = "See https://www.gutenberg.org/MIRRORS.ALL for options."
-      )
+      ),
+      class = "gutenbergr-warning-download_failure"
     )
   }
   return(ret)

R/gutenberg_works.R

@@ -69,17 +69,19 @@ gutenberg_works <- function(..., languages = "en",
                             distinct = TRUE,
                             all_languages = FALSE,
                             only_languages = TRUE) {
-  dots <- lazyeval::lazy_dots(...)
-  if (length(dots) > 0 && any(names(dots) != "")) {
-    cli::cli_abort(
-      c(
-        x = "We detected a named input.",
-        i = "Use == expressions, not named arguments.",
-        i = "For example, use gutenberg_works(author == 'Dickens, Charles'),",
-        i = "not gutenberg_works(author = 'Dickens, Charles')."
+  rlang::check_dots_unnamed(
+    error = function(e) {
+      cli::cli_abort(
+        c(
+          x = "We detected a named input.",
+          i = "Use == expressions, not named arguments.",
+          i = "For example, use gutenberg_works(author == 'Dickens, Charles'),",
+          i = "not gutenberg_works(author = 'Dickens, Charles')."
+        ),
+        call = rlang::env_parent()
       )
-    )
-  }
+    }
+  )
   ret <- filter(gutenberg_metadata, ...)
 
   if (!is.null(languages)) {

tests/testthat/test-gutenberg_download.R

@@ -29,3 +29,15 @@ test_that("gutenberg_download works", {
   )
   expect_identical(test_result, gutenbergr::sample_books)
 })
+
+test_that("try_gutenberg_download errors informatively with no return", {
+  local_mocked_bindings(
+    read_next = function(url) {
+      return(NULL)
+    }
+  )
+  expect_warning(
+    try_gutenberg_download("https://example.com"),
+    class = "gutenbergr-warning-download_failure"
+  )
+})