From 145d7ef8a0e964b0897a8791f70a9ec2b91ad893 Mon Sep 17 00:00:00 2001
From: Scott Chamberlain <myrmecocystus@gmail.com>
Date: Tue, 28 Feb 2017 11:51:29 -0800
Subject: [PATCH] removed richtations, makred defunct bumpd dev version removed
 a donttest to just commenting out the eg

---
 DESCRIPTION                            |   2 +-
 NEWS.md                                |   2 +-
 R/citations.R                          |  54 +------
 R/highplos.r                           |   6 +-
 R/plosabstract.R                       |   1 -
 R/rplos-package.R                      |   1 +
 README.Rmd                             |   2 +-
 README.md                              | 211 ++++++++++++-------------
 inst/assets/img/unnamed-chunk-21-1.png | Bin 19021 -> 17874 bytes
 man/citations-defunct.Rd               |  12 ++
 man/citations.Rd                       |  45 ------
 man/highplos.Rd                        |   4 +-
 man/plosabstract.Rd                    |   1 -
 man/rplos-defunct.Rd                   |   1 +
 tests/testthat/test-citations.R        |  36 -----
 15 files changed, 124 insertions(+), 254 deletions(-)
 create mode 100644 man/citations-defunct.Rd
 delete mode 100644 man/citations.Rd
 delete mode 100644 tests/testthat/test-citations.R

diff --git a/DESCRIPTION b/DESCRIPTION
index 9870019..e5494f1 100644
--- a/DESCRIPTION
+++ b/DESCRIPTION
@@ -7,7 +7,7 @@ Description: A programmatic interface to the 'SOLR' based
     articles, making plots, doing 'faceted' searches,
     'highlight' searches, and viewing results of 'highlighted'
     searches in a browser.
-Version: 0.6.7.9200
+Version: 0.6.7.9910
 License: MIT + file LICENSE
 Authors@R: c(
     person("Scott", "Chamberlain", role = c("aut", "cre"), email = "myrmecocystus@gmail.com"),
diff --git a/NEWS.md b/NEWS.md
index 2000cdd..0faae77 100644
--- a/NEWS.md
+++ b/NEWS.md
@@ -77,7 +77,7 @@ rplos 0.4.7
 
 ### NEW FEATURES
 
-* New function `citations()` for querying the [PLOS Rich Citations API](http://api.richcitations.org/) (#88)
+* New function `citations()` for querying the PLOS Rich Citations API (http://api.richcitations.org/) (#88)
 
 ### BUG FIXES
 
diff --git a/R/citations.R b/R/citations.R
index 0679021..7c437ba 100644
--- a/R/citations.R
+++ b/R/citations.R
@@ -1,51 +1,7 @@
-#' Search PLOS Rich Citations API
-#'
+#' This function is defunct.
 #' @export
-#' @param uri (character) A URI, of the form \code{http://dx.doi.org/<DOI>}
-#' @param doi (character) A PLOS journals DOI
-#' @param parse (logical) Passed to \code{\link[jsonlite]{fromJSON}}, toggles
-#' whether we return json parsed to data.frame's where possible, or not.
-#' Default: FALSE
-#' @param ... Curl options passed to \code{\link[httr]{GET}}
-#' @return A list
-#' @references \url{http://api.richcitations.org/}
-#' @details To get an API key, email \email{ploslabs@@plos.org} and request a key
-#' @examples \dontrun{
-#' # get citations for an article (via its DOI)
-#' # uri <- "http://dx.doi.org/10.1371%2Fjournal.pone.0000000"
-#' # citations(uri)
-#' # citations(uri, parse = TRUE)
-#'
-#' # pass in a DOI, url encoded or not
-#' # citations(doi = "10.1371%2Fjournal.pone.0000000")
-#' # citations(doi = "10.1371/journal.pone.0000000")
-#' # ids <- searchplos(q='ecology', fl='id', limit = 20)$data$id
-#' # citations(doi = ids[1])
-#' }
-
-citations <- function(uri = NULL, doi = NULL, parse = FALSE, ...) {
-  calls <- names(sapply(match.call(), deparse))[-1]
-  if ("random" %in% calls) stop("The parameter 'random' has been removed", call. = FALSE)
-  
-  # one has to be non-NULL
-  stopifnot(length(ploscompact(list(uri, doi))) == 1)
-  uri <- uriparse(uri, doi)
-  args <- ploscompact(list(uri = uri))
-  if (length(args) == 0) args <- NULL
-  res <- GET(richbase(), query = args, ...)
-  stop_for_status(res)
-  jsonlite::fromJSON(utf8cont(res), parse)
-}
-
-richbase <- function() "http://api.richcitations.org/papers"
-
-uriparse <- function(x, y) {
-  # both can't be null
-  stopifnot(xor(!is.null(x), !is.null(y)))
-  # check for url encoding
-  if (!is.null(y)) {
-    paste0("http://dx.doi.org/", sub("/", "%2F", y))
-  } else {
-    x
-  }
+#' @rdname citations-defunct
+#' @keywords internal
+citations <- function(...) {
+  .Defunct(msg = "the data provider behind citations() is gone")
 }
diff --git a/R/highplos.r b/R/highplos.r
index 42ee9d4..d80dbe3 100644
--- a/R/highplos.r
+++ b/R/highplos.r
@@ -12,10 +12,8 @@
 #' highplos(q='alcohol', hl.fl='abstract', hl.snippets=5, hl.mergeContiguous='true', rows=5)
 #' highplos(q='alcohol', hl.fl='abstract', hl.useFastVectorHighlighter='true', rows=5)
 #' highplos(q='everything:"experiment"', fq='doc_type:full', rows=100, hl.fl = 'title')
-#' }
-#'
-#' @examples \donttest{
-#' highplos(q='alcohol', hl.fl = 'abstract', rows=1200)
+#' 
+#' # highplos(q='alcohol', hl.fl = 'abstract', rows=1200)
 #' }
 
 highplos <- function(q, fl=NULL, fq=NULL, hl.fl = NULL, hl.snippets = NULL, hl.fragsize = NULL,
diff --git a/R/plosabstract.R b/R/plosabstract.R
index d6f5971..bac9db2 100644
--- a/R/plosabstract.R
+++ b/R/plosabstract.R
@@ -8,7 +8,6 @@
 #' plosabstract(q = 'drosophila', fl=c('id','author'), limit = 5)
 #' plosabstract(q = 'drosophila', fl='author', limit = 5)
 #' plosabstract(q = 'drosophila', fl=c('id','author','title'), limit = 5)
-#' plosabstract(q = 'drosophila', fl=c('id','author','title'), limit = 5, config=verbose())
 #' }
 
 plosabstract <- function(q = NULL, fl = 'id', fq = NULL, sort = NULL, start = 0,
diff --git a/R/rplos-package.R b/R/rplos-package.R
index 5b02266..6d204e3 100644
--- a/R/rplos-package.R
+++ b/R/rplos-package.R
@@ -56,6 +56,7 @@ NULL
 #' \itemize{
 #'  \item \code{\link{crossref}}: service no longer provided - 
 #'  see the package \code{rcrossref}
+#'  \item \code{\link{citations}}: service no longer available
 #' }
 #'
 #' @name rplos-defunct
diff --git a/README.Rmd b/README.Rmd
index f4ef6fe..dfeece2 100644
--- a/README.Rmd
+++ b/README.Rmd
@@ -49,7 +49,7 @@ rplos tutorial at rOpenSci website [here](http://ropensci.org/tutorials/rplos_tu
 
 PLoS API documentation [here](http://api.plos.org/)
 
-Crossref API documentation [here](https://github.com/CrossRef/rest-api-doc/blob/master/rest_api.md), [here](http://crosstech.crossref.org/2014/04/%E2%99%AB-researchers-just-wanna-have-funds-%E2%99%AB.html), and [here](http://help.crossref.org/#home). Note that we are working on a new package [rcrossref](https://github.com/ropensci/rcrossref) ([on CRAN](https://cran.r-project.org/package=rcrossref)) with a much fuller implementation of R functions for all Crossref endpoints.
+Crossref API documentation [here](https://github.com/CrossRef/rest-api-doc/blob/master/rest_api.md), and [here](http://help.crossref.org/#home). Note that we are working on a new package [rcrossref](https://github.com/ropensci/rcrossref) ([on CRAN](https://cran.r-project.org/package=rcrossref)) with a much fuller implementation of R functions for all Crossref endpoints.
 
 ## Quick start
 
diff --git a/README.md b/README.md
index 176b1ee..07ae176 100644
--- a/README.md
+++ b/README.md
@@ -43,7 +43,7 @@ rplos tutorial at rOpenSci website [here](http://ropensci.org/tutorials/rplos_tu
 
 PLoS API documentation [here](http://api.plos.org/)
 
-Crossref API documentation [here](https://github.com/CrossRef/rest-api-doc/blob/master/rest_api.md), [here](http://crosstech.crossref.org/2014/04/%E2%99%AB-researchers-just-wanna-have-funds-%E2%99%AB.html), and [here](http://help.crossref.org/#home). Note that we are working on a new package [rcrossref](https://github.com/ropensci/rcrossref) ([on CRAN](https://cran.r-project.org/package=rcrossref)) with a much fuller implementation of R functions for all Crossref endpoints.
+Crossref API documentation [here](https://github.com/CrossRef/rest-api-doc/blob/master/rest_api.md), and [here](http://help.crossref.org/#home). Note that we are working on a new package [rcrossref](https://github.com/ropensci/rcrossref) ([on CRAN](https://cran.r-project.org/package=rcrossref)) with a much fuller implementation of R functions for all Crossref endpoints.
 
 ## Quick start
 
@@ -56,40 +56,34 @@ Search for the term ecology, and return id (DOI) and publication date, limiting
 searchplos('ecology', 'id,publication_date', limit = 5)
 #> $meta
 #>   numFound start maxScore
-#> 1    33699     0       NA
+#> 1    36908     0       NA
 #> 
 #> $data
-#>                                                        id
-#> 1                            10.1371/journal.pone.0059813
-#> 2                            10.1371/journal.pone.0001248
-#> 3 10.1371/annotation/69333ae7-757a-4651-831c-f28c5eb02120
-#> 4                            10.1371/journal.pone.0080763
-#> 5                            10.1371/journal.pone.0155019
-#>       publication_date
-#> 1 2013-04-24T00:00:00Z
-#> 2 2007-11-28T00:00:00Z
-#> 3 2013-10-29T00:00:00Z
-#> 4 2013-12-10T00:00:00Z
-#> 5 2016-05-11T00:00:00Z
+#>                             id     publication_date
+#> 1 10.1371/journal.pone.0059813 2013-04-24T00:00:00Z
+#> 2 10.1371/journal.pone.0001248 2007-11-28T00:00:00Z
+#> 3 10.1371/journal.pone.0080763 2013-12-10T00:00:00Z
+#> 4 10.1371/journal.pone.0155019 2016-05-11T00:00:00Z
+#> 5 10.1371/journal.pone.0102437 2014-07-22T00:00:00Z
 ```
 
 Get DOIs for full article in PLoS One
 
 
 ```r
-searchplos(q="*:*", fl='id', fq=list('cross_published_journal_key:PLoSONE',
+searchplos(q="*:*", fl='id', fq=list('journal_key:PLoSONE',
    'doc_type:full'), limit=5)
 #> $meta
 #>   numFound start maxScore
-#> 1   161020     0       NA
+#> 1   167954     0       NA
 #> 
 #> $data
 #>                             id
-#> 1 10.1371/journal.pone.0024229
-#> 2 10.1371/journal.pone.0024016
-#> 3 10.1371/journal.pone.0094828
-#> 4 10.1371/journal.pone.0095065
-#> 5 10.1371/journal.pone.0130784
+#> 1 10.1371/journal.pone.0130089
+#> 2 10.1371/journal.pone.0165670
+#> 3 10.1371/journal.pone.0162873
+#> 4 10.1371/journal.pone.0163015
+#> 5 10.1371/journal.pone.0167202
 ```
 
 Query to get some PLOS article-level metrics, notice difference between two outputs
@@ -101,27 +95,20 @@ out_sorted <- searchplos(q="*:*", fl=c('id','counter_total_all','alm_twitterCoun
    fq='doc_type:full', sort='counter_total_all desc')
 head(out$data)
 #>                             id alm_twitterCount counter_total_all
-#> 1 10.1371/journal.pone.0024229                0              1762
-#> 2 10.1371/journal.pgen.1004259                0               686
-#> 3 10.1371/journal.pone.0024016                0              1774
-#> 4 10.1371/journal.pgen.1004316                0              1597
-#> 5 10.1371/journal.pone.0094828                0              1024
-#> 6 10.1371/journal.pgen.1004352                1              1647
+#> 1 10.1371/journal.pcbi.1000942                0              2388
+#> 2 10.1371/journal.pone.0130089               11              1942
+#> 3 10.1371/journal.pone.0165670                0               202
+#> 4 10.1371/journal.pgen.1002909                2              2858
+#> 5 10.1371/journal.pcbi.1004317                8              2818
+#> 6 10.1371/journal.pbio.1002259                0              2652
 head(out_sorted$data)
-#>                                                        id alm_twitterCount
-#> 1                            10.1371/journal.pmed.0020124             2480
-#> 2 10.1371/annotation/80bd7285-9d2d-403a-8e6f-9c375bf977ca                0
-#> 3                            10.1371/journal.pcbi.0030102               53
-#> 4                            10.1371/journal.pcbi.1003149              145
-#> 5                            10.1371/journal.pmed.0050045              153
-#> 6                            10.1371/journal.pone.0069841              860
-#>   counter_total_all
-#> 1           1707520
-#> 2            546738
-#> 3            448864
-#> 4            409507
-#> 5            391646
-#> 6            389823
+#>                             id alm_twitterCount counter_total_all
+#> 1 10.1371/journal.pmed.0020124             2859           1984822
+#> 2 10.1371/journal.pone.0141854             3105            733371
+#> 3 10.1371/journal.pcbi.1003149              153            567900
+#> 4 10.1371/journal.pcbi.0030102               57            539980
+#> 5 10.1371/journal.pone.0069841              871            447379
+#> 6 10.1371/journal.pone.0088278              891            427864
 ```
 
 A list of articles about social networks that are popular on a social network
@@ -133,20 +120,20 @@ searchplos(q="*:*",fl=c('id','alm_twitterCount'),
    sort='counter_total_month desc')
 #> $meta
 #>   numFound start maxScore
-#> 1       43     0       NA
+#> 1       51     0       NA
 #> 
 #> $data
 #>                              id alm_twitterCount
-#> 1  10.1371/journal.pone.0155885              118
-#> 2  10.1371/journal.pmed.1000316              923
-#> 3  10.1371/journal.pone.0151588              153
-#> 4  10.1371/journal.pone.0069841              860
-#> 5  10.1371/journal.pone.0149885              123
-#> 6  10.1371/journal.pone.0073791             1667
-#> 7  10.1371/journal.pcbi.1003789             1528
-#> 8  10.1371/journal.pbio.1001535             1798
-#> 9  10.1371/journal.pone.0148405              469
-#> 10 10.1371/journal.pone.0156409              121
+#> 1  10.1371/journal.pone.0069841              871
+#> 2  10.1371/journal.pone.0171774              163
+#> 3  10.1371/journal.pmed.1000316              963
+#> 4  10.1371/journal.pone.0073791             1721
+#> 5  10.1371/journal.pone.0148405              497
+#> 6  10.1371/journal.pone.0151588              321
+#> 7  10.1371/journal.pbio.1001535             1933
+#> 8  10.1371/journal.pone.0168895              148
+#> 9  10.1371/journal.pone.0090315              440
+#> 10 10.1371/journal.pone.0150989              237
 ```
 
 Show all articles that have these two words less then about 15 words apart
@@ -156,13 +143,13 @@ Show all articles that have these two words less then about 15 words apart
 searchplos(q='everything:"sports alcohol"~15', fl='title', fq='doc_type:full', limit=3)
 #> $meta
 #>   numFound start maxScore
-#> 1      100     0       NA
+#> 1      117     0       NA
 #> 
 #> $data
-#>                                                                                                                                                       title
-#> 1                                                               Alcohol Advertising in Sport and Non-Sport TV in Australia, during Children’s Viewing Times
-#> 2                                                   Correction: Alcohol Advertising in Sport and Non-Sport TV in Australia, during Children’s Viewing Times
-#> 3 Symptoms of Insomnia and Sleep Duration and Their Association with Incident Strokes: Findings from the Population-Based MONICA/KORA Augsburg Cohort Study
+#>                                                                                                                                                               title
+#> 1                                                                       Alcohol Advertising in Sport and Non-Sport TV in Australia, during Children’s Viewing Times
+#> 2 The Effect of Significant International Sports Events on Qualified Detoxification Treatment Outcome - Do Drop-Out Rates Change during UEFA European Championship?
+#> 3         Symptoms of Insomnia and Sleep Duration and Their Association with Incident Strokes: Findings from the Population-Based MONICA/KORA Augsburg Cohort Study
 ```
 
 Narrow results to 7 words apart, changing the ~15 to ~7
@@ -172,13 +159,13 @@ Narrow results to 7 words apart, changing the ~15 to ~7
 searchplos(q='everything:"sports alcohol"~7', fl='title', fq='doc_type:full', limit=3)
 #> $meta
 #>   numFound start maxScore
-#> 1       51     0       NA
+#> 1       62     0       NA
 #> 
 #> $data
-#>                                                                                                                                                       title
-#> 1                                                               Alcohol Advertising in Sport and Non-Sport TV in Australia, during Children’s Viewing Times
-#> 2                                                   Correction: Alcohol Advertising in Sport and Non-Sport TV in Australia, during Children’s Viewing Times
-#> 3 Symptoms of Insomnia and Sleep Duration and Their Association with Incident Strokes: Findings from the Population-Based MONICA/KORA Augsburg Cohort Study
+#>                                                                                                                                                               title
+#> 1                                                                       Alcohol Advertising in Sport and Non-Sport TV in Australia, during Children’s Viewing Times
+#> 2 The Effect of Significant International Sports Events on Qualified Detoxification Treatment Outcome - Do Drop-Out Rates Change during UEFA European Championship?
+#> 3         Symptoms of Insomnia and Sleep Duration and Their Association with Incident Strokes: Findings from the Population-Based MONICA/KORA Augsburg Cohort Study
 ```
 
 Remove DOIs for annotations (i.e., corrections) and Viewpoints articles
@@ -189,15 +176,15 @@ searchplos(q='*:*', fl=c('id','article_type'),
    fq=list('-article_type:correction','-article_type:viewpoints'), limit=5)
 #> $meta
 #>   numFound start maxScore
-#> 1  1565546     0       NA
+#> 1  1705775     0       NA
 #> 
 #> $data
 #>                                          id     article_type
-#> 1        10.1371/journal.pone.0024229/title Research Article
-#> 2     10.1371/journal.pone.0024229/abstract Research Article
-#> 3   10.1371/journal.pone.0024229/references Research Article
-#> 4         10.1371/journal.pone.0024229/body Research Article
-#> 5 10.1371/journal.pone.0024229/introduction Research Article
+#> 1        10.1371/journal.pcbi.1000942/title Research Article
+#> 2     10.1371/journal.pcbi.1000942/abstract Research Article
+#> 3   10.1371/journal.pcbi.1000942/references Research Article
+#> 4         10.1371/journal.pcbi.1000942/body Research Article
+#> 5 10.1371/journal.pcbi.1000942/introduction Research Article
 ```
 
 ### Faceted search
@@ -213,19 +200,19 @@ facetplos(q='alcohol', facet.field=c('journal','subject'), facet.limit=5)
 #> $facet_fields
 #> $facet_fields$journal
 #>                                 X1      X2
-#> 1                         plos one 1319779
-#> 2                    plos genetics   51827
-#> 3                   plos pathogens   45119
-#> 4       plos computational biology   38599
-#> 5 plos neglected tropical diseases   37114
+#> 1                         plos one 1407216
+#> 2                    plos genetics   54150
+#> 3                   plos pathogens   47708
+#> 4       plos computational biology   41170
+#> 5 plos neglected tropical diseases   41072
 #> 
 #> $facet_fields$subject
 #>                              X1      X2
-#> 1     biology and life sciences 1505447
-#> 2  medicine and health sciences 1167857
-#> 3 research and analysis methods  999924
-#> 4                  biochemistry  736199
-#> 5                  cell biology  629720
+#> 1     biology and life sciences 1630484
+#> 2  medicine and health sciences 1273984
+#> 3 research and analysis methods 1067048
+#> 4                  biochemistry  792385
+#> 5                  cell biology  673604
 #> 
 #> 
 #> $facet_dates
@@ -252,17 +239,17 @@ facetplos(q='*:*', url=url, facet.range='counter_total_all',
 #> 
 #> $facet_ranges
 #> $facet_ranges$counter_total_all
-#>    X1   X2
-#> 1   5  395
-#> 2  15  826
-#> 3  25 1106
-#> 4  35 1686
-#> 5  45 2134
-#> 6  55 1979
-#> 7  65 1845
-#> 8  75 1784
-#> 9  85 1441
-#> 10 95 1279
+#>    X1  X2
+#> 1   5   0
+#> 2  15   0
+#> 3  25   9
+#> 4  35  52
+#> 5  45 242
+#> 6  55 256
+#> 7  65 219
+#> 8  75 228
+#> 9  85 168
+#> 10 95 253
 ```
 
 ### Highlight searches
@@ -303,7 +290,7 @@ Simple function to get full text urls for a DOI
 
 ```r
 full_text_urls(doi='10.1371/journal.pone.0086169')
-#> [1] "http://www.plosone.org/article/fetchObject.action?uri=info:doi/10.1371/journal.pone.0086169&representation=XML"
+#> [1] "http://journals.plos.org/plosone/article/file?id=10.1371/journal.pone.0086169&type=manuscript"
 ```
 
 ### Full text xml given a DOI
@@ -344,20 +331,20 @@ For example:
 plossubject(q='marine ecology',  fl = c('id','journal'), limit = 10)
 #> $meta
 #>   numFound start maxScore
-#> 1     3050     0       NA
+#> 1     3493     0       NA
 #> 
 #> $data
-#>                                                    id  journal
-#> 1                        10.1371/journal.pone.0021810 PLoS ONE
-#> 2                  10.1371/journal.pone.0021810/title PLoS ONE
-#> 3               10.1371/journal.pone.0021810/abstract PLoS ONE
-#> 4             10.1371/journal.pone.0021810/references PLoS ONE
-#> 5                   10.1371/journal.pone.0021810/body PLoS ONE
-#> 6           10.1371/journal.pone.0021810/introduction PLoS ONE
-#> 7  10.1371/journal.pone.0021810/materials_and_methods PLoS ONE
-#> 8                        10.1371/journal.pone.0092590 PLoS ONE
-#> 9           10.1371/journal.pone.0092590/introduction PLoS ONE
-#> 10                 10.1371/journal.pone.0092590/title PLoS ONE
+#>                                                     id  journal
+#> 1                         10.1371/journal.pone.0149852 PLOS ONE
+#> 2                   10.1371/journal.pone.0149852/title PLOS ONE
+#> 3                10.1371/journal.pone.0149852/abstract PLOS ONE
+#> 4              10.1371/journal.pone.0149852/references PLOS ONE
+#> 5                    10.1371/journal.pone.0149852/body PLOS ONE
+#> 6            10.1371/journal.pone.0149852/introduction PLOS ONE
+#> 7  10.1371/journal.pone.0149852/results_and_discussion PLOS ONE
+#> 8   10.1371/journal.pone.0149852/materials_and_methods PLOS ONE
+#> 9  10.1371/journal.pone.0149852/supporting_information PLOS ONE
+#> 10 10.1371/journal.pone.0080365/results_and_discussion PLoS ONE
 ```
 
 However, you can always just do this in `searchplos()` like `searchplos(q = "subject:science")`. See also the `fq` parameter. The above convenience functions are simply wrappers around `searchplos`, so take all the same parameters.
@@ -370,11 +357,11 @@ Search with term _marine ecology_, by field _subject_, and limit to 5 results
 ```r
 plosviews(search='marine ecology', byfield='subject', limit=5)
 #>                             id counter_total_all
-#> 3 10.1371/journal.pone.0080365              2003
-#> 1 10.1371/journal.pone.0021810              2327
-#> 5 10.1371/journal.pone.0149852              4162
-#> 4 10.1371/journal.pone.0031775              4805
-#> 2 10.1371/journal.pone.0092590              7183
+#> 3 10.1371/journal.pone.0080365              2203
+#> 4 10.1371/journal.pone.0021810              2581
+#> 1 10.1371/journal.pone.0149852              5941
+#> 2 10.1371/journal.pone.0092590              8007
+#> 5 10.1371/journal.pbio.1000131             42699
 ```
 
 ### Visualize
@@ -386,11 +373,11 @@ Visualize word use across articles
 plosword(list('monkey','Helianthus','sunflower','protein','whale'), vis = 'TRUE')
 #> $table
 #>   No_Articles       Term
-#> 1       10480     monkey
-#> 2         428 Helianthus
-#> 3        1171  sunflower
-#> 4      117345    protein
-#> 5        1370      whale
+#> 1       11163     monkey
+#> 2         466 Helianthus
+#> 3        1285  sunflower
+#> 4      125467    protein
+#> 5        1465      whale
 #> 
 #> $plot
 ```
diff --git a/inst/assets/img/unnamed-chunk-21-1.png b/inst/assets/img/unnamed-chunk-21-1.png
index 08c182330cc7dd4af7fcf35600759aa321571dee..13643c164d719250d7ac13220c4d9ddec143d842 100644
GIT binary patch
literal 17874
zcmeHvcTiN_mo2m)2nwhK1qo(?fPjF4KqG=8Imd291tiBNXH-;@N(Kpnk{W1o=q8IG
zAUS6wLqn5udZ%st&D2c2s#jC5re3}I{;<jm_ug~PK6~%8_FDV$PFeBM845-UA|j$Q
zvX39C5)lz^<NuML1V2e(Kk_0XA~|C!C8aDYCB>#}XKie1VMIi9Hz-I0_VSVjtvJTs
z<m$B+HH$m19nvJuTt5@4dFM+3+G}`N$SOisXyD51i%nchR71;M0nEV{C23`MzWG?%
z+R9>YHueqbLGc3KaEj{#U2N>)1>1hgvjHjCXi<S^Q*`c#5zc)rZYkakS8B3EI$N5d
z9r2Ntm_8<(n}L7a-aq867}tka{)r4Hzi6p2bHUQ(Awo)&PKA1-QZ;S{{oTWd30cK5
z%yewFtk3eN(<tAD5HF`{G&vHx?tWyInAc_5d^TIm2d(9GE&2Vt_q)BgXOOA!<gM|}
zx1<_sW^W^DLVo?&mN~u0m(ydAs9=W8n4L;`7K<28%(YoEJWQ~xe))RM@_TA)bb|P+
zB}4r^F2U<Fzg24GGCn29?30h1TY3~-8XJs={diX5<cFb=7*xvHrHA^NgJc;M3171c
z-(U8ec_p-VYn=OStME*tT6G^XBlO4TYRB4QLEY6=QIe{6XuX(~db>SKwfNPUsd>Se
zCO4Od`@3Z>k2gK+67DU|xzDb>ir^;O{}vhMM_23j*6WLm<mSxyVeZfqniChz7^h^t
zcs?al>G4j$EK_D%<xVpQcd^RRV|RU26OSI|2iSR|bWS2w0)vzWxJ&1;J1Rd~7~B)w
zUkf39yeiJ*pCV<Cy6s<1p`d-@><f12$x-^gm+5{~C;4f!XfM7u_+re!G*fkdRiq%g
zxw@hz?C|GL1HYY;mIBTf{^Gv$d5rtPne?4TE6CUS&(BME-V%mL+_=bguHUZ}&M&+9
z(Uzb1ip%@^3Y(#q^3K0l+U<K{Aq~GT+;dPCD4?1WD?NO#0F(IiNPtsbU#&Ou7FE%k
zt4$nxq_Fb+I)hyOxm&_2MdKIa&{{1!20Pe&{!OlZv#(=blUggqcJ;cyFnRLd7c8{x
zoirFNPfpM;w@3eY_k(%Oc4bnFTE;V?A$kV24!f^o%|j)V8A-ZpwxfAbG3a6Dy5G8g
z!L9O}9_$Bo<;@<A9?c#t9@Q|&N71IZiHhGmHmvprb(>~ujJl(4^ez{QP39uZGoM_(
zYC*?BZ&xGqTg8xn_2y~v=MPl+d?K>2d-Mss@nXzW&snEa_w*}xG>PBs<wDjK4mC8?
z=WN0_m^G~x?p8>i54<MzA}~xyeXB%k?aP&Lr72ZY8Z}Y1^Xa)=lGOhBDUOMjkiC88
z?sTg>)%lL+BOVZ)P7y2YnPxgCxsK3hj3^<_h?x1=w`mvN{FD!VspdamsmnyVG_oGD
z9?OrRKCj2~==0v`stSpfg*~3}-~ytEOWr>9SFJ9zHj<5y-d%e&kT+P({PD3n<yhC&
z!e-?zzq98-*W6I8edY|eccHLoT;=GJLytK02uWlT<VBpA;I5(k^w64!2udXTP*UBQ
zcyX9AincrYXobP}DUUv_qz*|b`^eR2T^CT2((N<~<PRQdlD5Bk;b)<Fej?jeAuuT^
zsdiyJh>t{}?O`wblRMeyaSAINQbS^?wwEOD>>@EIyu4<1w47So1iFVEw0hHb;%B1g
z<}>C+QpHozBO<98NZrNVTNh6elh8nkh)K>}Zxc~5|K7;vO#~rl^Y%W^R+WF5aPa|3
z3~`5Wg=;(j_t8MTiCTpSH$fq!<jbcr)isY_0=Yl<=V2nqDO$Fwn>ngF*9k8tU$!^_
zUJ8DBO*xU@2TP05(8V}rSq`HG9j7R`lob?$G&D5&(Fkmfv61T=@1YDNQei`}5e7BR
z`_Ano(9BUhFrcfKZ>-?SYVq6Ne6%MUCTcwl?x)xFD;Se{7e!21#t{km@?rPI>oR|4
z%BJp3#QLQ6G-2rNn^5m9R0}&FetkrcFA$P#<txVcwbMYWB#0qpUI>|YXa8K2)3H_g
zpW{10xbyH7&Da4_;7Q=0#X-}Eh{eO+Ui@P<nq?(#q9ubkm1l&7J^%*!^6=NO4ZR>F
z&PVfs=dS*_rs0HoQ(u2}l5pofFz}w1N!W!y6ZcUDCT2e?@W)1MV+lmWBb6e_wS<Yk
zqM-RdUZV1x!AB0TLRz(_>$B}Y^!1-bXlQ9gMj;HPbyJAAw<C0xG6nI=g4W>o4)s)%
z8b5(VBQS=Zae02vpCL~%fbA>u)e*zb)hB`j>TMmp(W3ij9oO`|i4vA6j5q!m0KAmA
z!l*~oJP2=`4>n*KHC$2MQh2Mrj0PtDuMJ4kL{#a#@=UMP&Zvh`r^q6@{BRdr<aw~0
z*%`?LGoxhSDPR_L3^Q`=k-zwkur0NaT(_9dknIxNiG_J2s>o^>{q64bujuDaqaIG2
zHr9PP)!F5nx}pc`ox}H$npt)UgB2c_?w%gBZRib!ylfaohF?rW`6OXq-}*o^b(iyv
zoAbC(WgSJ9gGEfu<y#}>CUJ-evCY2cxFxK?5n3VYcD0c8$ij5oUE8D$Y;UXauPDRL
zRHb5ZkKMk>hETO8j*WG7nbU-Ar8(i#N3xxo;5mRpV|f_HM4fO$-ZEMCK}`HF-WHm5
zHy)f}yz{fjqW>9}W@e6{c~9R^slDao&ySiK8b(=q#YMlr`wuSk=UYzH1zk@VNz5se
zB)IuWNbX#c7FI87jfz>MFN{Ntu`Mn3U~|yg`Zlhx7oIO<IiS6T8@Ak8owCwxjTci}
zTc7W4a>Napirgi4C3zwUGot#mikXVg^DV}0)KKy|lvAFOaa~SHN~&2e-WqXpQy$o+
zJzKop^&>v4HgYk3F)K$`Qz|DfkH3Ad7_8~n7?UQ9Vs`!wtAKG}cUM=5W|?oM&^jBb
zq|?THcgotvx6dQR)}w5CTJaMh65<>16JYo5z?jDLI*7wu<=t<&-OIA&O7&b>-891V
zZl*k)l5+{rl5#7$M(XtAw81d#UX7{+#9dp`Z!UnIJI_43wC*I;rI!pahmTBIL3&vm
zzi7*-(F=ZC)%UCSp2<^3q-&9`CF)mi7n=8`WYdw??JQ@Uc}y%`(o*fuU;ic0u2blp
z-X*i-W&UkdukP+{9_1a?ks9-_B?(;>29hIM#pRm=T(q@FB9zq*HXGB@HRbVxPV1{?
zwp=7nk!j}*BnqWeIF7)<WVOb*9*5hxX0ZL;<MTd!`Y#x!S32Z)OUJ}L_qR`0!xFIV
z$^PbibHdA#x_K|&iHfK#^KPuODZvTZ=52sC12KH2eIv9azg2vYN@SKzP1s{O6-Ng%
zlz3W26f1(rz$7YWZJ2hZ^uIlORX?Djt8+p%I_v}?cR;HGh$QT%<(=XmN_=Ayb+quS
zOzh5%onY^yX1U+@<_y!cm5qQ|SK3ptVFjBf_r$`_9w*~kD7ddx^>m|3!IfEGA=u<s
zN~OGSs!G<Jt-#%kV`;Irc3rR8u{~J<h<g*7B~SM{i>9R*#as)he*~5VA`pm=Gdhpo
z4D`<7;?S(*98ScGg9C-;Gg*4maqw7Oa}-aWx!HC8dZ+m=j<rRr@89Ap^xgy#GH&8&
z2;8APvikKcf)SQ=K_W$Ls5leSV;&{VSU%=9{ht*Qqd=~LYq7q5MDTYE$iNuN=l?wT
z$5#Is=l@U7ff{YL2Xd!Cjf}n_X4}3*1q8m(;VecOg^;AZleaO4)aAEVxSJG~YpAO`
zmxgf6+_;?ob!n7*`K*Oug6D2J9$fi;ejh7+46f>em;x|kuXq)#K*B3=fwxvzYz_37
znVa{ItPYJ7Sep-{3yZB52aBm;&(X90K&t;qsPTUQF#hjYVj1OfQv`QD08FR`Iz6;Q
zI=6mFo8v;?M?}1;Qfmyy)#LMCJCT2UpQ6R;aDT^fZ?Sj~z{|{viV+dS{EJ?F`ygib
z<!Y;F08#U7C+hk)7YDP7ih6=#@0fl<EDi{Mnj=MBV14-KBupfMj1-J5l}u1E{4xR1
zGemqhjdGb{Ofu#ekKXavU7zboRbq|3?_zhm|B2YYKm4m=i7Jho8Aa#Qk~1}snwlyq
zh6j6F#gzw(*1^i1(=Bo4S04ozWMpvSQ^Ofn@gd{ZcuOW>s{&P}5J@pr62eK%NbcMz
z?bUK`rq9}IPY>IlpSn0y+UdE48SPJ$^c!l-)GzHQH`D##x-maBt=3zP-UxppST5yH
zC0SJDxTxD3@PToqze@II+>3Izt(HquKWt)!EHm@+I`BwB+GRrZap@czZE;E0W5cQC
zZ-?v5Ms7`&!Fs;2!o;4xqWCtaW32}y4kskgG51%0UR?yZ3-KM`=i8(@mXneczPR~r
zq~-TFXRgN)5U7(!l|QRzlq-rD#_&O>=;Zn5`!ZseB|~Hb11@5ce$!((IntmYulA2n
zWWaknW7iL28Hf)%l_UyPl4bh8__LS^583!pMyaL9=jJ}IAMm3VpXGd#wfmnCXfF>8
zUBYi1tcHY>U99*P6T|4#_`N<avQrnIfZ;tZ_lCzKig^diiv&qI4H}suU3)4F%I{R5
zr#ik*N_+Rxt((z}+P8`oEmiEH7bh^I2ic-C6)zgjF{le$4ovE{R;v`Zlyf1lJ<XQ;
z-#+8`$5{#GD&M)~@hhUF=A<}0ij_`Hs7W_B1GREb@*`^D%+V4uSs#NL?XD!A{|G@3
zqn-!bR$6Kmm$jH6oAxU9aQUF*8HDMKmfD*z-G1t=5GT?NQ%>#KEimo0sC|1DSC#mm
zfG8?r@71aE7A>FeIpRuZ20mPtvRE1a;n>7oti89nIE<dXAsj1gT~zHyHkf1hedvsp
z!-)9fZ}BXX-?<3Wx21Vmh|Q<<_np)|38O<%KH2OyNyubX!HSps<QP2tEq+8jUa#1y
zS%{-&!Z%>Sf$>!s2AXqVs<(DIh(&C`|CtQD4vj|tT)TBm3icvZEdo7C#^K~Mc16@+
z*ug_bdv*K@=2y6~lbgM4agHTVxT~wZi@+HIl1?Kjn@tL#@N*{=fsfw<pvfWF;7X|9
zK3rA~BSJB?&%&3h%YO?*w6YOqOdcl5wnT(_dg#ZxUzJ_4Yo?_SOSIYk?LWv+xh?Ia
z7L7$!R-8skMi9z*whtU1oV+XNQeuaawR%woOA+=HLBa!hMokv`+bcN7JlCUyqn(6k
zm)iuwfe3Pza?*qD0OfUHj@e&rT0Goaa+2;oKe9gCgTbMj%Dtw-wHBzow*BI4>n@%}
zQS@IX@DEV74_cHJAh8to_|+Hi=ob7O@jCKwvX6f1gT@XGT30fcP0<kmHc2D6*Sq&%
zY=b1$X~d<T4go4>oFMtO>l&z~2R!!{XX@7eFa;p*G+zDS#BdO85^pN8*WWrcJb6R$
z^GmWzHr{dWs|`i&J9c1J*aZ+6Irc60Qtz8fWgjnmjAYfU8haj;+ji70JBM49)~+eL
zffogaLWkmA=Q-2@4nZ&%t+j|!!wI>ChCLZN!o3|Y<~HC<N;y=zb+9!$Dwd@%)qCQp
zOz@>SmR8-mjmzf8H*d>>ZD37HH-}gH9CaofzVK&uj9SDjRp2i3Ry!OQThK&zh>KG@
zG7bF!*Y`X`P;6UTxWomURlM-qpS1|(xq-x8a^KPP|4hi$P$<NOY+HE5`MaXTfy3Tx
za)`x3UoOWF+%N_+TFHv&QYkWOis*7arVXHMu0CZa_BFI%MmIm(_+rdFYhIm7KbHU)
zcp<Mt_rWrk{PN`*%Jh}va?u;Q4sjvfhG880%UsqL21gHzG&FIZyA{@>6*wx#>ZOTf
z17<ryvL_-wHAy$N;iH+Q+wZnio?4wL+qnT{JoncLmDo^3sIja7EQ|9P@gN9Mt8eiF
zCc$Dy`)etK-Jb|9{b%{4&U9-<gI4z3&M@`V*kN`&q2V}Sn%a-g!elJYi7>~0BdhyI
ze;>Jzx4}fPXp3=kj1k4MSp%0s{QdrQ+EQMxou<u&{8n913cB>X(Lc6X)u{!~Z~9cX
zU1>8t_YQHGB{b8pI^g#%`(Jv7&S(BhIX3btD|>6@f?!@mPjp{bBG8LOKF+6JopeUj
zkJ{EVyM*t4lH<t@;H|ieYP~IRyi{5xwmVf=vz=*A`p7JHY%i)+D8}~K$7nu6UwX5O
zIHb*my!t~75kU^gLHLwwT7vxJ*ebSlN4p6G<jCQ6y@b$(dZxdg76Kh1_WWJ*+OhWR
zqrPx0_#6uZ6YU=G@?1b!j8v=yS@*TXiTbsdT{(`fizKU5%Uh#fl^9qSPPe#KeDCY~
z{Q+}S>F5uM-Pz>LCWAwM!T96&qInAk&UrK$sx+{@GO<W$u>HWV15gQdb%7Trtc>=+
zu_YK)_jfXHHSv3y+TgL;aI+^}E%k<6KT?YqJsaC)2qD;@ogD8AInl%?PL@zE0F05V
zcWTsg&k{J=%)(m2(Y{sZ1)t;fx1V}-D4%Vs(j|s+Yhm@={++@!u#OuZ#4}BJIt7gu
z0VRGc%yVZdNTSZ|*dT9}!Gyi$(^ChUcq<ot_d>k(Cr%EpNWD3oE4ozH2~KB*-<%)l
zj<@6v{ZG*<bK-g5-qtCHNDL_@y*8*@Hb6PiZ@(5KFfI1iOBE9niCAeLac`Vgy3gm_
zbe#0bYafCwl>pqFW2b^}|5nA87?ZerNzkQx9TB_+BNi(ND!4@S)xU|&h2+5rcMp$p
zj9?Z#+#y!?KrqtRB{tUI^w<fMMSR+bj=E8v-Rlfr>sj1xU6}lv=$>(Y=v^8sq>|YG
zO}+So!N9@}vEErK8+t?VUfij_kGuM`(U;-ismLk6uX^2%OC!T#+BYtwYBd*|b#r#E
zPvaaScP_p;_V&a(kT1k=Csb#UCER5yT>aGgwR;DG;fnXB!cuPVu^c<V6&mt0%bedm
zwuVhQQxxofw0BOfYxf-<><P2SQ;}q3WGsN(VrA1(Q7wN=>k;`pCb6Sf#wW31_qFD1
zD67Z%$Gy@a9g{dZS>gtg;}@?o{M@^O`4PY{m{mLy<E7{h`8(qIpIlYg2Wa6@_t1dZ
zD@Yc8LVzXS_9=suwd7+>?Rd+Ueeuld>#3iqe}jDzaxc!W_10^iuY=~O@`YFD6>|VL
zs+%D0G4ulwy%xwQ*tq`aZ>X-4Pco0qG{?@ckhx8Me1tw{Jyg=Z9vKZt(a$>(hJRg2
z8-G4B^?x`XgKY%j66Z&)M;8~#3dp2k$3aWOe17KRc|T##sV9aP=XN(+2a9cLJHZbD
z>dFHQY<SMkTa3py)sU>>lBnrRUbbI}<u`hd`92JIu1tkkA)yyPX|^tHgOlfGRFKx+
z;P!*UiQ%n2M~l{8=0}H1NAYOka!(Oqn=z;xIHxTu4>q~JbAGt~Z_b<^a2V$_k_#-*
z<GMa;h-Vt{V7>y#sU@Q|tWHC=j$=M#=Z2V?RtY=o!%y+5XpGfs-<C<pBC61Gu;(N-
ziv<JR`3rcD3+7<6JP->du<PV(ZI9UsNGq*|MFvalQ?YL(K#E>0=u{l!E<wh||4myf
zXUQ$A4Q#4Oix5~%x8-UwJhm--|DK{#+5xQ=r@Q*q#;39I3AXKv)OH|Wtkl$I;lk9{
z+N{sJKbi(3mokfl7b875tXIrlwnkjTQv)Do>VuhwcO2vF6C}JU@MtbYDZxs>q@}=P
zv%g;aU|mggd(2OPI_b;x1P{N^k5r%B<pc!<vx`$!;wU`yLeiSJis$F&hjGgn5chss
zx01N`;|j9?g`QVFr8A6PbOmXo9AQ3M;W5kT@7Qj_^Beed5jcPcH8Zsh1&n{?;8Usi
z&g6N#vn(X~QRU$?@d$tyze4_nc8q9%-;zyrer#R-{oS%BQ)d&LAOlLCtLKI1>X@tx
zq^QNZ0Kmw8s`;-Y{WOG>bo-Ybi%k{rW-{x+&%^y02~7RZV30o6-CVxy?z(QNi6B%$
z|N0+D5BAHY^wKk<t#>C*Z!x&b%;c<V_lHOv_K7&*E(K2i%@$8?<<xU;pNkCnLC|o#
zffPov4QbmZC%B3&5K8LH->@G;Z&GraF-qvfRYD%Ag#r0#i!sTaa7oJs_2wlC3ON=7
zoPbm^Wd3%QkkgdCfsR6SN8FbnW()zs(-w8P(VuWh3?UtDP%KV>0VM<@Z3(#i#kW_3
zb3olF#O@pKxHe?p8Xf=mUr{+rLSa@dvA2-#`17)VAHX$M20M*f3wU_ndWGfA%MV!w
zmEsz%V&+?!`7L=s9r#+uM>y1oAm12%Vn`*NaQYz0uVreX;En(rq3dg{1_~Ocn`2Gz
z2i}=WciZ6ZE7DC<I)&d1#O#h4T_XyR3{a)hjGgws4Lmk9klERa=`g#7>q4&UFGW{s
z&o6FO9+jVA7P%uBbR5Ps_>+!j7mt6Ktji3w;4VgfV=T0#UPp)7a);j{;S@3}?~jkM
zKYoF9cdc`imX;2c?!F^-BjRtYO#R7q(M$932_PHHaqiZc&UJj-++S;r)m^>zHwz>{
zM`p&XOMaj1>|U*BcKYnGH#q9Z&~G_X){hug0+42N*vSA7v73rzCjWx(2q$m6DHj`V
zCKOnEuEh$0!}jE>)Huf&^I>~Zj}!DG#~WG-00jK{eGtnEKAsJquH#UkY(L;R%=u0g
z;7<CJ=6K1D4D9Sx=6t*FKDQLwS9mz7*AbpqwgP7simC7Z;r4_}_}VXl)&hZ+yI21s
z>}gGq7`3X{nJ%;I5}P}<?DCQC7!^s=fdgiAyH0p$XLH)_0HBZY>@+VtupRTGb}Y`b
zwDL^(dw!adf?R-cT$J}xxIXN4n1RgZ9}WRp#fp$&4GA(m-PFvn?ytj>fYYraoxkkp
za1XbIbG>8%!rOAbE8P)510g}tiQ`j{?SW4j?gc{_wwjE!pw$CskIP1&dCOZm&kvno
zJ`Pm&N+_IryYg@Y<p|`IzD%9`A?5`<^6zZ6e0+TN((w9x)>{U6GP^tbQFSnra0~q{
zZKzF%7EG0qu#c*cFWlSI68micIz4Z_zZSSL*I6I$JbnsaqUw3Gu*P!FeYx}RHvJ_f
z+z00M1o(6Co`)OAQCX#xtVi4RQ+ikJ2tqND&$55>tkYs7+|?AW?)vrCzaZ*OngMAP
za-#G>g*)BDmg7La0)A-l^TE#Pzo16To5%p}Wk--F60d<2@hK-ynK0c(E)e!8iBf_+
zmCu2&m(|u`Cp<a@gyzWJgdu_v+24UAa4qu|?H^b1Sp}MG6IKaF7&Yu6804HLJs}*R
zE+9ipZQOJs4D#d(7~~Wer8I#SDg!fE-3=8b408P}801y>YXWdphJzWn95fJ)Tc1xL
zWy#evJ~*BM3e2GFa59*XcVvN_e%;XM%kd2UuPxI%lGqc7m_jBkpEKEjrdIfxl3^g2
zS+tQ~%seHKQ0}lj^J#p$#`VPU{0;dWfG7I^2NS0|lA(dL7%H(X^4N1kW@RBJZYspQ
z0O<n(#HDyn@_z|iRT%pHU(o`KK>i#IvKp^_*Ml;Uh~<0!Mj=6b7;s|GLvJc6Hfzn#
zr3YRhq%XFU5IE^JwfJ^bihT4l1_O876X^fF2CFc<1DJ@!+y5rPjySaU_Vy0q&nYGV
zY7hXD6Aw3ra}Do-@-?My>sWD}j~Okp)RRqhnr*urzLcU6J5()WR%>#CQ!Z68j{lJh
z-%yGI6EZE$hD-rYd-ulc%*;#&vS^XMYdc(HatCv688Sh<Q$bDi?dOKdPAyk%|KQC8
z%g3W0x8JWB7%i?6xG&P=WAU}f@cWxjic5pV)*rG!+8+VMp--3FnLuXI9;&-z-X|yA
zos;9<91av)FG<-xSCbifrbg$cPGeByR#aS*Q3`lL9^-A**4LTe7>GUFlcYCm&ns!e
zU~%cHj5jUE%(6^U#yr}LSj(uVPmM4<cg>M6$5kF3ZvMO)@*+47$geR}cL*RtBM0D}
z(f9D4)y6C|dZ61)hw{O++qJPKC(Xeao?AWXk5zGyfh}bFED}_N!w<B20*H=4B{Q@+
z;%1Ejoa!(|x}4|Qbn~AIfs{f2DGcqvhX_J4Nxb}l9m0H~aZpxnoa4EANXT+DSBZIf
z^6+y1BB;8GK<$Q+K%}$3#Cia}HS19bOE#BIr4Mz-r|WX^GY{zY<;28(h8_dP@hfA}
z-mCz}iH2m^_wO>@wMk58Qvbet?=$4UoA`tUNPjqAk;0x-g;?XOGJ!VSyMPjvGg74@
zL?eWl7viqmHw{OGG9d=>BCG>6k!c7(XU>g}s!B>mwZ}&qAA#%gv!l%-M<;UQ39bin
zV&&=gfdOJHRWs{tKf(;V&s%s6^teCXo#QZdB8GKgr2vCfWA-j!fx?~(n_A;(4WFMg
zg1PV$($Clt<+YT6ct%1hAo3{y9F}D@4Ivf01F7I<3a8Fl!bCejo+u!dB82xf8PM1f
zmGMHFfRY{q1-6s^G{Kl3E`X%*EaMa1amN8S)LTjKHsSPzJ_A|eUHTJELPhe=fd82E
z|4paiJfDAq5B?EUQ0Beaut2$}@|Tta1-YPx;%$oe2uixhC2WAb&v;qFZe>aoxx_xG
zcQ~jnXLGe`rV=)J@D5ZFpkv5wBq88CnQoz(kzSF-J1Lbij_;s6J}qpWfo$;I%^TLz
z&?qHZl5>eA332uvqMh_WVEb~Pr(FO&V`+B<7KTdm?^3?E;o!{o4G%F2`CwX{`6A`j
zpw%6C5D+)|Mkod|b!!fT?3Z6#GPzR_aDX<5#OE+ES}MY24G6c_r7IkS5Pk+iF$A%p
ze3x)Z0ouwKrt6NY`L~52_<OpgeiK5PT^>M)D5eBL_0HA<qF-B!`t_e?EokCx5aNbb
z{|rjPNx63+;Q^Z`B>7QDu)&vS%1J;^xDe)h1$51IK?=r_>2FF9tbK)st?H4tJUt<S
zKE!W@?&p1ivEM>L^+(LFb6g$Zcf!nem0)W&2(UHD&ld!S4!o3PJMBjUfnWC_2m5=L
zEtHgyu~oq4|1;o!$)xvx{JUPk$sJka<MtsDpT^m|Rnb&{ZTdmCpatNCHTCqcn#LVp
zWqS(EwJNm&JFa>|CGq>uGixt<qzr?>@{w=#9OG{nFC>_G-s0Y#_E1&331p9h-HrT<
z0>*vobDddA3F1O7tCL+0e|rc+!JhjMXy+RTHOGne0>Q!*bh-AR5$1SqvpHUDP{?X1
z>ifAUQbJ(AB%Muat#+Gg47bY0W5#J*H!>10rgkAlzexFaImgBJmi$r&GVN}YAil0H
zZ5c?K25PBpfbQtCEDP~Lc<!ovjhziwCcSMy2oo3_t)2VqHRX6TlNC)DsO2p^_BIu`
zr|{AYcwx$j`B<vNK|1I<Osg)L9=Q*S&Sr&R2VEdNTYwDtaa!l4aS7cGe<rKfr)W1h
z03aNq*r6pBClf?8APeK8eYfWGTIGRkTja7fZS)83;d(NxZ%fIKc7Y~9wR8B+G1F5M
zI=4ze6Dr0v#031GGrB=>lmTEpyUy2@BH@oglkXnRadE%}+^kpJ7Cv>!o&BQ@*f|Tp
zlWH0mB*ci`-HNBQo0t0AV)qf4m28$p%(a9PyUw)D#;ucA%gMzBTc)l%CJUhYAcpRB
zJ)CKYv#jza7DCLc1JD<1-i-A{oxLhEiCEF6(&3{dM3^+dL^D6rVuvgM4}d4_fLd%X
zTyjy+Og%WkScnkmNpxdZFqg^^EQh0qi=#uN&}wP*d!Awa$Bv2biM{Cp5d7*sNj{;{
zqbVnXt+&U9UOg_t08<qCIqLNB18|TW%J1DfF3IdbI%s&;@TYhq@|gvt-GBFk&VBME
z)8I6G#}+wmlKboj1;F5O%s?ynVc_f=Sz<T!1aw~qG27OjJq2$XM-7Y~ZVGpf&WLZ7
zj`QBHmfHtJ-@<oliGt){5zcCJoqY|xa@Rs`?VPG$@!eT)%MH0}RgaX<0zDuEKf(%N
zX8yFYu1+@m8DV=ofOmlPaG7k&`8Ns5xLr$OaA3)EOB4fWhk%NOYrHl<Q5Je$ciL_C
zi~pyx7-@rI;Bz{l5E0v7{w{6cs89cx!9(B7*Y222c?e8;mQRP4V0~M#$MxTCu#+8c
zIW1meR<E7PO(Qu4M9Z5%#G@Ysjl$;(G`|_pmEsv8&^}w)VG@yeX%gS@i3NIxZ%@WL
z@`^zJ?}&uLiey0Z=2Y%sDw~%4Seg~Qx6<<1ISFqsrD&5*K+>)eP|z4~*OBDLq%^`I
zF$ucBTQxFHugy8d0QJnkvB?FvCT?p^#4AkB70@-RO*(~U;doZQ)cw|si*M82f(0N4
zA2saQa~svEM&0b^>5H%F$-R!|F{l^<gw$vs5NIr-N3pk&5h5N+Te4`=Za{B5vfd$I
z=F3Kl;!3{bzW^G3QUcm7Fq;GBi-3{tx6~~<i?;o_<aOjGEK7E#c*st!sDG6uHNdUn
z=wNBEp4DqX9Lf72HzLl-@Y%l4vzU5k!L5>)LB**#q(yhMJVtpd_wC$(HovIkwHu1L
zth`)Km2Z~bx#f`XHJ02|V!?b|(XpaO-)HKuBeLQJXe{Af?mQ!rq9-;_34M@w0kUJI
z^kXO@K;=-CcLGnzXM&;-uUwjUXN1Fmj`FSL)07(zXxk}+_>E)XU1p0&!Qo<SgT2+r
zN{jGtj23D-7O>bJ2Ur6qR#>HH`QFgpQl)iaVWHzfZvDVYJ?m1+!A`4}5aQH4d>w7M
z2pZrPzlJL2;e||x7-%t_hU@-Hz2#VykCpb3`1aU|SV8j$&^6bscz@;L9$=7{Qp!OS
zbrEQ}5Cx>3+FAv$U6K8aqUg?K=<wab#>2hJqro82g`DpTcpeqxy1{nZ%wC{!j$3gc
z_kkd2fgLHwm^056ylqTAae47^cmWTduv%+tJt^n~YP_L>r!M`UhfW6_mha&(n|P^x
zE;YdltfMkEV<TSFDLdV5H^5*&2}!1~jXK)p6+Qqmfjw$B)r2H1U=ws|%ZKv{@+J9z
zcIv+55b^m-1(vfTdj{Jz3_}U;a{x!;25eygQs5@*(F!YGvKT0xi68v>yl8O_ProZk
z9CVfP>J|M0w712~XM4r@nWxc%cFOTUgm3Lm4-B8ts#p!r9Q9M>Gc7M%G}jvi%JcB1
z7hdaGnEYyabB$=PxAL$s&aROI-(S+n9b71u=C7FA?ht?lJsy~igVCb{11H^V&`QqY
zGI@4pz?nH_K&DVhS?<V}k|zgr7j5OH#=ABi+`qM*-6ZF7`XYa=g0-2OMFyNH@>|%F
zhLEN8fH3=<%SE75IP4{krTXrUycoGsmhSOMd~`@$xsxe1#e%Vw!GG(=uzj6j&^gVM
zi`xan#)lkj#y6PzLx5ftcVyL@9VZ5~jZNyKWooOLsCx--@Yn#f>N_QGe0UG^<v!8~
z(6G}7mS>^`LxfXK$4FK?H->RoeRe#ztLm}jHfk@*NP1;aIcz<HIrmdzx=|WNgX~O<
z#LFpO&{+Zc1`JAfe7y$J@%lb4%eP13XiWlR=y7ievm}n$=+X1j3D{)J>_zm#W;|z5
zRU)4I&KMBni-6?L1EqzQ74u8>IXF=y%rP3sSj~%ffS5>!S?`b=_T#)GrXAmd$qh|0
zxv}`Td$nUJ!f!0w?d{RBzl4M1fDX)KqdQ%s!|ftTg>D2@T0!V3Dslcu*6tigMo|#R
zq8OaFiqTG_*G^=YM|t6}8M@ANPrb^lg>P{4>r;Nm1?{~lUaz?!4OTm?W%b6P2*1_+
zPKkq1QK-dWQP!YmlDN?wzzaJC>yO?fHS?fG+)n+PIIz9TP*_)}z|QeFy=-g9K17tg
zy?m$pI%?G1{9rxRPo=z9C?+~4f3fY0A7%y(Dfv_pJMS1Tf-o~Xt0cbj!pzOe%I%jX
zD*g4tJBj8YxU#jDFdxQK13d*t<N$|-4mrs$#SY$ly?DZJiWJq{PqJ1!huFFS|NP{U
z&XCl#b+&iY9m7tei@FU!-^`CysD?ip2i{!Zv1o2!zM4F+l7UzOJs@3O{K|~NR-Xq?
zkv^(-MMnym6{dvI+N?{fBA;(B|4w24F3kX&)V*P5WJ+f9{fuyw?&y;N$vMh2O;ha-
zD*Y^IxTI`WfGVsYb)%zYqfLrh(4(O{`3oD}XKOVgO*Sn#IN3vyl6Le-ZZ_D7FL7^K
zG{1Cx4vqbt?<L~h;qz+V7<`3eRiHbu+FdQvMwt{*K7uTCt-ELvHLpc>nKQs~!S#cJ
zKH8+4G5qzX`1n*b>z$X%jj|irY*}B;C1dO@%EZzU$dRy{@y=Je89R$Ii2Axtd<aV@
zy7%n_)!i!3&HRLWa>7@9y(p$dwAIQv02O|d?yX$|oXieS4GwLo_{eiRZ<M6pTmbDu
z$hjmGS9Zy>V(HhG$-6vrV-Liw%U0fC>9ot7b49h4TjMI+Mt6IP^_P_G2cPF0nDk(+
zUURIxJ+FATdeKDPQ_Mvf`_0dYdEJbugE(=afLCSWOR0w{&tBD2L`?-!BrQPiN>zQ9
z3}g7CYABPXu_~0paoKF@rIZ9fmI|V^Y^KlkN^A`C!N(4_>C)(;y5F}Y2#qVoiI4{H
zF&~gs!>)D*WwDK_ceGp~$HhD%qd|WXjQmQJQneYk<X#^~(KhGJ_q=X$wY_YnJ@`pA
zOm;X0$df#+PbKH6G$~bNMTr;L{NiHk;#}v`Q+i@_6`vR?nhB=2I8beXE)v^>c8LwM
zG>sHyCuOgJ2CULf)5DFgJep^)Nte4z=een55wzFh&?>5>dmGr9Hv*Vsds_$A-J_#*
zcBNq>d9n=2PvO5}&>i9e5(qc*nQXtLF(M&t#dLTfY!<2~26_!eUaDz%WXoDf>WDfn
z%ocH3iW+kK(j1h_@t8~0Av2ukYpeG2P2S|-L{TZn46@{Rn``&K7lZ9xh}%?q+IuKH
zdW!kse4-K}%a6{(U<0ORW|a`uBz~LStItU=m^hwiH*xdXZbsD?W{qhB8=RJO&quSi
z^7O0wV@d|KY~F%}W)!n{HWF4daM{#9NmI#Kb*xE#VCPPueYbn`O!+!|rd433^-|CJ
zuWXq(lS6Pg;&jE#3e!b3i6!h=JW?*0qCm@_C0`zus_|Aa)k}w`q0zn~%EjrbQK4v!
zZbr3MXijqXOu+(>3`_hH6LAh!I=vhuQ|%kH11n~aP-_^GC^ZI$ORCeGNu5#y>BjL7
z8t-fW`oU)(cc*gxvQ0bEu}35lRTal=>iWUgT$s_?zIt7?Y@Rk$QErY+e)y*dREy1$
zlOxJFC1;V{e&pBh+j`7z(}f?3DNrnnTu}R<j?@yfV2ptA3?{EOXZHTGdnlOc2P1VB
zR4h>HAP)FM#X~oSNTmBZy(wF|020Tf+4*0r{#v@rwrQ`$*!^^4%yi~!(7$@Jg${w@
zo!WmLd#M-_?)Xp=DQU2&x=2I!(|2uCvYPgnFXeNGU}XcDgLOqCWrot0-}7=v+^F64
zLYv8p4uZ%_t|+%=Y$AK)S2zTb#mP1TIvBExp~J<xMZVQQk0164iugA64Y35eVf6}l
z+|{|1Q)Osp5oT;WbIrn|4h;F}_tEr{Wc+AnK0ONiE~+~Mrk>ntz1K)&MPI;f(-pM%
zuGl(v7iI0XzkV$e)#=t9-h#lE7ab+mKbq=Bo%B6XE5_{=l@)>N$##_rLsclv3wF#&
zFh`N5PTKXeY!zhw*e-Lu<}m-{%z5U|v%cfcgYVVBB);;vG80XHTJ0y>eHK~@I)?=W
z?_biSe56Hz3{On9C6ytaW8EJkvoaYR;^er?QIhsLvvrQs0MT!%&%;4(wX0w?9gIwG
z&7jMS3*cc<WhiL5jvVBAOhFI&<C4vdUg|3c+es8iXPIUtdkQ9wA$cTqjNtt&nNoeo
z7Nq&3uU7h{$m`$yZY{oaaDCXM#ruXQ?6j_Z#`8j51eG2c#ehovb&jXATm9$~<ryD@
zYYM1XbpjZs`<&f6=vK@SoaCl^s=|4?KSlg6)qjQ4!D!OVMQMjN;#7&Ksh$=dV2Plb
z^Fb<c3|z1KITI3N;pJ`=ZwEHJAU)}2Y;4ncV)V#gZh4nHsJqhIc?H#tub0m=Fp2Oc
zU`;=|Z~9d9y+C*PwstK$Y{!o7rwkI$b6ORiD_FtK50AO)s3E`MT;d+}5c@hRK4M0M
zVKU&t9c?Wfx6)(vX71xfZzn^wzI*J=$g+Y^%@7|*IQljs9Qny}^IO8_pxuQllB5#N
zYxv%Tng}M%7O}YO0N1X?j4Gt2U*Lv7>DaR>_ec~AMVx<cYuq~5$!;G=MUMeD=<;Y!
zfA`D&a6YB?hgNhs`OdW7`yIC}@VQl*!c>pOn54Dx#D2{sCTk@T>14{D$!tF+%VZIy
zOZpFcop+`@QECwMdjl;8uCaMGO>y+HvMfXLJkEY#TB8_UBvXF($792yMk!*r5hWza
z^~m9N3Vqp|aP{ozqWZDK!DjtwFA;W?rFhqpumU)L>q0y=*E8|Gs@t(SWsQ7ssSV*$
z<qusl3KO43TSL2AUAlB{6%48k=j~e9v<O&i+^KY=RbV#aD#4nWGpE&Z%(<uQeq6QW
ze7h*?g23r!ZPd-2E|f>4;+r%IwSD7O;wKAJ6Ev9T%Vt2=F_x!By;Z6WLapZ*^?YJc
zmMqq;*EO<6EVJyjycQ)4dr|+<$I{aq&(ebhsK@wIml|xMEXAAfkiz7i_^;R{@iqn~
zNEx*rtC2-6WZ+{Olg4nD2>D*G*Fmqg_KTC-c5v3Sl&2|tpz@@5$yhtzf6*p?46Xds
zCT(nHNFosw=oje9=+LgBpFJJocghILW(9b^3C*ivWIi&G`6Nx~b$oHRL*C}w`Y6EV
zEW003b@}Pp7w@1DKs=mEd#FkH9@(c3Fne`Z%8rRAeD4T}`W57H1L1Q}qCP)60;ncM
z2)aEao0@#D$-P8Tk<$1E2@U&uBBwkqimQ~8iBqR$6)mEbsJik=90Fj&aY{~_l&aJB
ztM39?J#ihfFQ2_$H|Y%xplS1{rdwy-UD(+~H{&I2AU!j9;H6$4`s<1Qo3ro*v}`a-
zUb5kEI<LT7M49XO$YSv*j-@N<X6~G3;rx6hz^TK2;p??RV%#d!zfZAzxC3CSlQlw2
z3Z6>su%~|x!mZ=Yvm2qmmnjN4OEJq~W3by1sUPfhwB@zrn~PrGC{YsouBSw-rdrh_
zrL&%<Ek-0uP227<%WzA3EPgWe(P?Z|;+6@u-45u^Gr}`1sT2<Hq14pvowQ4(Gb~#r
zFtI-WS5P@1j2Cysn3SJ=s|{7s?UZ`6F7H%05?-;9WnJpu%}#^mcq6Im?KS@H=7PDw
zUX0sIxn;Iwd>0(((O_Z%{hzTKA<s0-4N$HYSuB1T5pLkS*F{kK2teG~8qMWs69X!)
z_lRHvp|ud#o&$V~qwa{Ljn-N45ym7-mWX-Jt*yZIL~U1xOka#D&5&SbYCdT-Y-wX#
z`+DIJ-B9>?SkVdU`)yqvH!rt+B7Iq1JUL)8eD>{Qw!5w3Zkra^(Mm5reTl>E=UblO
zv)gPrxHWBJ{&hqX&`WJIMV8{D!IxLVey;rWe1TB8^BPYlzY!4;JK+Bo09bedqlpJ_
zDsL7y<kz(Y1u?j0$oDg<YON90X70vZ651zG<OL4Ed*ntT+Fm4AXztD?`swqSnU1>5
z#GSDlDliSjYEq;7nB*tVfKS11Ro&b6o!e%EkWX?Z@;H$?!R{7=&jz~c=dswuE;S_t
zY!$TRD+ZYW{%I31S(P(yZUO&&Kr&EdX)ZkM5Gu->olsJ~JC96RTR~qA_8dv!`i&U*
z4CKEb=YbuaBk;}^bGBq5uW2Y8w>vk$k@|TYXNVfDQUV`H^OP;u7>hT6h79(H-g@2i
zNp&VP(5E3J>-qO!7kannx5RYWS!IZPPJ-w-dFij9ei8E7Pf12B@0eS^1DJN<u`#e5
zJipTbu5Ko?=ui^KIY!XKz+|(0l0c)r09T<ZA(_Vn`WX<BXYM-t5jq<9!Bs=rqaH$&
eBpCCEx<#a239F7h1O8SEk*u`h!|Vr7eg793;SZ<)

literal 19021
zcmeHvXH=72+a&}L1Su*-L<B`dx{4G*ngyf;1O%ici1aQ(XrYP)MFc@WK$<k^3WO2}
zK~z9WP+DlA_t1N1P7Kfc&8#&uKW5f^Gi%NJ<9YO$-0j@gxvqWfy-!}<(^6%mKTS_T
zLBXhY_qHwt1?48`Ke{8}UotNp1W-^=Guqv{bx-ZqE#7-iT&(RJttcpD!ou`nwrBKN
z6)N3q_%7h|9Irih|E$Q!&lqKJEwuz4Kp;pt$EZp5o}aQ@pT~Xpg_Dt}+)LHIbI<q6
zOaki<Y*`@hr8VY0g%a^-dj8%H-b)H4o5A;{LNkeRauRWN=&u7-^S&#I3rWcN3Y!I*
zsfwHjG4EI@+2adDIj)Yly$lbL7mj%LGKJ$vs-X_IFf3aWBBjmXi82|yRf{z1=_KqY
z=a;E)v+=s}JSv{}%n%YzxtOKj<U#4P{f<X*#`x^|qp7khN<YMX%7-oR-`y1a!|bfb
zL`K>}X!P~$Lt<INn}2Sq9NW3_rOPY@YER6W8vpbt0YOOl`gp;7KiTP<?ei6<?^&&J
z$qLUF%uRQMCHW_Zb$)2%L?)~3(v3Jc`IVj->WfKucU<vEME^j1Vdn9L+opMav^mwu
z>G`PF=lmz1Nv(*Ch=#OEPd4g(>(0%I`uXvj$B!~e<K<;J>Y7(*llZ0jCp%7hNz0St
zGm`O5NblRb+g09o*ZrO(U!R-yomzPoBTBoQ5&J%v?MHA(K&p!J`sB#|*M4;tDo*>;
z<7xq7k!egO;-fI9%&At5V;s^QJR0o8?I7KhgWJWSPXY^#j^ygR3DfQst(YNh>HNfT
z_$K>4m&y$asAeoaN^|MM<(C+G=mV<bmY0-{46=9IW(PAJxyqW)%K6$X)tZBAvgXFJ
zY)M?px9ZyW`wb0d!CU3H5+Tc%3QyUKPVc_WV{f-w%6)EXaZ=G=L>i)ak(2jCPjD;z
zs@nQH*Q=E0y<gveu1B3II%&DE-L39;2Yy4kYp?2!gl=ZS9m4gJ%9Mu(5<;4$diXpM
zrqUODO@cc#FwAb9*;mtP5ow*$5za)kA#TfTi@1ArU3k|%eJEheaH;G`y>WA8k>>YV
z#|Lhn`lp?ajIuBOiTnBLC-;i$(wHH$ihs<nxXHp**bO5WF(#F~SekA7Edx%iu-kd7
z!K*JzL@)w=m-gx~Eq;xDEq*w^Z!pL^xu(R?>S3|RJZ@%n>-H<BjR%qJ-lxiJrehrP
z)X(ubvYlmrQY$sAV}5m6;2537O`Yzbn0(?6d$M?vJU5dC&qUUaX|<RE<*S{qkX7iu
zzW)8`$L|HX4P2ly)ygN|T)1WV=DpPYjdH`4)br8W<GOY%dUARvv%hvIGrug(^hj}n
z?Cf%PW;++@&a_z!_(6=?Wu1wPEo`0|ZBdU-7fK1m#LrBHd_MJ}LG!Jx-pgJmV=kJ7
zfz|NUgsYXzCr!juKkgi>sa9N?-4PpkTS5_YCNQX;&-qkqBkcf<%*wOgqP}n3@9z3C
z40UYGu4A{adin2lO!xnA%bOGpL`lmfVh0!8yA+fTaw%-W0w`0Gef94>+;^d%P@+(~
zt$g2$a*lBHBWq{H#*)nk^T0TB+T-sj)USoOhThf*rgOIabW@YHN=N6i;h!;;Pk#b`
zoO*Rp=Va{dlWZL|l43e(MVIPQVoiURs~VZI=zME9zoXFHbTF1*E&sFm{)W4ur+&+V
zufk=RhGF80eCOKzL|J`(-C_yOqm<MvN)(jTC-{Gh=wzf`rsEByfY9*{QPV9t(vb%j
z?gdgL*QjUQB@bDKdXD@(gyn7u1*JkzwE8>pkhi9ok$iN75+%eJA{>4G+~1Qa1=?_t
zuEC<j8w9aBDxx>`y2P=ks9{_%>KJ0W?WaNB1M|+#&bVgWjRUh3i~6^v{(C-sMOF+K
zjp#}o@VHWEf<2eCbMuHvv$4Lu6+b^e_!rsBMJ%?RIngM`o;HPp-4&5)wnU>!kGazy
zIB`Q%uRc)zeXyX-qbx(ChBjlT$V1YN@gA2T-zJM9812ryIm7q&Hd!ty1u|cFbc8%1
zBLXZH6j=LCA>`f~p7{R0OFi~rZ=uxkSEOuKZv94og_~1LyyTrY_@p}LE7Ft&Djlaj
zk4X6F{H|iTQ5ag*bjJO+vfx{k1HN~2Y1C=B_Ic@K60%orp~^xa(LEC8`jc&boux&_
zyp}pa!shMTJfV+W)Oc)yN9OTEdrot0?fejC@{HeB;=M`<SKdMs3yNtN*t?Ibp3w=N
z_*#Fq7@8o}lNPRE&&I~)ob)G6wQu+(k8}MQw>RK}mWkG67rji)ug(N?Po7b+<H(O!
zU4>?fxp{fV{Cx78ul{}LKqYGG^M7t*eb(%`B<<hJ?I>)GMR}SVRr^*j@+kDvctUsE
zVyi9Xk?SQJ1IX4EIlpapuB(<I4D+Y2cr8BU=(cH1f<;U_^Y6YSPr@_m^R7n*Kiy%d
zBo<UU7Gl<m5?rdiV+9z(xaCUOd)hKIoR&s@df={4mM{6}nued1*Il{h(AA9gTyT!p
z7Mz{VW?R@@{C$hLr=BO^<LL}vZqI(#?BR01d!cGjD73!_*0CEC6N478lyn)W`n(m=
z*Vxq9*v~J$=dTvW@IE$HPFnuY+xHcLrP6x_QM2r?C<;}N2$kDJx+m^$6AQ}}{I<&{
zww(G(E9$dL!5>}tz7jhNVZ(xwFIjlwX&hy~_}=l1(_I!9MnAk?D4)P|4|GdbAL*Vb
zDqg9o!uI%8PUGhGRQ{ehdHQ0ejc7QRG;S>tyHv+T_!H~tF}=4IgR-b+T6yazDV8@q
zuw8}aQ+czfkhx#CX0$4c9Q<NV)%r=h)6$x!gpl2OcRL7fJ?Pl$HtqP@=8p}QaZzM@
zwq=!Z!D!Xh??u2xQRc694DCIeAFf#RGYysYITvds%2pWbON9Cma<lw=+P=v4KbM#H
zOY~JCFEJs=SGvVyzx6nn`=2}W?AKvwE(A0}R1s0Gw}2F%7E!`1vkgVpCe7!^Vh`i%
z4lg_9{tGVW$M~n6QE>UmLH`}6jaG;4vr>*9T0UI)j;PYp+wI8KBXIg3?C&MIb+@PK
z#*I;tQ-?P1GJdF&Z|^w={P9+&k+08bS@+K{pXm&#hcy%l(k@A1XRf!w40V`&V7VJU
zS6<4?%WMC0uk;XpxmK@}Zp`mxCA0M&ykz2@DPctVBnlI*w>j8-cJaAi?+FqFA@v>%
z#@#8Ra@CAm&ZA_Fh;RQT*3_$Gc3QT_>Q$+m2l&G!)5R-sc9m{bCbIxmdBj?7*=8|_
z|89cvMmy2W55(14e(VzYd0CBl+3`aRVYS=j#1&Gh^a(dK3g;Z-33^2Ld4b-}Fz8p5
zz=CY#6}lgH10^<3>9ZT%A<wQJNEw;B&4<DM2BgU=IU+@`$+4daq2AQY_`pogHK#!8
zvAAz!$wnS(($Fo&sbAqCr3wnjl@q)*^`DCxgvi4<dX^!H=tm0V-1F#yQee1_)jNIi
z@G2W`jg8PxU-I39JEGu8YdoJz9$E@11-9OQy><8~??6gciN0fS{BOc-xDQfyHtPyG
z53}%rn|~t|ns@&1(vQdn-_;YGxJ7<46>#(ae$fA{H+rebU1h?dN{QH&&vh_<-oH3K
z{fCgSaDHZHW=KWIV2*}{M!tTofdL$T7TX*(`d-P@zihyRJ$5%UFmyLHFRyu3{FgKJ
zCdAPaoI$w8cp3Zp^=taRFXqAehK7>?!$;wtJjxTKoQgzEN-vbZ|0Qk=PN1)^pBcPV
zJ|-<>@|LOAq|}kqM7k4s@6#)VyCKtu(FKY<&v$jcCi0LP#BlJl4{yoweGG)~mAq?3
zZ^*+45I_Gu@ZXd3za2TeQk4EX>vQW}CN4b=g&6B?Q$ypgkDj+A%Hg~6jP&r945XT1
zb%C5K@334Fu9Yo@kJ}{sS;w0BSNLrXzwE*wJ=+&0@un7LdozZ5P4Sn_pSHwF)cb7A
zJB6}~7A=j|_tgYZF-Xay&MO?kKgys7)SH956Vd<&NFf)$(dN5N;-rx4jyu1!{U3P_
z`jsJwT`if=1nZT_)-pl8%<^HQV(XqCuTJKhVf_t^j5xPf={op~$k;X|MrkZz%E8`#
zHX{~Z6s0Bmi^g+&e=04!6f8{SM4XMOd8T%<^Q{-hT))Bijxe8{g;X+8zXyfbpf-R!
zg}3kWf~p0e@cb+Wz+l1B$jB28Jw+L!Mnyluz;caSoBG2ii2*lJAQ&*+mO&GjWW0o9
z7RT-u`R#8_X6rP1wkFBzeRtit2ZuY$dCZ2Gl!nHeIR&&NNQ>K_ec(M05j8Gp@H<EI
z;HFUz)^pVLmkZ_HtH#g!S52TrCSz1pLgoNDxVFp&A7Q*oa|ThW_ZYwCB}vF#G3_gL
za?rO28O3qDF*;Sd5Y?7Qr7geqzS49kY%t(pZ;n=RGf4VWE><=|SL2nj&fPc$FF8i1
z-1JTQsb%;XT|2w%rp!_~-3iEY8@9Z|ZGwLXd!3JGD7y1tyYQgst3`dUG<FNxhg`tG
zY$|Ut%Xe^l3(^U01xMgyQNfHzw260bz-V2V2G{n6D(do&D}OtOLb#LtopV-VDFz7u
z74*f3np{0N;ijVXuro*hU6US+GbbnK$xa1$kDZcnu4{B9_MMF=>a4QzE(wPVs-APb
zl9$cC%8U{F$_feKg?kKmPxibLNV1K(2)(MW1@MTb&E{M$su-a7E}^^^os{CU(<p<+
zzxj^>a{PG6oxp(g9vi2v<#8$Zse2qlo$1Q}W%g0ho*6oY2t$5*N+Z~oZ&HRf8D}Md
zt|a3tJcpG!L`eivHIKv&zu@Ypa&&LmTkmrz!>so<t!2iJelh><Soemr)NAPx{=On&
z=033_J8ErVaFB$b&Lh;M$S1jb^vB5QUAwHr3E6@~?}@m1W4&YrzuBDJf+yS;?nhEm
z9qF#}UU3|2cvmnDPh4;p?I->^v%dQN;(y%4FC5P9>-2ey_lmV=Q;d%XKDr~@?)wYI
z`Ci{EnRt{|Sg4zT93fRnpmN*3bbiT|XqiQ2(N+M763`w%SW?&j{#D=_-Nq{0^K<0b
zK&}E|XW(Aj-Wx_j`>FNS7t3|m$Pk8JkR{Y%@j10Qj2!6~lmRe#W}JSEJlq60N`d7F
z8MNGe3hK&H)Ll;UGcJM><i~sL5VKGN2y?>z-Bt1u9y-Zev!itCHW|Sj1qkLs$9XIA
zdaMyp3fu^~973*DC%_fdKHq61H$8#cffNf=<}74nc7cv%DC%D5dveQ2nM^@BKwHa8
zPBv;Ryfp%;?1EI}p#mkOiusu``Jp0tl>)VIis~MAjJ^<RFCMz!e?K70|AjaBo<EgE
zNBowRl~qUa1DAavAtA^5x7=%5HnjzijEsyf(2xoXk4~a;wS4P-jC-2E;q&)KBL_b_
zQi9z0w^OV;`<cR|4`h4#FEP7?pK@{<rCbIaK{DPl^LiTFoue<@heqV?#11{WSZ(XN
zMUVnbtGc?nh}c$G;|o1Ky^{`QQck_px+ehp@Fe*h&Zedj`Eex~IcJ5Xo|9Q+E}NbE
zv>I04kz6X7L4sh2e%Ai-BRtXhVZP*Gj!*@$efEkGD>>A3j`P;2W?XEbB@ew>d21$*
zN8LGu@@(L{_wAqlFC7|m53-w;>~AlQSv|oF4^bD5VkQN2&_#g=x4>k;MQ|f$zpj6y
z<&mi}ajy7@_L#GO$?frBZKktHVS6g=;!E`)@=Co_s-#8f|MNAQlw<d0<komB!7V~^
z_dC!2@9NE;;=P6bYr-462gNwq+-@t&J@Uf1c0K50(wzf5cE6LgLveTU7I6Sm35~z@
z3l!mrr#snMN%o*!EiP_V=%We11O`7l%(c&tH%uS%C$T7?JFOThn8ks{bam#YWREbn
z@8Y+4sO19opqgt!k-RopF1=CGvRU+j5hD3DOj+>4cWheXtyH-Y_h<IdXobR(KIcld
z%xifxe^US@^+(dTgK3#dL8<7W;V^wTndq66Z&Y0Of|+NY-FJiF*{2<_t>?+E9cbe~
z?wC@(K&~f#3)pHhD>d64;gIs*_3Eqkt7Mp`Usa!R^!%+%+ml~5VBCG;tJL8=efbEf
z+7-j@KH-wEe&f_%{zukx{^NOl+NxVj*Dpvm)Bbbo;AWt!a4BKX5BTk@ug_O5^m4gW
z4XbQSx7Q~$oBi{(FG@H{e~_xzM|lpqjmw;!c4mvi0nO6IHoW+qxeQd&vYMaf2=cu1
z@&<iOm_j7)jD{;ZgYsSk>Sfk_IrpiDfR!o$T|#p~`N-=IuS0MYsI*CXI>n8Cw{?JF
z&=dz9dfG-<|2^I7{-lDpI`wBATqLV*=`d?j)AL2>1s>EZ?wezf8>Q!Ny_k*c1Neo+
zDq*%~ax-IFBghF|DdjQbI?bkaOMK7rcoQMbme^SI)E5d3L$YYW+BwOsH3ejtZj5z^
zS$_4N3C0JJm^i(v2?{HAfFN5|e-`;H3K>Igx+x$C`mv5*&NYFQqzYWQSj#Y1y)!S7
z__YvL*(FvncB1lNf5!=cmU)_Mh=RCxhtt6l4`LTy(U$*M-e>g-h=vyV7Ol|%AEKz9
z_;#NQmZ0+XOt#L2f95&`%r$%id$5himgW{#_X426jZZBA?ALtaBA7jqhdK|~$Sal3
z3v!*-%S9QGOZk8glukONS$OYx1?5rgh8*WJZQXJ#%E328{>OwE(QamF#G<p>*~CKg
z{vl<H*cxPO0HTxYLtIuoJUQzF-mIM=OjY&PM8bNrM5|ZudYguLk9feA#s+;)$K8Lu
zzi-q}m=<GU9&x1QvHs(vcKX$P)poe|cyuXX@)8CZv~T_`n-oE{^kAk9^BxR4zpLC`
zZkhu;qsI8|dp)hMfNd<NDCEFRxuX6x6CgM#_kRf_m%Qbc>qX(=4uE__J=yyy?*9jK
zaXpw>;S0Y;Oh<g(;ku=JCJf@jtjswPW!GM(uAxC}&PaNkRRZv>Y?j1{!{t|dyg{&r
z$F2Fw`T%mF6TP351eLEY1;L*w(052LlfuSm@M3Hds@iX-mxOuXGHw7?_mVhIfYIDG
zekm?D@U4%8iudyDFVb$Dh+kb;;{4|VY~TXKIag-I-7h3^YCc0kFG~wL?omeYC<dHt
zyGq#U=+pK8T7n>ZP{NHm);0ip*|Vqj68$rjqmQF{k!IsXMN!d54zp7<T~Eo-qLzC3
zbP#fF#%f#jpBWvYx8xo|wD<wMy1v@3-3PLn1Nb|G$TtS@Di#^$LjpQbX`i}?Y0;$2
zS#nRWZO&z2a@Xn=KRLq(DiuILP)xUHWp#Paey#5nF06_?J#mOb=x*O4g~6I`oQ7CM
z`atC8qX%EUGZlkC?2yxzI=Px-Oz<i5-`keOW~xr&4*RJ0(};rihw;y<%uAH;q9Kxq
z&^$5I^56TrlZtpBCXC^c774cr%?;}cMlPubpmnNJGdk$Zpjhj`r@10G=I729NPuh)
zGMJ{l(aDRNU#`1Nlu!SUTdX{)s;8ghC))J@Pti{6;5Xoc-OIc6k_lC3CAZk`)>;w#
z93(3IdcT`C#}Fc5Pr7=E(Nklf#ID_Oe|JmDs*x2Om;k8uri)r1ZTGg<iW?i%K|feJ
zZthQBoVDy=l`x;Z(Y;F7tF5s019L^|TS<Yn4}qt!zGLR7XGJFMS+5#W9)DUHlTqxI
z_@@kX0iwoxkQc`|N1j%yTnfkT&AB+O&-QpM{}M3iZiijmJmm1`j)E5%?OABIyEU2Y
zY15#1u+@4?G%~(l_06f__^CnP6)3SSBh-&*GWbLs{pWS8sL90Hyiu!9phx@Ll1lE}
z)ZFOG#pW91=OAp9y}c_06<wi?a)moB1?#KNRQE#NFgAuGmN@R%Z40DB|GI#52I!6~
z)O$WtEacxUYmi_4eamCMViH|!?c%F&Fq5<cxc#`Z!IgeH9&%$5w@g#;YkNT5t!Gv0
ztSA7l6J?NF)}L=$(YD4x=jM|iJ%6U0w5Z2p&9uV0R<;5*DhD%OjIJsx2AYZ&{>ZM{
zYRv85?X#$kX?a2~@VmlovNm7jrKERIqr;zOa~<e>Zc(U)ymaQ1C-jSj)!RA5bJ(5v
zN@;5Xr(ZoWsIY!ue}4n(Ie2~YquVSgWq{<|jFTBXCXEY-$$slizdumN)8!s;ZXQh(
zJGg|e{nFHM>difkS4?kna&s*r`lc*F>-TnEi`k_wObgebCIuno*rGU$?TUfEe#PEL
z_#m{=REhRBi0zVA#e*9w;&*IuB#L+9Vpi#ByS5@h^7){9JJh?94VP?zN!0r0_d7*7
zTdg+*ak0>5&>?;T$U;u`Xa(B`-1D_baEFXzhyDNYppTH<na*5--#qB|o<JjKt|&ep
zs)6l~>l!2mZA|_74(ro0!>RK4jWLN`E11M>w1_|W!YgSM%j8agQ&zLI>k0p}Adiz0
zSnifVS=KaWai*sLM}K<qAlAW%6j_x!b0{&`%YfBCs-#BIW9*$O`VKK^lT*UFT)HP)
z5RNCxA!aQ1b~eNtR!y7gHx9|$G9@kiP`Kj07m}D?ww#y+i^(z>QrMZ5sN5V0B@pd|
zg@iPjOaCZ8ZwsWPavZ4gmU=RF*OU0s=QojGhSc&mxR;&SKcshW{-xR-Y8%1}f)19#
z14`uP%fIh$wFXRBvB@G0TfGqbIl|d`QAzQJW~~cA3yBs8Yj^T>)pRd%FwOs&AC<`T
zMy--wGwFsm{@w92w*)Hd^wssIEMwa_ePMZp*nKp?e`l^B&h(p9^2Vv0@1{WV_5L&Z
zn9Jvab9Xy&`QaII0sG0)pb<D&<y|~&=O$}{Z+iIN2c%9C+M14$I`L1DGvLjlIKas*
zlq1{MYB=S;wNy@;CJt%IuXS`hHV^&LdssMmi4=vzArb^Lm8gQ#=4x!Jo^gGKj880}
znSNK~b0?2u_8eIj0acCxEM*d&K#qn<I}ZA7pmGb)jW}7NNFN}QOmS<v9RIq!882~X
zsFM{7U_snGRB`y(N!_xX436i;8}5t>WVMi7%t5)EN}@VQ7~HLsw^h-8$EE0Bg#qj1
zd8@nwxhtgzlBEGT-bb!C(Q{yWey+>!6aC^z0WJ5IRSuZ@JCk4Wk`6PboP6YWu9R{a
zWPLAjlj!K^0*l0fqu9s8H!DY83+pZ@A1udW9kUWW;^lW2zo%lJ)iu!u93J)1Fi3@V
zbM;Pk6aj&U+4xX4pVYo#ZU$BolzYB<E#JlHLt!Mel`8r0`$GrR%O{2~Kcj(=HniWs
z7v2rTHb?3H$G2v}oa1eNMe?tMs_Ij`!f{wWZ=Psy2-I#(^XUx-_;LWe=?+_rG+a6P
zA9y}Y|BQX;dyABY>LI9j0UB<`>C23NPZ0D0=o=Qsu9jTn;s3D@8&Ai7Sg_-Od!=@E
zbc`Xtijea-CABZan_-cp@@=h5_Pt=_nysN?&RgM^0Pm{MW$ln%2vj-+xi0;u5RU1s
z-XSa)gUUJQV73#V=r!`H3*}(A;WE>aZ9W!fMJ6Kxl>(J;Hj9H>I8PE;lZgeHq6FnK
zIDnCKZhSB30dTU3n%b+dQ&-OOa%uh(hrT4V1#qJis8#9mn?u3#goSC&9gsy`zQ1Jl
zTzDl=lhw3H#w|gMG*9e51&l`<=7A$BsXfK}NQe#zn+3=jqq9pEr6__RB&=NKGUyCi
z-8E~y_6`R)_rjrG&wEdXl;=P@=Sb?1Dvy{M#<*bC3>@$UiGWW`EBN(>oFXWKBB-CB
zj|A*4)%O93*_>3Q8N|wYJAcgsjrl5~h(uy)D#N+w{+lyb6=iFAaG3diWf-HMfCIj*
z=x;Y<-F(W0^`H1mQ6fQN0(;gDfwWlBv;^Pn>8!3?Lva%G=8z<Q@A?DA!?mA&bnMI!
z#%c~!lFWdAq0VZhE=st~j6+x6FQG}We46e3t^b+PeiDcRI4&XkBuwfRMRFMX${|}+
z36Aog@2@a`!C(vVh`}Aw8ccdv2ISeDfsJazg(^)lSws=^m~;}Kcba}`HtUng0o5eL
zK_ZU<&sCcCRyL=)hco;T(w;jywwjW#dV{pqN<ni`i5y%zvn@T~6+D#0^uvaXO6V^|
ztZ`N;y6^<-ehoV<*_h-rBS<1Q34TjHP9pyx{MP~z?VP*mYEk`r^V*7gC9o&I_}3>A
zT+p7i9ECD@|De|kzduWClCX_R_}RH6Wh@?!>;Zk;{8>E)!NX|-fRHG$3BtKG5!L$f
zdb=2U>bz&ZA83o_^Id0@&G1-T)@W05<@@bUdf3tWa8G8m4(|bB!QTdOl%=2}liVzv
zeypoYeuPiwA`mC{rn8cr0eX3@GXIO_@LC;$5r{zSbY{YgDGMKw<C3^|VZfswS=U?!
z`T@Y_OKP&U(k@gL6Bc%h&HWTD@gypYBwua&*(Zc*_!nmfU!LrAxu4&v=Fucu^YUm?
zhZV7&1D{@1fBoR+<BjIW!Y};yyEtRFSC*&uT9TF8ALvFB=oV?ZUz9oa=mw&m6~6{|
zE467m^0@2tLdMMT7Qjsx%ixh!4!nvL;Tn6{(NJX}v8@*Exv^^2L<~_x;g_?KXHipP
zG(Y+I1C_b~Rruw(kplUF?f{aHgECQ{95pPZfPZu}k0HNq;Od}TyrX0jP3{|?i2{>|
z$%pa7B0!=ekN-B}C!fchfo14ByY&|NtE_<IG^2JmICO{n`;z~kPV6JLA<!0BlT;eO
z`Fz#NVG}m!{_p#T8ef0G<r!uNDtOF3Fe$Qpg_!T}QP|(KsGNv*m<{23dsoz<_SsP>
z8{8Qpp|Xsm<<y1qxKPnDiFB`ayxt^}+rZKD==czi*AOM}P=(5`cUyE-dAlWCwR#Oh
z&Y?(5zyl!096E#+>O6tQ1y;TlNU9~EV>AL3>Qp=5y>QDz2bD48tL>*jw^sSNoxy`@
zhWSQ6ATc-sj&2>aM3uFg$qEF}M?IpSR|oW&N01+Aqnu@C{~JfpBiADV{jT*H4WPM~
zPq=0m$^E3^TvxW9fHWLGfn1$>7oT<5FPWg-?UXaK4F2K5&Yx!qrC2Z`fW+y6hj|)-
zK6Cc1-2CITGN(T48B=_zlZlJeMj3dR(kJ7jwvg2CoC53`5K<hn|DZJ=w?m~#?M^Dt
z*JV9sPi2Xyo-dTGS#=42*KjJXLH!}98%_56k6Q8uvvo;nF8cX{0z>C*j#wY(V^8uR
zyPP&3&9jnxaw^#seO7HN=SurX*by;ake!{azYpvv4?s_ss|2NUAYWVB`J+>BiJ&C<
z)2CW)+jNy5Q^Ce}4S-GsnB*&sh^6A*YCj}Nr*|TtQJZn+Xv5flAH8`da+_1|9*`9k
zn0mrA&jPJ)T8o`nNff%unJ>T>cjm(np_<&As|%oEMgi)!cYnPMYcyExmk+D-DD{}@
zH9mG)VX=lPKQB+D0|-=Tw;CdCgaSO4Wh9=p|L9^*XA;vzMBpnE4`-bOIkB}YCn%)?
zAg<Nro1oav3zc`OqY{ONikifV<0Nb{OBq~fXA;k?&Gxjji#&*kFIYnB;}}Xwmb4H5
zSki9uE>pr)GikZqBM2Zi)&U{ZJ<*adx4*OC$vyQ}e*Hnc44?@Tu2{Sfg;#ZRzk?>q
zb|PwsgV+G&Ox1L;Uq{F(Q!wbkwLi?<vK<4Um6ls+mVlka#7`HZXN2U20;x=uj~qMo
zaAl&U_#K}r`t8LT<wA#Hv<)2CdH!q1nYxFRCw@MWJ+*nO_!Dxl^PMH&Yqb$c8p*26
z-*qN4nYd-s!?paFkUsWzs+nCeM+P%AI6Pn8j4agI$`KL|Mz1LKWtW!8T;M(x<-zvh
zhWBy-AD>JnkO1bGQ2`f#yjaQPUNj}I&A;NJV)3{6w7$S@vj`U?v98;OW^HqB;Q#bU
zA3vhi4f2CMXAjwx+`Jk5<<QgfZ?Wj#a^GL9`F}>wOlg*Gen<xa4xe)(sLP>wpFe+z
zkB_g-6FKJ~C@P8q!niS5MkjSYWg5LH-*s+kYRU&0afGCRK|#jP9JD86tX^OdH48+I
z1+ak*wA6J}CAXjecTjt>>IX2Vl2*7=Q;g_QF{|ZJ_SnIE$a{#d=`vTeXcq7)ef4kv
zRe_fux*Bx5`LGo20`RnyEAiyeF_Z$3RYb_4up0t|Rt0~A%3E?%N(Tfk+7nj}3C<;;
z?A90J8m^F6QxL#wO6RS~V4c?=j5a$tuOB)dNtUI%KMtkjA3)mW!OHU0lR+3YXgvQH
z-M}@(N8reFVh}#nw{J8I7~)%jDUie6FYg#7^`~<+oW9p)f(`+7gdxCz@asmW$anh(
z;7QfAvkixM*&F!xCZnUCA4+$O;Jg1m6a>hB<}|T?6gJ5F0@%%7z_%1_vKN!FK45W*
zY74I>Ieh%@`-Mi0PCW?&Z6B-JLtvt~W9(L9DCfOAR%H`GkxV)LKP9OfkHyr8(D6oG
zqlD-aBu}fP<RGDM7*C`Cvz_haD&Y0|BF^11eT<*|7i>Cx;V?q3Q{sjsK1W(L#Tb$N
z(QYKEndFbwh!ul|HQ{M-^fR$z%_;s|nWTQkA9xbXen?jV6O-N~8px<!@okw<E|ZEU
zR{5@{%YiSMWIoSc^4nhh3gm~&lFcvc7)o3QtC!52YX^ViyGDm|IftFJ?JukC9-v#K
zMCj=1j!b+8_(pOPXgqmURaIRwjA#5ehYR?Uq*H-MsuY+-TrMvzB=4_g)p*lO1~WYZ
zX~RXxfmJuc;{Gh)08A6X`Q_;ygZj+w_X9Cr(;A2zKSddWKq5j{1pD(CiCoPx3SK@Q
zJqO)cC@Q+zSMF+|HQs`c4esA1F3k`W75qL>Bp2w^+c;7DW59{e8Kz>s@r86V-ed17
z-{_qTI1>e_l0whS%*a?{ZM_XrbR&9;tTg^Cv(&Sd+5V~RcvNcFp85APF;P*;#E_vF
zKenkS4yFXw*rz8FXP-Xv&|2sz&Jrcjx>+6rXnigD88vd|xUB;$D$4oCxTKn`n?IO`
za)?Vwc4`9@BTMFLTZj6Z4;7$c8rx5;HNGSX(q-U=9`lAlzH!CbRiOA3gN$jj=wz+@
zmlaD{1c~cdGa_-~Q>a+cN~_`^5Y8WR%eprVnf!CEC6F<Vx^quP>>ui0A!rKxP#XN!
z*r6n$0^BNGL3M^?3KV=wsW2mXd!IbCeMUi9ecaZUENcgS1`X-|1BbrvnAHs1JZokL
zfspuF0<ep9rKyHryw|(Sw)92<_a#)ky1RNERXFaF3Vo=ixI4@|Cv3L$8tg!*I{IEJ
z;7-+ejEQ4=CUiZGXYWz~gA+u<2axG=JvPZG6Bmr+*NpLF3SadTkl#FJyUouWSS>t&
z!NN?|9W&>k2X}jpF3Ppwni47n9bKrs3QM;_$-3QBFw;kKG+&cnVxYji3BMt6h<^~+
zM_~dslI*5&GO_%Y+)R>39%=q*iLD{|!T{V}3%8b0N(ngFC&`n66(43frT~Y90+N!V
ztj>4$B8~e9-BV-&WnWb3q`V1)TojIi`X=y2SMZQzrrr#3rsDD6OvM0o1~D<ehBqtQ
z7!1JT?DpT0_zWPcbpxJKv&?0B1&tu?7EAib>`9@^2L1aK0BNWqE}U)lgTFE!I+%HS
zdjh+^CXSrWh&>(8@7fM3wIxaClqZSztpWS(CCR*<;wesJJO`VqdlJ-|Mx~BMn4RIk
zLX}5XDHTq1esQ>%<iBlK2^bxZ#4m2mE&)3x$dOk9Gan~-vTOVS{TMIRL2|LRYQ%^v
zwRU|TE*tP^DyW!<@9-4RP9nV-4aSw>K?t~DxIEZE@|c>=)&w(K)Z_@vA(U?W$Yr2j
zKEj&?_^GU1G{4AwBOEYdq*b+0y;DH&o=jW^?gIW)+tg@f0ksN8KJn_!PXw>gu+(w!
zS(^4x1;=4JQ7lM@>w^b-gJ2It<v71#?>B$IA$l9JGbld<>V77-edaXDZ5hlYd#Sz0
zLJ?>TE1KBh%6W7Xu<6Vq2Y2AJO}8m)K{0+wG>OO{vd58<Fz768Ko@t7;M@TOcvx5d
z#ce?U4QR;>Q#<_m^gN*&5b((1=Nyhexe;3gY~E6~N%Y_LtIU}&3)ZkFG!>vOl5$vS
zg<ZkPt=Dn6bd#*9Kwp+5oSxvHO9wo%16bu>M&HWeJO=$drR{*NwF?v@W4Up~y=iTa
z4jt7Vutjs)_>?v7qn&Z7b8GvYB08FXP;I=|B3#}y4)Lt8RS4gUa)1&Ib*uF~#QgwE
zn`sc;nQLgWFo1Dth&V@T@}(=z2`ubP2k6r-E39?sfp)N&Fmm5;FT46Ipaa_Zg4<mx
zqY7tCoqwvMZ>I+UIv_S14l=V7)sbUg#C?Yu#58)@ImF?!Gdf$`H@v>A0mBJMX|tvJ
zl9CQ4i=|~igzF{|kJURQ(Ew1i4q*N~F;ek5w6VQMUNUk`EPt}H=WYxayY*`hY~n#Q
ziF5?mpD=*su-)t{@eiHrEAz}{?%n6=eG5m<NqTzcmy~pHr!$|Cc^rGbvn*^z$rm^`
zofEoZOBi!ApmhWOH~Z542Vb6f5@J$Noi_MIES6M==8xCLrx?_{JnPd?vQJVRJF)%@
z&oz7A*Eit>l6^<~`+E0F%$6FnrvYK?ik%Br*lqw-$kb?OjX3Ft>KfGCK%uJd{|K_a
zV=A2smN^rgEBPR~4ymSCez4nmP@=fM6h2S8jXl`G{@tp?JKZw6*SWSy63t3Z>guix
z@W+~tc&Nx;{veMmO$7R@*l#<u2gH5=4HyDb-nKQQ<Z)-<@R{>M-I$}eHVc#X1MGP}
z=L;rYR+joVoEAiUA%3LaisnF4FEQ*A%O#j60WrV*C`&7`U-^0U4zQXKpiPqjLU>>|
zb^>a`yyg^OPf*FbV*;5rsl>oLcq!GlXY7QMBRvX83PeAXw#_~J)0m;B44TSn+2;hL
zZ}kTB3W8ZiiFpZ@OWzOZjcd}NRfb2dFiQ7F<nX!prXGkr_)_D<p}6^t*_6;UySvh=
zy~g;bXM$v(*a6a@Gw?lo;$N>-t%A621vVswvi$wlgWd2x1CsJxc5Kc!deu;_?S<pD
zWF{^Bm+Fn-rE@^eMb8;gLcQCiOg^U%W+!o{26GWw3kN^>Yj68qnl3WF)faH9?_KGg
zz4lRkRMo0qU<~26R1TFPY<{IWjmpPpTDCgYe~)OE<)4L4cmK&|Sibj`>Bws3;zv{q
zu@Y2OiO#Rs8w1O=y9rL-_r-g~+>hQ>Htl<k*G;E#S}4okdn;yU59fZfrT2S%Dp`^K
z`^Rspsq8bqzJtwYb40TPpF}-onIQ^kxQ*P5Z5oHb6rHIW<!xmn@l@MO*(<Rg<u*y)
znF&yv_do%W48!XbM0%9a2hvMzn@?*R+CbwAius^;trm^O;BC4~HOWsJ1?QXLa#fn~
zx@^rT3(jk{5hkWUL(-MwciGz7&h>3lwHdZI|IHx4I)*Sv<4(n?!~NFu<z~NppEbm8
zM{@()ixk)eSmwj6l<ml@u$j_#-PZD!7CZ^@VjFO710@n`#uuN?ETl(iJ&~K#5XW>h
zHZ?)HMNr>!h{tdy+Nt|FR;p66-}NHH8#A4>)%FzJDat@*MVoV<5?tIL7Y|TF@n#2v
zRHyB84T97~C^^ojQeKSY?zSv;A`WSOQ?uDur`Mu?^xS^>xAKdpA!kbVl0kBv=T+VM
z9cO+qJ9X}^&D2%s0mi$@(Uxm(LK-{Gq=HC6k+hGLye`4SqfMrw*4s`2Yq@5Ub8eP0
zzzVlv@_QLI=kOr^IJ_x&##Dg)=iP1Sj1phe^6pw;0AdA9LFamgxZf`;LjghA1|3fK
zh);u`*5i8X1*g+hX~pb+YG^BCJ6FBamg6XRqT@gF@zCGs-P($Jn}kU(=4pu?c%`Ab
zMc+1Hgpw{iD17<?SAbY8<j$6zpXyEWyqK|t;2n0_1XP?W^lR^{&e#&FB@amNtIydm
zxdF|{f$B^N1=NM9`mBdsT~VtY?}?IMku8k_%3+PU*7_*-&)J5md((2Az-xm4kyUIU
zPIKMv<tHi#x2E?u*dSw$BFv_%Czi>-B(0O5I;`p1L$57{(ZZSQm~1`D5uo2_VJ@p^
zA6<D`*;SaB9j}0yyES@$(!SzP4@QxuXLAy71raZIh!?|LDrXlG47|i_lZc2Bjx8My
z6+<_m{H@|&rp$dV7^ikhlf9)cFKBDm*KQ?9W5Yc(^Uy$)F^2=CWrt1Od&zX6Du$2S
zeJa^lv+881CQ~=D(LtfkuCKM^hH>)5#?#6dRzs*qGiB*iN(+&Z#wQUGqcDR%yKws6
zv#5nP#$ex%y<}tz4-GG@e&wJ&?jx9__7@px$c1Dn+r%IrXv09&K2|oZgR?T;7qR{o
z7%wxPR)E>oc}wrl$SvcQPdBh3iS;<Oma%F_%9yZ~xcFMuj`z}%CNJK#F`pU3=NU=p
z4XsCRSakLj>29xiF%nbMw^nr{qHqy7g&oJ8mE;3cqCsuSw%+BAH3vz~90kN;TJiR!
z3otBnkiGLq_6;Ag>AJ?k#+;Odq$<^RpV(V%Su{QAt+}nrh@oV~!SBHFf)HiT;USoR
z%5*}hTyw{(Z?6w_U$ra>I}5r5u^QosY3Xc#8Fl(z`o)3VFsp*Sw~&-FMIAF*)Pw1v
zpBe}nB^Tp!`_{&1$A4nA+gu2JF9lPGYd>;?_e$MQv;#AvY-q&X`h&@v^fw|UHX*^2
zNCf>2dR(s(COym`QQiG^lE2hE6mK>c(kYuVaS5TT+xGS*z8@1d7<Oz^Ji!|^dRI|T
zuh7n=zQA`zL?7CUK9*uW?$Va7<}Aa@l?pXrX=hU2Xv<6vvzJN8G@HAJAr{+b{6=Wb
z*#^&O)9BUQlh3X&lIsCp1DTR#>*9wrVv-fP5*d-WV<@){4?{y;BLsWgKuNASp)-{`
z*CS<G@MOa3R_LA)_WItsdymEe>jeO)9^t+31#tE5yZu65?E74*k1DtnGCga!r&z*0
zU84hCrT?IQ6;Bx-zlM0FskTGE7Q1MS?r%7M5NqfCv?$yEylg|q(dYi*>h?~#4p{cG
zIUTFvV{rN_T7#Q)(xxkD9}{7(oc0jhGsIqbYP!UI?j9dXLrQ%)3jT#-d8rEy@lV5i
z7#vg$@XWObeu)^t5Tcy@1U|e;L-yo-Rb^PQKD^`xO+aC6p|n}*fqhn<L--75el=}x
zPd3L_oPAZ|BPnlP+Osq&go4lS)%LR0bmUS=F3s_u4zLDmjCl*P6-Pv&o6{yV)*vpQ
zRZ%zyg7dDZ>XQ!2Ajlh^L1DoLVY{<Vv2oqy;<v{Xqt#+t-G7hlon1B2bqLo56-n$)
zgC$odHv@X-R$qaqP0)T$dzM(PcfROpK$c^nlKQ!tGkR`-S6*nl8L5%vw&$EVe$+U;
z^m^wzG5ycD68RZVI9}nhb6;AcRv>dP<h;Tjuo$>=w|5-Z;!2SXoc4*5jlA}r^&aA4
z2F|;8X-1@4H5_>9KE^LyRg<N<clp#Wu|5h4ng!Bt0T|evmz<>Gmo&`bG=(nA{LV_+
z88CW^i|iCog1%@B$BiJQ(zQH)YRMwIdMfv49F67F5DgB^aV0nd@v6m}_-svPv0o+o
zC2;OjlB`M$bLlB5RNS2z#u2Qa4@MRD(*_(ryS?|hEd22EjhXTclb*4h^o!20zP&%;
z{$tz1miBrJ^b9wY%Z}wltJnm~Ub-K^0DFmF&+GWTp6p;C(W8P;%Av|C^c@#=M!*G(
z3ccZc2(`O@=Q~_fw(tsf`m$$)FblT}wp!{pBm}j8`*hqWtSP`X3lV`2k|>L_=b7S8
z_ihU5TmS64B6YoR{n5T5R~l}B?HVRCQ!_N3$IYTTYuo`N%e7%PX>UugkH_z>&0Q|J
z0ZY)tPT+qp(@R2aBxZi6JG5+RDX)1R>}^zLeov9(TTU$8j>)P%j`sbeKr;g^-0q08
zyr_oAb<%%}aLPq9YPRgkPU+DX{jyAao}@}^A^R}9>4NP}D}UiuzX~cJDe6}-Cdf3{
zDV3*iW(@{c7r*tfRJGt+7T)xYBJpK+w?K#FI&#FmnMsNEBxA-Z&Y7{raLP`WH+v!F
z0=}xlFu)#%N5NoEbr@7x^-8%5Sj)N4t0UN3DGCXfjJ>?=r+6>h?rg;T`G5u2OY;aM
zoC?>(Mzu(t$(nmdkvz>_<4eb?tR(-jQ(U>FY5+BJ-qIpgUx*HgkMWFaprd99c}4+U
zefRmu)gYxki2aEUBPx=Qpg|>2%cIBkiZ}%5*yVq9Y_KyE`~ZW{yYpnddx!&Uleu&1
zkS?VJBn0*S^LLa|enZfm8nH}Qx3ci%z>5s%iPcZyRo5ME^R7eC(SMK*9}Q1o-f3v_
z>`rS3%!EA&;6hvFb-e-pIVCvF)SYBQE%p~m?QFmK5Ni>q<+t7dGtf_tlvmZ82qh*K
z+Y=BpK|9>FGfj7mg$=WMTb#AcOMKdU-N&hLpf1z!!^~2lPdLDwiVJl_RGrU{BDn9T
zdRiiZsP6NsF-1AJe`OZ63)*0>&@pic)F6;z&@wmaDc`*Zl=4|{@je|iaFr9>HrL#%
z!8sJ8kHh)`mVR;&B<9wNPQpg<lz{`rSxY`c;c(qF&jR8rFU6gn*8bwXwKJ~V*QU6S
z`N+i&yvS5N8^vPV2r&(IX+&xF9KRG1h-+RuB9D<;1Dg?{`6yt!5$iU4{EcS*r^o;`
z26x|vxSeZ*Co;OL`;=BD&1c2(Pq#Sv42Quna&8mN9dfv}Mq_T7D)3taVLqeDv9$Z=
zSv&!qHwq61yUS0}O<7%6x2SuQ9Zm8C_c4+j%cwe{quDpuFXZ$a1!9;Z5K?`<g%#`&
zJ5vQdK7PuTbpSSoDQ+0Kp!v@IeorIwA9o7JW=q#kv!(B+F9BzdfBqlzI^3|0Gr&i;
z*mqmf7rFvBNRtRS0f8EUxqI)BT*P;emlET1zpN{p@1vq!Kj<f54(?z}pFJaz3K6EQ
z_<dtyR2)M0;rLJwJ@~N>cS@Sah_{tvks5i1g>Y0?8TgS1Pf<+QUGV!Kyf%~t-zGI1
zAmFcehd?vvUhIV*!EEvPt?IN_mhUmQEM=11W2eOdQ9e4ic@aWqd1(<iP4LbY<Ls4S
zdSFWU$~iNyVVcUBoLon+hCMe*ZOSiM-=YX2?K9@Qd4&r?cMYy2Ke+bgw0ycs%PLS%
z#eOFPFO~=B3DSL<rTrOwPf}9vLT==AiPv6+&^;6SLfXa_jsz_+tabaIVO{NU+gcFr
z7frWVxk=VD-U<j{Xq*YUS4j*_&_xlYK$qHR?LU7dh)7|upX)#Mv&93724Zgv^xP{q
S@H0^qYIn457u<aK^uGYu;Erto

diff --git a/man/citations-defunct.Rd b/man/citations-defunct.Rd
new file mode 100644
index 0000000..d8cb622
--- /dev/null
+++ b/man/citations-defunct.Rd
@@ -0,0 +1,12 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/citations.R
+\name{citations}
+\alias{citations}
+\title{This function is defunct.}
+\usage{
+citations(...)
+}
+\description{
+This function is defunct.
+}
+\keyword{internal}
diff --git a/man/citations.Rd b/man/citations.Rd
deleted file mode 100644
index 64bceb4..0000000
--- a/man/citations.Rd
+++ /dev/null
@@ -1,45 +0,0 @@
-% Generated by roxygen2: do not edit by hand
-% Please edit documentation in R/citations.R
-\name{citations}
-\alias{citations}
-\title{Search PLOS Rich Citations API}
-\usage{
-citations(uri = NULL, doi = NULL, parse = FALSE, ...)
-}
-\arguments{
-\item{uri}{(character) A URI, of the form \code{http://dx.doi.org/<DOI>}}
-
-\item{doi}{(character) A PLOS journals DOI}
-
-\item{parse}{(logical) Passed to \code{\link[jsonlite]{fromJSON}}, toggles
-whether we return json parsed to data.frame's where possible, or not.
-Default: FALSE}
-
-\item{...}{Curl options passed to \code{\link[httr]{GET}}}
-}
-\value{
-A list
-}
-\description{
-Search PLOS Rich Citations API
-}
-\details{
-To get an API key, email \email{ploslabs@plos.org} and request a key
-}
-\examples{
-\dontrun{
-# get citations for an article (via its DOI)
-# uri <- "http://dx.doi.org/10.1371\%2Fjournal.pone.0000000"
-# citations(uri)
-# citations(uri, parse = TRUE)
-
-# pass in a DOI, url encoded or not
-# citations(doi = "10.1371\%2Fjournal.pone.0000000")
-# citations(doi = "10.1371/journal.pone.0000000")
-# ids <- searchplos(q='ecology', fl='id', limit = 20)$data$id
-# citations(doi = ids[1])
-}
-}
-\references{
-\url{http://api.richcitations.org/}
-}
diff --git a/man/highplos.Rd b/man/highplos.Rd
index 8df6531..c1d61ae 100644
--- a/man/highplos.Rd
+++ b/man/highplos.Rd
@@ -200,9 +200,7 @@ highplos(q='alcohol', hl.fl='abstract', hl.snippets=5, rows=5)
 highplos(q='alcohol', hl.fl='abstract', hl.snippets=5, hl.mergeContiguous='true', rows=5)
 highplos(q='alcohol', hl.fl='abstract', hl.useFastVectorHighlighter='true', rows=5)
 highplos(q='everything:"experiment"', fq='doc_type:full', rows=100, hl.fl = 'title')
-}
 
-\donttest{
-highplos(q='alcohol', hl.fl = 'abstract', rows=1200)
+# highplos(q='alcohol', hl.fl = 'abstract', rows=1200)
 }
 }
diff --git a/man/plosabstract.Rd b/man/plosabstract.Rd
index 37d3cf2..a3e1d52 100644
--- a/man/plosabstract.Rd
+++ b/man/plosabstract.Rd
@@ -95,6 +95,5 @@ plosabstract(q = 'drosophila', fl='abstract', limit=10)
 plosabstract(q = 'drosophila', fl=c('id','author'), limit = 5)
 plosabstract(q = 'drosophila', fl='author', limit = 5)
 plosabstract(q = 'drosophila', fl=c('id','author','title'), limit = 5)
-plosabstract(q = 'drosophila', fl=c('id','author','title'), limit = 5, config=verbose())
 }
 }
diff --git a/man/rplos-defunct.Rd b/man/rplos-defunct.Rd
index f5d6202..e5c1fe9 100644
--- a/man/rplos-defunct.Rd
+++ b/man/rplos-defunct.Rd
@@ -7,5 +7,6 @@
 \itemize{
  \item \code{\link{crossref}}: service no longer provided - 
  see the package \code{rcrossref}
+ \item \code{\link{citations}}: service no longer available
 }
 }
diff --git a/tests/testthat/test-citations.R b/tests/testthat/test-citations.R
deleted file mode 100644
index ecd5067..0000000
--- a/tests/testthat/test-citations.R
+++ /dev/null
@@ -1,36 +0,0 @@
-# tests for searchplos fxn in rplos
-context("citations")
-
-# test_that("citations", {
-#   skip_on_cran()
-# 
-#   # get citations for an article (via its DOI)
-#   uri <- "http://dx.doi.org/10.1371%2Fjournal.pone.0000000"
-#   a <- citations(uri)
-#   b <- citations(uri, parse = TRUE)
-# 
-#   # pass in a DOI, url encoded or not
-#   c <- citations(doi = "10.1371%2Fjournal.pone.0000000")
-#   d <- citations(doi = "10.1371/journal.pone.0000000")
-#   ids <- searchplos(q = 'ecology', fl = 'id', limit = 20)$data$id
-#   e <- citations(doi = ids[1])
-#   
-#   # citations returns the correct classes
-#   expect_is(a, "list")
-#   expect_is(a$uri, "character")
-# 	expect_is(a$bibliographic, "list")
-#   expect_is(a$references, "list")
-#   expect_is(a$citation_groups, "list")
-#   expect_is(b$references, "data.frame")
-#   expect_is(c, "list")
-#   expect_is(d, "list")
-#   expect_is(e, "list")
-# 
-#   # citations works with uri escaped DOIs and those not escaped
-#   expect_equal(c, d)
-# 
-#   # citations fails well
-#   expect_error(citations(), "is not TRUE")
-#   expect_error(citations(uri = 5), "Not Found")
-#   expect_error(citations(doi = 5), "Not Found")
-# })