# NOT RUN {
endp <- cosmos_endpoint("https://myaccount.documents.azure.com:443/", key="mykey")
db <- get_cosmos_database(endp, "mydatabase")
create_cosmos_container(db, "mycontainer", partition_key="sex")
list_cosmos_containers(db)
cont <- get_cosmos_container(db, "mycontainer")
delete_cosmos_container(cont)
# }
Run the code above in your browser using DataLab