File per export (ropensci#81)

* Document `gutenberg_add_metadata`

* Restructure exports/test (ropensci#67)

R/gutenberg_download.R

@@ -149,7 +149,13 @@ read_next <- function(possible_urls) {
   }
 }
 
-
+#' Join metadata fields to Gutenberg works
+#'
+#' @param gutenberg_tbl A two column `tbl_df` from `gutenberg_download`.
+#' @inheritParams gutenberg_download
+#'
+#' @return A `tbl_df` of the Gutenberg works with joined metadata.
+#' @keywords internal
 gutenberg_add_metadata <- function(gutenberg_tbl, meta_fields) {
   meta_fields <- union("gutenberg_id", meta_fields)
   dplyr::left_join(

tests/testthat/test-data.R

@@ -0,0 +1,11 @@
+test_that("All four datasets have a date-updated", {
+  d1 <- attr(gutenberg_metadata, "date_updated")
+  d2 <- attr(gutenberg_subjects, "date_updated")
+  d3 <- attr(gutenberg_authors, "date_updated")
+  d4 <- attr(gutenberg_languages, "date_updated")
+
+  expect_s3_class(d1, "Date")
+  expect_s3_class(d2, "Date")
+  expect_s3_class(d3, "Date")
+  expect_s3_class(d4, "Date")
+})

tests/testthat/test-metadata.R → tests/testthat/test-gutenberg_works.R

@@ -52,16 +52,3 @@ test_that("gutenberg_works gives error messages with named arguments", {
     "named arguments"
   )
 })
-
-
-test_that("All four datasets have a date-updated", {
-  d1 <- attr(gutenberg_metadata, "date_updated")
-  d2 <- attr(gutenberg_subjects, "date_updated")
-  d3 <- attr(gutenberg_authors, "date_updated")
-  d4 <- attr(gutenberg_languages, "date_updated")
-
-  expect_s3_class(d1, "Date")
-  expect_s3_class(d2, "Date")
-  expect_s3_class(d3, "Date")
-  expect_s3_class(d4, "Date")
-})