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