R/tools.time.R

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 Rsocialdata0 package in your browser

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

Rsocialdata0 documentation built on May 2, 2019, 5:55 p.m.