# NOT RUN {
(ptd <- PlainTextDocument("A simple plain text document",
heading = "Plain text document",
id = basename(tempfile()),
language = "en"))
meta(ptd)
# }
Run the code above in your browser using DataLab