今天終於來到最後一天了，但絕對不是終點
我們最後一天再把date及time在做一個完整的結束吧

這邊有個需要注意的地方，在設定format的時候需要注意大小寫的意思
%Y: 4-digit year (1982)
%y: 2-digit year (82)
%m: 2-digit month (01)
%d: 2-digit day of the month (13)
%A: weekday (Wednesday)
%a: abbreviated weekday (Wed)
%B: month (January)
%b: abbreviated month (Jan)

as.Date("1992-01-14")
as.Date("Jan-14-92", format = "%b-%d-%y")
as.Date("14 January, 1992", format = "%d %B, %Y")

這邊也可以利用日期來加上段句

today <- Sys.Date()
format(Sys.Date(), format = "%d %B, %Y")
[1] "14 十一月, 2018"
format(Sys.Date(), format = "Today is a %A!")
[1] "Today is a 星期三!"

不知不覺也做完30天了，不管如何，恩君還是會持續繼續學習