System Date and Time

Sys.time()

## [1] "2023-03-02 11:11:27 GMT"

## print with possibly greater accuracy:
op <- options(digits.secs = 6)
Sys.time()

## [1] "2023-03-02 11:11:27.951843 GMT"

options(op)

## locale-specific version of date()
format(Sys.time(), "%a %b %d %X %Y")

## [1] "Thu Mar 02 11:11:27 2023"

Sys.Date()

## [1] "2023-03-02"