R/plot.copyright.R

Defines functions plot.copyright

# ----------------------------------------------------------------
# $Author: thm $
# $Date: 2011-11-23 11:11:32 +0100 (Wed, 23 Nov 2011) $
# $Rev: 183 $
# ----------------------------------------------------------------

plot.copyright <- function(){
  ## Prints copyright message to plot device

  this.year <- strftime(Sys.time(), format = "%Y")
  copyr.message <- paste("Copyright \u00A9", this.year,
                         "by Wegener Center")
  mtext(copyr.message, side=1, outer = TRUE, adj = 1, cex = 0.5)

  invisible()
}

Try the wux package in your browser

Any scripts or data that you put into this service are public.

wux documentation built on May 30, 2017, 8:22 a.m.