# A date from text: year-month-day
victory_date <- as.Date("1945-05-09")
# victory_date = 1945-05-09
# A moment from numbers: noon in GMT by default
victory_noon <- ISOdate(1945, 5, 9)
# victory_noon = 1945-05-09 12:00:00
# With a time and a time zone
victory_time <- ISOdatetime(1945, 5, 9, 1, 0, 0,
tz = "UTC")
# victory_time = 1945-05-09 01:00:00
# Trap: a day that does not exist gives no error
no_day <- ISOdate(1945, 2, 30)
# no_day = NA
cat("victory_date =", format(victory_date), "\n")
cat("victory_noon =", format(victory_noon), "\n")
cat("victory_time =", format(victory_time), "\n")
cat("no_day =", format(no_day), "\n")