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