R/add_credits.R

In vlulla/vlutils: Common utilities that I find useful

add_credits <-
function() {
  ## Left credit
  ## grid::grid.text("vijaylulla.com", x=0.01, y=0.01, just='left',
  ##                 gp=grid::gpar(fontsize=8, col="#888888"))

  ## Right credit
  grid::grid.text(strftime(Sys.time(), "Plotted on: %Y.%m.%d %H:%M:%S%z"),
                  x=0.99, y=0.01, just='right',
                  gp=grid::gpar(fontsize=8, col="#888888"))
}