In jeksterslabds/jeksterslabRlib: Utility Functions to Organize my Personal Library

library(testthat)
library(jeksterslabRlib)
context("Test lib_metadata_crossref")

Set test parameters

journal_doi_single <- "10.1016/j.adolescence.2014.04.012"
journal_doi_single_author <- "Pesigan, Ivan Jacob Agaloos and Luyckx, Koen and Alampay, Liane Peña"
journal_doi_single_title <- "Brief report: Identity processes in Filipino late adolescents and young adults: Parental influences and mental health outcomes"
journal_doi_single_journal <- "Journal of Adolescence"
book_doi_single <- "10.1007/978-0-387-98141-3"
book_doi_single_author <- "Wickham, Hadley"
book_doi_single_title <- "ggplot2"
book_doi_single_publisher <- "Springer New York"
book_doi_single_location <- "New York, NY"

Journal Single DOI

| Variable | Description | Value | |:-----------------------------|:------------|:-------------------------------| | journal_doi_single_author | Author | r journal_doi_single_author | | journal_doi_single_title | Title | r journal_doi_single_title | | journal_doi_single_journal | Journal | r journal_doi_single_journal |

Book Single DOI

| Variable | Description | Value | |:----------------------------|:------------|:------------------------------| | book_doi_single_author | Author | r book_doi_single_author | | book_doi_single_title | Title | r book_doi_single_title | | book_doi_single_publisher | Publisher | r book_doi_single_publisher | | book_doi_single_location | Location | r book_doi_single_location |

Run test

journal_doi_single_output <- lib_metadata_crossref(doi = journal_doi_single, par = FALSE)
journal_doi_single_output_author <- journal_doi_single_output[1, "author"]
journal_doi_single_output_title <- journal_doi_single_output[1, "title"]
journal_doi_single_output_journal <- journal_doi_single_output[1, "container-title"]

book_doi_single_output <- lib_metadata_crossref(doi = book_doi_single, par = FALSE)
book_doi_single_output_author <- book_doi_single_output[1, "author"]
book_doi_single_output_title <- book_doi_single_output[1, "title"]
book_doi_single_output_publisher <- book_doi_single_output[1, "publisher"]
book_doi_single_output_location <- book_doi_single_output[1, "publisher-location"]

Results

Journal Single DOI

| Item | Parameter | Result | |:----------|:-------------------------------|:--------------------------------------| | Author | r journal_doi_single_author | r journal_doi_single_output_author | | Title | r journal_doi_single_title | r journal_doi_single_output_title | | Journal | r journal_doi_single_journal | r journal_doi_single_output_journal |

Book Single DOI

| Item | Parameter | Result | |:----------|:------------------------------|:-------------------------------------| | Author | r book_doi_single_author | r book_doi_single_output_author | | Title | r book_doi_single_title | r book_doi_single_output_title | | Publisher | r book_doi_single_publisher | r book_doi_single_output_publisher | | Location | r book_doi_single_location | r book_doi_single_output_location |

test_that("the output of lib_metadata_crossref for journal single DOI is accurate", {
  expect_equivalent(
    journal_doi_single_author,
    journal_doi_single_output_author
  )
  expect_equivalent(
    journal_doi_single_title,
    journal_doi_single_output_title
  )
  expect_equivalent(
    journal_doi_single_journal,
    journal_doi_single_output_journal
  )
})

test_that("the output of lib_metadata_crossref for book single DOI is accurate", {
  expect_equivalent(
    book_doi_single_author,
    book_doi_single_output_author
  )
  expect_equivalent(
    book_doi_single_title,
    book_doi_single_output_title
  )
  expect_equivalent(
    book_doi_single_publisher,
    book_doi_single_output_publisher
  )
  expect_equivalent(
    book_doi_single_location,
    book_doi_single_output_location
  )
})

jeksterslabds/jeksterslabRlib documentation built on Jan. 19, 2021, 11:04 a.m.