Or if you want a slightly prettier output:
formatDate<-function(x) {
return(paste(x$year,formatC(x$month,width=2,flag=0),
formatC(x$day,width=2,flag=0),sep="-"))
}
formatDate(p.dates)
Jim
On Thu, Nov 9, 2017 at 10:32 AM, David L Carlson wrote:
> How about
>
>> p_dates <- paste0(p.dates[[3]],
How about
> p_dates <- paste0(p.dates[[3]], "-", p.dates[[2]], "-", p.dates[[1]])
> myData$p_dates <- p_dates
> print(myData, right=FALSE)
dates p_dates
1 2017-10-01 1396-7-9
2 2017-10-02 1396-7-10
3 2017-10-03 1396-7-11
> str(myData)
'data.frame': 3 obs. of 2 variables:
$ dates : D
2 matches
Mail list logo
