Refactor gutenberg_download().

DESCRIPTION

@@ -16,7 +16,7 @@ URL: https://docs.ropensci.org/gutenbergr/,
     https://github.com/ropensci/gutenbergr
 BugReports: https://github.com/ropensci/gutenbergr/issues
 Depends: 
-    R (>= 2.10)
+    R (>= 4.1)
 Imports:
     cli,
     dplyr,
@@ -25,19 +25,23 @@ Imports:
     magrittr,
     purrr,
     readr,
+    rlang,
     stringr,
+    tibble,
     urltools
 Suggests: 
     curl,
     knitr,
     rmarkdown,
     testthat,
     tidyr,
-    tidytext
+    tidytext,
+    withr
 VignetteBuilder: 
     knitr
 Encoding: UTF-8
 Language: en-US
 LazyData: TRUE
 LazyDataCompression: xz
+Roxygen: list(markdown = TRUE)
 RoxygenNote: 7.3.2

NAMESPACE

@@ -8,3 +8,4 @@ importFrom(dplyr,count)
 importFrom(dplyr,distinct)
 importFrom(dplyr,filter)
 importFrom(magrittr,"%>%")
+importFrom(rlang,"%||%")

NEWS.md

@@ -2,8 +2,6 @@
 
 # gutenbergr 0.2.4
 
-# New Version
-
 * Update data scraping process to use R end-to-end (@jonthegeek, #36).
 
 # gutenbergr 0.2.3 (2022-12-13)

R/data.R

@@ -188,3 +188,23 @@
 #'
 #' @seealso \link{gutenberg_metadata}, \link{gutenberg_subjects}
 "gutenberg_languages"
+
+
+#' Sample Book Downloads
+#'
+#' A tibble of book text for two sample books, generated using
+#' [gutenberg_download()].
+#'
+#' @details This code was used to download the books:
+#' `gutenberg_download(c(109, 105), meta_fields = c("title", "author"))`
+#'
+#' @format A tbl_df (from [tibble::tibble()]) with one row for each
+#' line of text from each book, with columns:
+#' \describe{
+#'   \item{gutenberg_id}{Unique identifier for the work that can
+#'   be used to join with the \link{gutenberg_metadata} dataset.}
+#'   \item{text}{A character vector of lines of text.}
+#'   \item{title}{The title of this work.}
+#'   \item{author}{The author of this work.}
+#' }
+"sample_books"