The text can be freely defined as option. If user and date should be included by default, the following option using an expression will help:
DescToolsOptions(stamp=expression(gettextf('%s/%s',
Sys.getenv('USERNAME'), Format(Today(), fmt='yyyy-mm-dd') )))
For R results may not be satisfactory if par(mfrow=)
is in effect.