README.Rmd

---
output: github_document
---

<!-- README.md is generated from README.Rmd. Please edit that file -->

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

<!-- badges: start -->
[![Travis build status](https://travis-ci.org/news-r/loc.svg?branch=master)](https://travis-ci.org/news-r/loc)
<!-- badges: end -->

# loc

Access the [Library of Congress](https://chroniclingamerica.loc.gov) from R.

> Chronicling America provides access [140,000] historic newspapers and select digitized newspaper pages.

## Installation

``` r
# install.packages("remotes")
remotes::install_github("news-r/loc")
```

## Example

```{r}
library(loc)

# titles
titles <- loc_search_titles("michigan", pages = 2)

# pages
(articles <- loc_search_pages("Thomas"))
```

The text of the newspaper is in the `ocr_eng` variable. You can reconstruct endpoints to specific newspapers, editions, or issues.

```{r}
a <- sample(articles$url, 1) # take a random article
pdf <- gsub(".json", ".pdf", a) # change to PDF
# browseURL(pdf)
```

![](loc.png)

And you can get the text with:

```{r}
txt <- gsub(".json", "/ocr.txt", a) # change to PDF
readLines(txt)
```