data("crude")
tmMap(crude, stemDoc)
headings <- function(object, ...) {
new("PlainTextDocument", Heading(object), DateTimeStamp =
Sys.time(), ID = ID(object), Language = Language(object))
}
inspect(tmMap(crude, headings))
Run the code above in your browser using DataLab