## Not run:
# if (!index_exists("twitter")) index_create("twitter")
# docs_create('twitter', type='tweet', id=1, body = list(
# "user" = "foobar",
# "post_date" = "2014-01-03",
# "message" = "trying out Elasticsearch"
# )
# )
# validate("twitter", q='user:foobar')
# validate("twitter", "tweet", q='user:foobar')
#
# body <- '{
# "query" : {
# "bool" : {
# "must" : {
# "query_string" : {
# "query" : "*:*"
# }
# },
# "filter" : {
# "term" : { "user" : "kimchy" }
# }
# }
# }
# }'
# validate("twitter", body = body)
# ## End(Not run)
Run the code above in your browser using DataLab