# -------------------------------------------------------------------------------------------------------------------------  #
  #  -----------------------------------------------------------------------------------------------------------------------   #
  #                                                                                                                            #
  #           File Name              :  footnotes.r                                                                            #
  #           Last Updated Funclist  :  19 Feb 2015,  1:05 PM (Thursday)                                                       #
  #                                                                                                                            #
  #           Author Name            :  Rick Saporta                                                                           #
  #           Author Email           :  RickSaporta@gmail.com                                                                  #
  #           Author URL             :  www.github.com/rsaporta                                                                #
  #                                                                                                                            #
  #           Packages Called        :  NA                                                                                     #
  #           Packages Used via NS   :  NA                                                                                     #
  #                                                                                                                            #
  #  -----------------------------------------------------------------------------------------------------------------------   #
  #                                                                                                                            #
  #   orchardFootNote    ( cex=0.65, fontface=c("plain", "bold", "italic", "bold italic") )                                    #
  #                                                                                                                            #
  #                                                                                                                            #
  #                                                     <END FUNCS>                                                            #
  #  -----------------------------------------------------------------------------------------------------------------------   #
  # -------------------------------------------------------------------------------------------------------------------------  #

orchardFootNote <- function(cex=.65, fontface=c("plain", "bold", "italic", "bold italic")) {

  fontface <- match.arg(fontface)

  # ## Other format options not used
  # tim <- format(Sys.time(), "%a %b %e, %Y, %l:%M %p")
  # tim <- format(Sys.time(), "%l:%M %p %a, %v")

  tim <- format(Sys.time(), "%l:%M %p %A, %B %e, %Y", tz="America/New_York")

  ## Clean up the time stamp
  tim <- gsub("(^| ) +", "\\1", tim)
  tim <- gsub(" AM ", "am ", tim)
  tim <- gsub(" PM ", "pm ", tim)

  text <- sprintf("\nFor Internal use only.    Last Modified %s by DataAnalytics, The Orchard\n", tim)

  ## Alignment gets cropped. :/ 
  # textGrob(label=text, gp=gpar(cex=cex, fontface=fontface), just=c("right", "center"), x=0, hjust= -0.1, vjust=0.1)
  textGrob(label=text, gp=gpar(cex=cex, fontface=fontface))
}