Loading the library
library(lubridate)
Displaying todays date and time
today <- Sys.Date()
gmt_time <- Sys.time()
gmt_time <- with_tz(gmt_time, tzone = "GMT")
cat("Date of preparing document:", format(today, "%Y-%m-%d"), "\n")
Date of preparing document: 2024-05-08
cat("GMT Time of preparing document:",format(gmt_time, "%H:%M:%S"), "\n")
GMT Time of preparing document: 02:10:50