## provide data on storage
data("crude")
dc <- as.DistributedCorpus(crude)
## do some preprocessing
dc <- tm_map(dc, tolower)
## retrieve available revisions
revs <- getRevisions(dc)
revs
## go back to original revision
setRevision(dc, revs[1])
Run the code above in your browser using DataLab