tests/testthat/helper-solrium.R

In ropensci/solrium: General Purpose R Interface to 'Solr'

conn <- SolrClient$new()
conn_plos <- SolrClient$new(host = "api.plos.org", path = "search", port = NULL)
conn_simp <- SolrClient$new(host = 'api.plos.org', path = 'search', port = NULL)
conn_comp <- SolrClient$new(host = 'api.plos.org', path = 'search',
                            port = NULL, errors = "complete")
conn_hathi <- SolrClient$new(
  host = "chinkapin.pti.indiana.edu", path = "solr/meta/select", port = 9994)
conn_dryad <- SolrClient$new(host = "datadryad.org", path = "solr/search/select",
                             port = NULL)

# cloud mode: create collection "gettingstarted"
up <- tryCatch(conn$collection_exists("gettingstarted"), error = function(e) e)
if (!inherits(up, "error")) {
  if (!conn$collection_exists("gettingstarted")) {
    conn$collection_create("gettingstarted")
  }
}

# fxn to determine if Solr instance is available or not
solr_missing <- function(con) {
  x <- tryCatch(suppressWarnings(readLines(con$make_url())), error = function(e) e)
  inherits(x, "error")
}