## Not run:
# # pass in as an R list
# # aggs <- list(aggs = list(stats = list(terms = list(field = "text_entry"))))
# # search_body(index="shakespeare", query=aggs)
#
# # or pass in as json query with newlines, easy to read
# aggs <- '{
# "aggs": {
# "stats" : {
# "terms" : {
# "field" : "text_entry"
# }
# }
# }
# }'
# # search_body(index="shakespeare", query=aggs)
#
#
# # or pass in collapsed json string
# aggs <- '{"aggs":{"stats":{"terms":{"field":"text_entry"}}}}'
# # search_body(index="shakespeare", query=aggs)
#
# # match query
# match <- '{"query": {"match" : {"text_entry" : "Two Gentlemen"}}}'
# # search_body(index="shakespeare", query=match)
#
# # multi-match (multiple fields that is) query
# mmatch <- '{"query": {"multi_match" : {"query" : "henry", "fields": ["text_entry","play_name"]}}}'
# # search_body(index="shakespeare", query=mmatch)
#
# # bool query
# mmatch <- '{
# "query": {
# "bool" : {
# "must_not" : {
# "range" : {
# "speech_number" : {
# "from" : 1, "to": 5
# }}}}}}'
# # search_body(index="shakespeare", query=mmatch)
#
# # Boosting query
# boost <- '{
# "query" : {
# "boosting" : {
# "positive" : {
# "term" : {
# "play_name" : "henry"
# }
# },
# "negative" : {
# "term" : {
# "text_entry" : "thou"
# }
# },
# "negative_boost" : 0.2
# }
# }
# }'
# # search_body(index="shakespeare", query=mmatch)
# ## End(Not run)
Run the code above in your browser using DataLab