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

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

Rsocialdata documentation built on May 2, 2019, 4:44 p.m.