as.Date()
{base}
convert to date
sample()
randomly sample from vector
library()
load R packages
paste()
concatenate character vectors with space between elements
today()
{lubridate}
return the current date
Sys.Date()
return system date
The end!