README.Rmd

---
output: github_document
---


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

# extractRC

<!-- badges: start -->
[![Build Status](https://travis-ci.com/ElliottMess/RC_data_extraction.svg?branch=main)](https://travis-ci.com/ElliottMess/RC_data_extraction)
[![Travis build status](https://travis-ci.com/ElliottMess/RC_data_extraction.svg?branch=main)](https://travis-ci.com/ElliottMess/RC_data_extraction)
[![R-CMD-check](https://github.com/ElliottMess/RC_data_extraction/workflows/R-CMD-check/badge.svg)](https://github.com/ElliottMess/RC_data_extraction/actions)
<!-- badges: end -->

The goal of extractRC is to easily extract files from [REACH's Resource Centre (RC)](https://www.reachresourcecentre.info/)

## Installation


You can install extractRC from [GitHub](https://github.com/) with:

``` r
# install.packages("devtools")
devtools::install_github("ElliottMess/RC_data_extraction")
```
## Example

**Extract all URLs to files associated with a research**


```{r example_links}
library(extractRC)

search_URL <- "https://www.reachresourcecentre.info/search/?search=1&initiative%5B%5D=reach&ptype%5B%5D=dataset-database&dates=&keywords=JMMI"
all_URLs <- RC_extract_allPages(search_URL)

head(all_URLs)
```

**Download documents based on the research URLs**

```{r example_download}
## For one file:
# download_file(all_URLs[1], "data")

## For all files in list:
# download_files(all_URLs, "data")
```