Running ‘test-all.R’ [2s/3s]
Running the tests in ‘tests/test-all.R’ failed.
Complete output:
  > library("testthat")
  > test_check("rplos")
  Loading required package: rplos
  ── 1. Error: facetplos (@test-facetplos.R#5)  ──────────────────────────────────
  Please install 'httr'
  1: vcr::use_cassette("facetplos", {
         aa <- facetplos(q = "*:*", facet.field = "journal")
         bb <- facetplos(q = "alcohol", facet.field = c("journal", "subject"))
         cc <- facetplos(q = "alcohol", facet.field = "journal", facet.mincount = "500")
         dd <- facetplos(q = "*:*", facet.field = "journal", facet.query = "cell,bird")
         expect_is(aa, "list")
         expect_null(aa$facet_queries)
         expect_is(aa$facet_fields, "list")
         expect_is(aa$facet_fields[[1]], "data.frame")
         expect_is(bb, "list")
         expect_null(bb$facet_queries)
         expect_is(bb$facet_fields, "list")
         expect_is(bb$facet_fields[[1]], "data.frame")
         expect_is(bb$facet_fields[[2]], "data.frame")
         expect_named(bb$facet_fields, c("journal", "subject"))
         expect_is(cc, "list")
         expect_null(cc$facet_queries)
         expect_is(cc$facet_fields, "list")
         expect_is(cc$facet_fields[[1]], "data.frame")
         expect_named(cc$facet_fields, "journal")
         expect_lt(NROW(cc$facet_fields$journal), NROW(aa$facet_fields$journal))
         expect_is(dd, "list")
         expect_is(dd$facet_queries, "data.frame")
         expect_is(dd$facet_fields, "list")
         expect_is(dd$facet_fields[[1]], "data.frame")
         expect_named(dd$facet_fields, "journal")
     }) at testthat/test-facetplos.R:5
  2: insert_cassette(name, record = record, match_requests_on = match_requests_on, update_content_length_header = update_content_length_header, 
         allow_playback_repeats = allow_playback_repeats, serialize_with = serialize_with, 
         persist_with = persist_with, preserve_exact_body_bytes = preserve_exact_body_bytes)
  3: webmockr::enable()
  4: vapply(http_lib_adapter_registry$adapters, function(z) {
         z$enable()
     }, logical(1))
  5: FUN(X[[i]], ...)
  6: z$enable()
  7: httr_mock(TRUE)
  8: check_for_pkg("httr")
  9: stop(sprintf("Please install '%s'", x), call. = FALSE)
  
  ── 2. Error: facetplos fails well (@test-facetplos.R#49)  ──────────────────────
  Please install 'httr'
  1: vcr::use_cassette("facetplos-failswell", {
         expect_error(facetplos(), "didn't detect any facet. fields")
         expect_error(facetplos("*:*", facet.field = "adsfad"), "400 - undefined field")
     }) at testthat/test-facetplos.R:49
  2: insert_cassette(name, record = record, match_requests_on = match_requests_on, update_content_length_header = update_content_length_header, 
         allow_playback_repeats = allow_playback_repeats, serialize_with = serialize_with, 
         persist_with = persist_with, preserve_exact_body_bytes = preserve_exact_body_bytes)
  3: webmockr::enable()
  4: vapply(http_lib_adapter_registry$adapters, function(z) {
         z$enable()
     }, logical(1))
  5: FUN(X[[i]], ...)
  6: z$enable()
  7: httr_mock(TRUE)
  8: check_for_pkg("httr")
  9: stop(sprintf("Please install '%s'", x), call. = FALSE)
  
  ── 3. Error: full_text_urls - NA's on annotation DOIs (@test-fulltext.R#29)  ───
  Please install 'httr'
  1: vcr::use_cassette("full_text_urls-with-searchplos", {
         dois <- searchplos(q = "*:*", fq = "doc_type:full", limit = 20)$data$id
         aa <- full_text_urls(dois)
         expect_is(dois, "character")
         expect_is(aa, "character")
     }) at testthat/test-fulltext.R:29
  2: insert_cassette(name, record = record, match_requests_on = match_requests_on, update_content_length_header = update_content_length_header, 
         allow_playback_repeats = allow_playback_repeats, serialize_with = serialize_with, 
         persist_with = persist_with, preserve_exact_body_bytes = preserve_exact_body_bytes)
  3: webmockr::enable()
  4: vapply(http_lib_adapter_registry$adapters, function(z) {
         z$enable()
     }, logical(1))
  5: FUN(X[[i]], ...)
  6: z$enable()
  7: httr_mock(TRUE)
  8: check_for_pkg("httr")
  9: stop(sprintf("Please install '%s'", x), call. = FALSE)
  
  ── 4. Error: plos_fulltext works (@test-fulltext.R#39)  ────────────────────────
  Please install 'httr'
  1: vcr::use_cassette("full_text_urls-with-searchplos2", {
         aa <- plos_fulltext(doi = "10.1371/journal.pone.0086169")
         bb <- plos_fulltext(c("10.1371/journal.pone.0086169", "10.1371/journal.pbio.1001845"))
         dois <- searchplos(q = "*:*", fq = list("doc_type:full", "article_type:\"Research Article\""), 
             limit = 3)$data$id
         cc <- plos_fulltext(dois)
         expect_is(aa, "plosft")
         expect_is(bb, "plosft")
         expect_is(cc, "plosft")
         expect_is(aa[[1]], "character")
         expect_is(bb[[1]], "character")
         expect_is(bb[[2]], "character")
         expect_is(cc[[2]], "character")
         expect_equal(length(aa), 1)
         expect_equal(length(bb), 2)
         expect_equal(length(cc), 3)
     }, preserve_exact_body_bytes = TRUE) at testthat/test-fulltext.R:39
  2: insert_cassette(name, record = record, match_requests_on = match_requests_on, update_content_length_header = update_content_length_header, 
         allow_playback_repeats = allow_playback_repeats, serialize_with = serialize_with, 
         persist_with = persist_with, preserve_exact_body_bytes = preserve_exact_body_bytes)
  3: webmockr::enable()
  4: vapply(http_lib_adapter_registry$adapters, function(z) {
         z$enable()
     }, logical(1))
  5: FUN(X[[i]], ...)
  6: z$enable()
  7: httr_mock(TRUE)
  8: check_for_pkg("httr")
  9: stop(sprintf("Please install '%s'", x), call. = FALSE)
  
  ── 5. Error: highbrow (@test-highbrow.R#5)  ────────────────────────────────────
  Please install 'httr'
  1: vcr::use_cassette("highbrow", {
         out <- highplos(q = "alcohol", hl.fl = "abstract", rows = 10)
         aa <- highbrow(out, browse = FALSE)
         expect_is(out, "list")
         expect_is(aa, "character")
         expect_match(aa, ".html")
     }, preserve_exact_body_bytes = TRUE) at testthat/test-highbrow.R:5
  2: insert_cassette(name, record = record, match_requests_on = match_requests_on, update_content_length_header = update_content_length_header, 
         allow_playback_repeats = allow_playback_repeats, serialize_with = serialize_with, 
         persist_with = persist_with, preserve_exact_body_bytes = preserve_exact_body_bytes)
  3: webmockr::enable()
  4: vapply(http_lib_adapter_registry$adapters, function(z) {
         z$enable()
     }, logical(1))
  5: FUN(X[[i]], ...)
  6: z$enable()
  7: httr_mock(TRUE)
  8: check_for_pkg("httr")
  9: stop(sprintf("Please install '%s'", x), call. = FALSE)
  
  ── 6. Error: highplos (@test-highplos.R#5)  ────────────────────────────────────
  Please install 'httr'
  1: vcr::use_cassette("highplos", {
         aa <- highplos(q = "alcohol", hl.fl = "abstract", rows = 10)
         bb <- highplos(q = "everything:\"sports alcohol\"~7", hl.fl = "everything")
         cc <- highplos(q = "alcohol", hl.fl = "abstract", hl.fragsize = 20, rows = 5)
         dd <- highplos(q = "alcohol", hl.fl = "abstract", hl.snippets = 5, hl.mergeContiguous = "true", 
             rows = 5)
         expect_is(aa, "list")
         expect_is(aa[[1]], "list")
         expect_is(aa[[1]][[1]], "character")
         expect_is(aa, "list")
         expect_true(grepl("\\<em\\>", aa[[1]][[1]]))
         expect_is(bb, "list")
         expect_is(bb[[1]], "list")
         expect_is(bb[[1]][[1]], "character")
         expect_named(bb[[1]], "everything")
         expect_is(cc, "list")
         expect_is(cc[[1]], "list")
         expect_is(cc[[1]][[1]], "character")
         expect_named(cc[[1]], "abstract")
         expect_equal(length(cc), 5)
         expect_is(dd, "list")
         expect_is(dd[[1]], "list")
         expect_is(dd[[1]][[1]], "character")
         expect_gt(nchar(dd[[1]][[1]][[1]]), nchar(cc[[1]][[1]]))
     }, preserve_exact_body_bytes = TRUE) at testthat/test-highplos.R:5
  2: insert_cassette(name, record = record, match_requests_on = match_requests_on, update_content_length_header = update_content_length_header, 
         allow_playback_repeats = allow_playback_repeats, serialize_with = serialize_with, 
         persist_with = persist_with, preserve_exact_body_bytes = preserve_exact_body_bytes)
  3: webmockr::enable()
  4: vapply(http_lib_adapter_registry$adapters, function(z) {
         z$enable()
     }, logical(1))
  5: FUN(X[[i]], ...)
  6: z$enable()
  7: httr_mock(TRUE)
  8: check_for_pkg("httr")
  9: stop(sprintf("Please install '%s'", x), call. = FALSE)
  
  ── 7. Error: highplos fails well (@test-highplos.R#40)  ────────────────────────
  Please install 'httr'
  1: vcr::use_cassette("highplos_errors", {
         expect_error(length(highplos()), "\"q\" is missing, with no default")
         expect_equal(length(highplos("*:*")[[1]]), 0)
         expect_error(highplos("alcohol", hl.fragsize = "adsfad"), "400 - For input string")
         expect_error(highplos("alcohol", hl.snippets = "adsfad"), "400 - For input string")
     }, preserve_exact_body_bytes = TRUE) at testthat/test-highplos.R:40
  2: insert_cassette(name, record = record, match_requests_on = match_requests_on, update_content_length_header = update_content_length_header, 
         allow_playback_repeats = allow_playback_repeats, serialize_with = serialize_with, 
         persist_with = persist_with, preserve_exact_body_bytes = preserve_exact_body_bytes)
  3: webmockr::enable()
  4: vapply(http_lib_adapter_registry$adapters, function(z) {
         z$enable()
     }, logical(1))
  5: FUN(X[[i]], ...)
  6: z$enable()
  7: httr_mock(TRUE)
  8: check_for_pkg("httr")
  9: stop(sprintf("Please install '%s'", x), call. = FALSE)
  
  ── 8. Error: journalnamekey returns the correct value (@test-journalnamekey.R#5)
  Please install 'httr'
  1: vcr::use_cassette("journalnamekey1", {
         expect_true(grepl("PLoSONE", paste0(journalnamekey(), collapse = " ")))
     }) at testthat/test-journalnamekey.R:5
  2: insert_cassette(name, record = record, match_requests_on = match_requests_on, update_content_length_header = update_content_length_header, 
         allow_playback_repeats = allow_playback_repeats, serialize_with = serialize_with, 
         persist_with = persist_with, preserve_exact_body_bytes = preserve_exact_body_bytes)
  3: webmockr::enable()
  4: vapply(http_lib_adapter_registry$adapters, function(z) {
         z$enable()
     }, logical(1))
  5: FUN(X[[i]], ...)
  6: z$enable()
  7: httr_mock(TRUE)
  8: check_for_pkg("httr")
  9: stop(sprintf("Please install '%s'", x), call. = FALSE)
  
  ── 9. Error: journalnamekey returns the correct class (@test-journalnamekey.R#11
  Please install 'httr'
  1: vcr::use_cassette("journalnamekey2", {
         expect_that(journalnamekey(), is_a("character"))
     }) at testthat/test-journalnamekey.R:11
  2: insert_cassette(name, record = record, match_requests_on = match_requests_on, update_content_length_header = update_content_length_header, 
         allow_playback_repeats = allow_playback_repeats, serialize_with = serialize_with, 
         persist_with = persist_with, preserve_exact_body_bytes = preserve_exact_body_bytes)
  3: webmockr::enable()
  4: vapply(http_lib_adapter_registry$adapters, function(z) {
         z$enable()
     }, logical(1))
  5: FUN(X[[i]], ...)
  6: z$enable()
  7: httr_mock(TRUE)
  8: check_for_pkg("httr")
  9: stop(sprintf("Please install '%s'", x), call. = FALSE)
  
  ── 10. Error: journalnamekey returns the correct length vector (@test-journalnam
  Please install 'httr'
  1: vcr::use_cassette("journalnamekey3", {
         expect_gt(length(journalnamekey()), 0)
     }) at testthat/test-journalnamekey.R:17
  2: insert_cassette(name, record = record, match_requests_on = match_requests_on, update_content_length_header = update_content_length_header, 
         allow_playback_repeats = allow_playback_repeats, serialize_with = serialize_with, 
         persist_with = persist_with, preserve_exact_body_bytes = preserve_exact_body_bytes)
  3: webmockr::enable()
  4: vapply(http_lib_adapter_registry$adapters, function(z) {
         z$enable()
     }, logical(1))
  5: FUN(X[[i]], ...)
  6: z$enable()
  7: httr_mock(TRUE)
  8: check_for_pkg("httr")
  9: stop(sprintf("Please install '%s'", x), call. = FALSE)
  
  ── 11. Error: plosabstract returns the correct dimensioned data.frame (@test-plo
  Please install 'httr'
  1: vcr::use_cassette("plosabstract", {
         expect_equal(NCOL(plosabstract(q = "drosophila", fl = "abstract,id", limit = 10)$data), 
             2)
         expect_equal(NROW(plosabstract(q = "drosophila", fl = "abstract", limit = 5)$data), 
             5)
     }, preserve_exact_body_bytes = TRUE) at testthat/test-plosabstract.R:5
  2: insert_cassette(name, record = record, match_requests_on = match_requests_on, update_content_length_header = update_content_length_header, 
         allow_playback_repeats = allow_playback_repeats, serialize_with = serialize_with, 
         persist_with = persist_with, preserve_exact_body_bytes = preserve_exact_body_bytes)
  3: webmockr::enable()
  4: vapply(http_lib_adapter_registry$adapters, function(z) {
         z$enable()
     }, logical(1))
  5: FUN(X[[i]], ...)
  6: z$enable()
  7: httr_mock(TRUE)
  8: check_for_pkg("httr")
  9: stop(sprintf("Please install '%s'", x), call. = FALSE)
  
  ── 12. Error: plosabstract returns the correct class (@test-plosabstract.R#14)  
  Please install 'httr'
  1: vcr::use_cassette("plosabstract_class", {
         expect_is(plosabstract(q = "drosophila", fl = "author", limit = 5)$data, "data.frame")
         expect_is(plosabstract(q = "Jones", fl = "author", limit = 5)$data[1, 1], "tbl_df")
     }, preserve_exact_body_bytes = TRUE) at testthat/test-plosabstract.R:14
  2: insert_cassette(name, record = record, match_requests_on = match_requests_on, update_content_length_header = update_content_length_header, 
         allow_playback_repeats = allow_playback_repeats, serialize_with = serialize_with, 
         persist_with = persist_with, preserve_exact_body_bytes = preserve_exact_body_bytes)
  3: webmockr::enable()
  4: vapply(http_lib_adapter_registry$adapters, function(z) {
         z$enable()
     }, logical(1))
  5: FUN(X[[i]], ...)
  6: z$enable()
  7: httr_mock(TRUE)
  8: check_for_pkg("httr")
  9: stop(sprintf("Please install '%s'", x), call. = FALSE)
  
  ── 13. Error: plosauthor returns the correct dimensions in the data.frame (@test
  Please install 'httr'
  1: vcr::use_cassette("plosauthor_dims", {
         expect_equal(NROW(plosauthor(q = "johnson", fl = "title,author", limit = 100)$data), 
             100)
         expect_equal(length(names(plosauthor(q = "johnson", fl = "title,author", limit = 100)$data)), 
             2)
     }) at testthat/test-plosauthor.R:5
  2: insert_cassette(name, record = record, match_requests_on = match_requests_on, update_content_length_header = update_content_length_header, 
         allow_playback_repeats = allow_playback_repeats, serialize_with = serialize_with, 
         persist_with = persist_with, preserve_exact_body_bytes = preserve_exact_body_bytes)
  3: webmockr::enable()
  4: vapply(http_lib_adapter_registry$adapters, function(z) {
         z$enable()
     }, logical(1))
  5: FUN(X[[i]], ...)
  6: z$enable()
  7: httr_mock(TRUE)
  8: check_for_pkg("httr")
  9: stop(sprintf("Please install '%s'", x), call. = FALSE)
  
  ── 14. Error: plosauthor returns the correct column names (@test-plosauthor.R#12
  Please install 'httr'
  1: vcr::use_cassette("plosauthor_cols", {
         expect_equal(names(plosauthor(q = "johnson", fl = "title,author", limit = 100)$data), 
             c("author", "title"))
     }) at testthat/test-plosauthor.R:12
  2: insert_cassette(name, record = record, match_requests_on = match_requests_on, update_content_length_header = update_content_length_header, 
         allow_playback_repeats = allow_playback_repeats, serialize_with = serialize_with, 
         persist_with = persist_with, preserve_exact_body_bytes = preserve_exact_body_bytes)
  3: webmockr::enable()
  4: vapply(http_lib_adapter_registry$adapters, function(z) {
         z$enable()
     }, logical(1))
  5: FUN(X[[i]], ...)
  6: z$enable()
  7: httr_mock(TRUE)
  8: check_for_pkg("httr")
  9: stop(sprintf("Please install '%s'", x), call. = FALSE)
  
  ── 15. Error: plosfigtabcaps returns the correct dimenion result (@test-plosfigt
  Please install 'httr'
  1: vcr::use_cassette("plosfigtabcaps", {
         dat <- plosfigtabcaps(q = "ecology", fl = "figure_table_caption", limit = 10)
         expect_that(NROW(dat$data), equals(10))
         expect_that(length(names(dat$data)), equals(1))
         expect_that(names(dat$data), equals("figure_table_caption"))
         expect_that(names(plosfigtabcaps(q = "ecology", fl = "id", limit = 10)$data), 
             equals("id"))
         expect_is(dat, "list")
         expect_is(dat$meta, "data.frame")
         expect_is(dat$data, "data.frame")
     }) at testthat/test-plosfigtabcaps.R:5
  2: insert_cassette(name, record = record, match_requests_on = match_requests_on, update_content_length_header = update_content_length_header, 
         allow_playback_repeats = allow_playback_repeats, serialize_with = serialize_with, 
         persist_with = persist_with, preserve_exact_body_bytes = preserve_exact_body_bytes)
  3: webmockr::enable()
  4: vapply(http_lib_adapter_registry$adapters, function(z) {
         z$enable()
     }, logical(1))
  5: FUN(X[[i]], ...)
  6: z$enable()
  7: httr_mock(TRUE)
  8: check_for_pkg("httr")
  9: stop(sprintf("Please install '%s'", x), call. = FALSE)
  
  ── 16. Error: plossubject returns the correct class (@test-plossubject.R#5)  ───
  Please install 'httr'
  1: vcr::use_cassette("plossubject", {
         tt <- plossubject(q = "marine ecology", fl = "id,journal", fq = "doc_type:full", 
             limit = 9)
         expect_that(tt$data, is_a("data.frame"))
         expect_that(dim(tt$data), equals(c(9, 2)))
         expect_that(tt$data$journal, is_a("character"))
     }) at testthat/test-plossubject.R:5
  2: insert_cassette(name, record = record, match_requests_on = match_requests_on, update_content_length_header = update_content_length_header, 
         allow_playback_repeats = allow_playback_repeats, serialize_with = serialize_with, 
         persist_with = persist_with, preserve_exact_body_bytes = preserve_exact_body_bytes)
  3: webmockr::enable()
  4: vapply(http_lib_adapter_registry$adapters, function(z) {
         z$enable()
     }, logical(1))
  5: FUN(X[[i]], ...)
  6: z$enable()
  7: httr_mock(TRUE)
  8: check_for_pkg("httr")
  9: stop(sprintf("Please install '%s'", x), call. = FALSE)
  
  ── 17. Error: plostitle returns the correct dimensionsed data.frame (@test-plost
  Please install 'httr'
  1: vcr::use_cassette("plostitle", {
         expect_that(nrow(plostitle(q = "drosophila", fl = "title", limit = 19)$data), 
             equals(19))
         expect_that(length(names(plostitle(q = "drosophila", fl = "title", limit = 19)$data)), 
             equals(1))
         expect_that(names(plostitle(q = "drosophila", fl = "title,journal", limit = 5)$data), 
             equals(c("journal", "title")))
     }) at testthat/test-plostitle.R:5
  2: insert_cassette(name, record = record, match_requests_on = match_requests_on, update_content_length_header = update_content_length_header, 
         allow_playback_repeats = allow_playback_repeats, serialize_with = serialize_with, 
         persist_with = persist_with, preserve_exact_body_bytes = preserve_exact_body_bytes)
  3: webmockr::enable()
  4: vapply(http_lib_adapter_registry$adapters, function(z) {
         z$enable()
     }, logical(1))
  5: FUN(X[[i]], ...)
  6: z$enable()
  7: httr_mock(TRUE)
  8: check_for_pkg("httr")
  9: stop(sprintf("Please install '%s'", x), call. = FALSE)
  
  ── 18. Error: plostitle returns the correct class (@test-plostitle.R#16)  ──────
  Please install 'httr'
  1: vcr::use_cassette("plostitle_class", {
         expect_is(plostitle(q = "drosophila", limit = 5)$data, "data.frame")
         expect_is(plostitle(q = "drosophila", fl = "title,journal", limit = 5)$data, 
             "data.frame")
     }) at testthat/test-plostitle.R:16
  2: insert_cassette(name, record = record, match_requests_on = match_requests_on, update_content_length_header = update_content_length_header, 
         allow_playback_repeats = allow_playback_repeats, serialize_with = serialize_with, 
         persist_with = persist_with, preserve_exact_body_bytes = preserve_exact_body_bytes)
  3: webmockr::enable()
  4: vapply(http_lib_adapter_registry$adapters, function(z) {
         z$enable()
     }, logical(1))
  5: FUN(X[[i]], ...)
  6: z$enable()
  7: httr_mock(TRUE)
  8: check_for_pkg("httr")
  9: stop(sprintf("Please install '%s'", x), call. = FALSE)
  
  ── 19. Error: plosviews returns the correct value (@test-plosviews.R#5)  ───────
  Please install 'httr'
  1: vcr::use_cassette("plosviews_values", {
         expect_equal(plosviews("10.1371/journal.pone.0002154", "id", "alltime")$id, "10.1371/journal.pone.0002154")
         expect_equal(NROW(plosviews("bird", views = "alltime", limit = 18)), 18)
     }) at testthat/test-plosviews.R:5
  2: insert_cassette(name, record = record, match_requests_on = match_requests_on, update_content_length_header = update_content_length_header, 
         allow_playback_repeats = allow_playback_repeats, serialize_with = serialize_with, 
         persist_with = persist_with, preserve_exact_body_bytes = preserve_exact_body_bytes)
  3: webmockr::enable()
  4: vapply(http_lib_adapter_registry$adapters, function(z) {
         z$enable()
     }, logical(1))
  5: FUN(X[[i]], ...)
  6: z$enable()
  7: httr_mock(TRUE)
  8: check_for_pkg("httr")
  9: stop(sprintf("Please install '%s'", x), call. = FALSE)
  
  ── 20. Error: plosviews returns the correct class (@test-plosviews.R#13)  ──────
  Please install 'httr'
  1: vcr::use_cassette("plosviews_class", {
         expect_is(plosviews("bird", views = "alltime", limit = 18), "data.frame")
         expect_is(plosviews("10.1371/journal.pone.0002154", "id", "alltime,last30"), 
             "data.frame")
     }) at testthat/test-plosviews.R:13
  2: insert_cassette(name, record = record, match_requests_on = match_requests_on, update_content_length_header = update_content_length_header, 
         allow_playback_repeats = allow_playback_repeats, serialize_with = serialize_with, 
         persist_with = persist_with, preserve_exact_body_bytes = preserve_exact_body_bytes)
  3: webmockr::enable()
  4: vapply(http_lib_adapter_registry$adapters, function(z) {
         z$enable()
     }, logical(1))
  5: FUN(X[[i]], ...)
  6: z$enable()
  7: httr_mock(TRUE)
  8: check_for_pkg("httr")
  9: stop(sprintf("Please install '%s'", x), call. = FALSE)
  
  ── 21. Error: plosword returns the correct value (@test-plosword.R#5)  ─────────
  Please install 'httr'
  1: vcr::use_cassette("plosword1", {
         expect_that(names(plosword("Helianthus")), equals("Number of articles with search term"))
     }) at testthat/test-plosword.R:5
  2: insert_cassette(name, record = record, match_requests_on = match_requests_on, update_content_length_header = update_content_length_header, 
         allow_playback_repeats = allow_playback_repeats, serialize_with = serialize_with, 
         persist_with = persist_with, preserve_exact_body_bytes = preserve_exact_body_bytes)
  3: webmockr::enable()
  4: vapply(http_lib_adapter_registry$adapters, function(z) {
         z$enable()
     }, logical(1))
  5: FUN(X[[i]], ...)
  6: z$enable()
  7: httr_mock(TRUE)
  8: check_for_pkg("httr")
  9: stop(sprintf("Please install '%s'", x), call. = FALSE)
  
  ── 22. Error: plosword returns the correct class (@test-plosword.R#11)  ────────
  Please install 'httr'
  1: vcr::use_cassette("plosword2", {
         expect_that(plosword(list("monkey", "Helianthus", "sunflower", "protein", "whale"), 
             vis = "TRUE")[[2]], is_a("ggplot"))
     }) at testthat/test-plosword.R:11
  2: insert_cassette(name, record = record, match_requests_on = match_requests_on, update_content_length_header = update_content_length_header, 
         allow_playback_repeats = allow_playback_repeats, serialize_with = serialize_with, 
         persist_with = persist_with, preserve_exact_body_bytes = preserve_exact_body_bytes)
  3: webmockr::enable()
  4: vapply(http_lib_adapter_registry$adapters, function(z) {
         z$enable()
     }, logical(1))
  5: FUN(X[[i]], ...)
  6: z$enable()
  7: httr_mock(TRUE)
  8: check_for_pkg("httr")
  9: stop(sprintf("Please install '%s'", x), call. = FALSE)
  
  ── 23. Error: plot_throughtime returns the correct class (@test-plot_throughtime
  Please install 'httr'
  1: vcr::use_cassette("plot_throughtime", {
         a <- plot_throughtime("phylogeny", 300)
         b <- plot_throughtime(list("drosophila", "monkey"), 100)
         c <- plot_throughtime(list("drosophila", "flower"), 100)
         expect_is(a, "ggplot")
         expect_is(b, "ggplot")
         expect_is(c, "ggplot")
         expect_is(a$data, "data.frame")
     }) at testthat/test-plot_throughtime.R:4
  2: insert_cassette(name, record = record, match_requests_on = match_requests_on, update_content_length_header = update_content_length_header, 
         allow_playback_repeats = allow_playback_repeats, serialize_with = serialize_with, 
         persist_with = persist_with, preserve_exact_body_bytes = preserve_exact_body_bytes)
  3: webmockr::enable()
  4: vapply(http_lib_adapter_registry$adapters, function(z) {
         z$enable()
     }, logical(1))
  5: FUN(X[[i]], ...)
  6: z$enable()
  7: httr_mock(TRUE)
  8: check_for_pkg("httr")
  9: stop(sprintf("Please install '%s'", x), call. = FALSE)
  
  ── 24. Error: searchplos returns the correct (@test-searchplos.R#5)  ───────────
  Please install 'httr'
  1: vcr::use_cassette("searchplos", {
         dat1 <- searchplos("ecology", "id,publication_date", limit = 2)
         dat2 <- searchplos(q = "*:*", fl = "id", fq = "journal_key:PLoSONE", start = 0, 
             limit = 15)
         expect_that(nrow(dat1$data), equals(2))
         expect_that(ncol(dat1$data), equals(2))
         expect_that(nrow(dat2$data), equals(15))
         expect_that(ncol(dat2$data), equals(1))
         expect_is(dat1$data[1, 1][[1]], "character")
         expect_is(dat2$data[1, 1][[1]], "character")
         expect_is(dat1$data, "data.frame")
         expect_is(dat2$data, "data.frame")
         expect_is(dat2, "list")
         expect_is(dat2$meta, "data.frame")
         expect_that(grepl("10.1371", dat2$data[1, 1]), is_true())
     }) at testthat/test-searchplos.R:5
  2: insert_cassette(name, record = record, match_requests_on = match_requests_on, update_content_length_header = update_content_length_header, 
         allow_playback_repeats = allow_playback_repeats, serialize_with = serialize_with, 
         persist_with = persist_with, preserve_exact_body_bytes = preserve_exact_body_bytes)
  3: webmockr::enable()
  4: vapply(http_lib_adapter_registry$adapters, function(z) {
         z$enable()
     }, logical(1))
  5: FUN(X[[i]], ...)
  6: z$enable()
  7: httr_mock(TRUE)
  8: check_for_pkg("httr")
  9: stop(sprintf("Please install '%s'", x), call. = FALSE)
  
  ── 25. Error: searchplos pagination handles large numbers correctly (@test-searc
  Please install 'httr'
  1: vcr::use_cassette("searchplos_large_numbers", {
         dat2 <- searchplos(q = "*:*", fl = "id", start = 1e+06, limit = 15)
         expect_is(dat2, "list")
         expect_equal(dat2$meta$start, 1e+06)
         expect_equal(NROW(dat2$data), 15)
         dat3 <- searchplos(q = "*:*", fl = "id", start = 1000000L, limit = 15)
         expect_is(dat3, "list")
         expect_equal(dat3$meta$start, 1e+06)
         expect_equal(NROW(dat3$data), 15)
     }) at testthat/test-searchplos.R:29
  2: insert_cassette(name, record = record, match_requests_on = match_requests_on, update_content_length_header = update_content_length_header, 
         allow_playback_repeats = allow_playback_repeats, serialize_with = serialize_with, 
         persist_with = persist_with, preserve_exact_body_bytes = preserve_exact_body_bytes)
  3: webmockr::enable()
  4: vapply(http_lib_adapter_registry$adapters, function(z) {
         z$enable()
     }, logical(1))
  5: FUN(X[[i]], ...)
  6: z$enable()
  7: httr_mock(TRUE)
  8: check_for_pkg("httr")
  9: stop(sprintf("Please install '%s'", x), call. = FALSE)
  
  ══ testthat results  ═══════════════════════════════════════════════════════════
  OK: 4 SKIPPED: 7 FAILED: 25
  1. Error: facetplos (@test-facetplos.R#5) 
  2. Error: facetplos fails well (@test-facetplos.R#49) 
  3. Error: full_text_urls - NA's on annotation DOIs (@test-fulltext.R#29) 
  4. Error: plos_fulltext works (@test-fulltext.R#39) 
  5. Error: highbrow (@test-highbrow.R#5) 
  6. Error: highplos (@test-highplos.R#5) 
  7. Error: highplos fails well (@test-highplos.R#40) 
  8. Error: journalnamekey returns the correct value (@test-journalnamekey.R#5) 
  9. Error: journalnamekey returns the correct class (@test-journalnamekey.R#11) 
  1. ...
  
  Error: testthat unit tests failed
  Execution halted