README.Rmd

---
output: github_document
---


```{r, include = FALSE}

knitr::opts_chunk$set(
  collapse = TRUE, 
  comment = "#>",
  fig.path = "man/figures/README-", 
  out.width = "100%",
  message = FALSE
  )

```

# openlibraryR <img src = "man/figures/openlibraryR_sm.png" width = "180px" align = "right" />

[![Build Status](https://travis-ci.com/walkerkq/openlibraryR.svg?branch=main)](https://travis-ci.com/walkerkq/openlibraryR)

openlibraryR is an R package that provides a simple wrapper for the [Open Library API](https://openlibrary.org/dev/docs/api/books).

[Open Library](https://openlibrary.org) is an initiative of the [Internet Archive](https:://archive.org), a 501(c)(3) non-profit, building a digital library of Internet sites and other cultural artifacts in digital form. 

Hex sticker icon by [mangsaabguru](https://www.flaticon.com/authors/mangsaabguru).

## Installation  

You can install the development version of openlibraryR from Github:  

```{r, eval = FALSE}
devtools::install_github("walkerkq/openlibraryR")
```

## Getting Started  

You do not need an account or key to access the Open Library API. There is only method provided which returns book details from an ISBN (International Standard Book Number).   

```{r}
my_book <- openlibraryR::get_books(book_id = '0486282112')

str(my_book)
```

Use `tidyr::unnest` to access the various nested data.  

```{r}
library(dplyr)

my_book %>% 
  select(authors) %>% 
  tidyr::unnest(authors, 
                names_sep = '_')

my_book %>% 
  select(identifiers) %>% 
  tidyr::unnest(identifiers)

my_book %>% 
  select(subject_people) %>% 
  tidyr::unnest(subject_people, 
                names_sep = '_')

```