## Not run:
# cluster_settings()
# cluster_health()
#
# cluster_state()
# cluster_state(metrics = "version")
# cluster_state(metrics = "nodes")
# cluster_state(metrics = c("version", "nodes"))
# cluster_state(metrics = c("version", "nodes", 'blocks'))
# cluster_state("shakespeare", metrics = "metadata")
# cluster_state(c("shakespeare", "flights"), metrics = "metadata")
#
# cluster_stats()
# cluster_pending_tasks()
#
# body <- '{
# "commands" : [ {
# "move" :
# {
# "index" : "test", "shard" : 0,
# "from_node" : "node1", "to_node" : "node2"
# }
# },
# {
# "allocate" : {
# "index" : "test", "shard" : 1, "node" : "node3"
# }
# }
# ]
# }'
# # cluster_reroute(body = body)
#
# cluster_health()
# # cluster_health(wait_for_status = "yellow", timeout = "3s")
# ## End(Not run)
Run the code above in your browser using DataLab