## Not run:
# connect()
# msearch1 <- system.file("examples", "msearch_eg1.json", package = "elastic")
# readLines(msearch1)
# msearch(msearch1)
#
# cat('{"index" : "shakespeare"}', file = "~/mysearch.json", sep = "\n")
# cat('{"query" : {"match_all" : {}}, "from" : 0, "size" : 5}', sep = "\n",
# file = "~/mysearch.json", append = TRUE)
# msearch("~/mysearch.json")
# ## End(Not run)
Run the code above in your browser using DataLab