R/tools.time.R

Defines functions giveDate

giveDate <- function(date=T, time=T) {
  if(date && time)
    format(Sys.time(), "%Y.%m.%d %H:%M:%S")
  else if (date)
    format(Sys.time(), "%Y.%m.%d")
  else if (time)
    format(Sys.time(), "%H:%M:%S")
  else
    ''
}

Try the Dataset package in your browser

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

Dataset documentation built on May 2, 2019, 6:09 p.m.