# NOT RUN {
(conn <- SolrClient$new())
# get list of nodes
nodes <- conn$collection_clusterstatus()$cluster$live_nodes
conn$collection_addrole(node = nodes[1])
conn$collection_removerole(node = nodes[1])
# }
Run the code above in your browser using DataLab