## Not run:
# (x <- Cushion$new())
#
# # create a database
# if ("sofadb" %in% db_list(x)) {
# invisible(db_delete(x, dbname="sofadb"))
# }
# db_create(x, dbname='sofadb')
#
# doc3 <- "<top><a/><b/><c><d/><e>bob</e></c></top>"
# doc_create(x, dbname="sofadb", doc=doc3, docid="newnewxml")
# doc_delete(x, dbname="sofadb", docid="newnewxml")
# doc_delete(x, dbname="sofadb", docid="newnewxml")
#
# # wrong docid name
# doc_create(x, dbname="sofadb", doc=doc3, docid="newxml")
# doc_delete(x, dbname="sofadb", docid="wrongname")
# ## End(Not run)
Run the code above in your browser using DataLab