tests/testthat/test-biorxiv_content.R

In nicholasmfraser/rbiorxiv: Client for the 'bioRxiv' API

test_that("biorxiv_content returns", {

  # Basic query with doi
  expect_is(biorxiv_content(doi = "10.1101/673665"), "list")
  # Basic query with dates
  expect_is(biorxiv_content(from = "2014-01-01", to = "2014-01-30"), "list")

  # Limit and skip
  expect_length(biorxiv_content(from = "2014-01-01", to = "2014-01-30",
                                limit = 10), 10)
  expect_length(biorxiv_content(from = "2014-01-01", to = "2014-01-30",
                                limit = 10, skip = 10), 10)
  # Larger query (requires iteration)
  expect_is(biorxiv_content(from = "2014-01-01", to = "2014-03-30",
                            limit = "*"), "list")

  # Server
  expect_is(biorxiv_content(server = "medrxiv",
                            doi = "10.1101/2020.01.10.20017145"), "list")
  expect_is(biorxiv_content(server = "medrxiv",
                            from = "2020-01-01", to = "2020-01-02"), "list")

  # Formats
  expect_is(biorxiv_content(doi = "10.1101/673665", format = "list"), "list")
  expect_is(biorxiv_content(doi = "10.1101/673665", format = "json"), "json")
  expect_is(biorxiv_content(doi = "10.1101/673665", format = "df"), "data.frame")

  # Column names and types for data frame
  col_names <- c("doi", "title", "authors", "author_corresponding",
                 "author_corresponding_institution", "date", "version", "type",
                 "license", "category", "jatsxml", "abstract", "published", "server")
  d <- biorxiv_content(doi = "10.1101/673665", format = "df")
  expect_named(d, col_names)
  expect_is(d$doi, "character")
  expect_is(d$title, "character")
  expect_is(d$authors, "character")
  expect_is(d$author_corresponding, "character")
  expect_is(d$author_corresponding_institution, "character")
  expect_is(d$date, "character")
  expect_is(d$version, "numeric")
  expect_is(d$type, "character")
  expect_is(d$category, "character")
  expect_is(d$jatsxml, "character")
  expect_is(d$abstract, "character")
  expect_is(d$published, "character")
  expect_is(d$license, "character")
  expect_is(d$server, "character")

})


test_that("biorxiv_content fails correctly", {

  # Invalid DOI
  expect_error(biorxiv_content(doi = ""))
  expect_error(biorxiv_content(doi = 1))
  expect_error(biorxiv_content(doi = "a"))

  # Invalid server
  expect_error(biorxiv_content(server = NULL,
                               from = "01-01-2014", to = "01-10-2014"))
  expect_error(biorxiv_content(server = 1,
                               from = "01-01-2014", to = "01-10-2014"))
  expect_error(biorxiv_content(server = "a",
                               from = "01-01-2014", to = "01-10-2014"))

  # Invalid dates
  expect_error(biorxiv_content(from = "01-01-2014", to = "01-10-2014"))
  expect_error(biorxiv_content(from = "2014-01", to = "2014-01"))
  expect_error(biorxiv_content(from = "2015-01-01", to = "2014-01-30"))
  expect_error(biorxiv_content(from = "2014-01-01"))
  expect_error(biorxiv_content(to = "2014-01-30"))

  # Invalid format
  expect_error(biorxiv_content(doi = "10.1101/673665", format = ""))
  expect_error(biorxiv_content(doi = "10.1101/673665", format = 1))
  expect_error(biorxiv_content(doi = "10.1101/673665", format = "a"))

})