R - Index & Search documents from ElasticSearch

library(elastic)

# ====== Connection ====== #
# Connection to ElasticSearch
connect(es_host = "ELASTICSEARCH_IP:ELASTICSEARCH_PORT")

# ====== Inserting Documents ====== #
# Bulk inserting documents. From a json file included in the package.
plosdat <- system.file("examples", "plos_data.json", package = "elastic")
docs_bulk(plosdat)

# ====== Searching Documents ====== #
# Retrieving all documents in index (no query given)
documents = Search(index = "plos", size = 1)$hits$hits

# Retrieving documents in index that match a query
body <- '{
 "query": {
   "more_like_this": {
     "fields": ["abstract","title"],
     "like_text": "and then",
     "min_term_freq": 1,
     "max_query_terms": 12
   }
 }
}'
Search('plos', body=body)$hits$total