How do you return "October" from x in this code?
x<-as.Date("2018-10-01")
attr()
month(x)
months(x)
as.month(x)