# 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")
# }
Run the code above in your browser using DataLab