# NOT RUN {
(conn <- SolrClient$new())
# create collection
if (!conn$collection_exists("foobar2")) {
conn$collection_create(name = "foobar2", maxShardsPerNode = 2)
}
# status
conn$collection_clusterstatus()$cluster$collections$foobar2$shards$shard1
# add replica
conn$collection_addreplica(name = "foobar2", shard = "shard1")
# delete replica
## get replica name
nms <- names(conn$collection_clusterstatus()$cluster$collections$foobar2$shards$shard1$replicas)
conn$collection_deletereplica(name = "foobar2", shard = "shard1", replica = nms[1])
# status again
conn$collection_clusterstatus()$cluster$collections$foobar2$shards$shard1
# }
Run the code above in your browser using DataLab