[R] Lose of decimal when using write.table to text file

[Bob Ly]

Good Day,

I have the following:
 >Date<-c("08/05/08","08/06/08","08/07/08")
 >Weight<-c(209.4,211.8,210.0)
 >planned.meal<-cbind(Date,Weight)
 >planned.meal
       Date    Weight
1  08/05/08,  209.4
2  08/06/08,  211.8
3  08/07/08,  210.0

 >write.table(planned.meal, file="plannedMeal1.txt",
+ quote=FALSE, row.names=FALSE)

output on vim editor:
Date Weight
08/05/08, 209.4
08/06/08, 211.8
08/07/08, 210

I'm missing the 210.0 from the data. Instead I got
210 in the file plannedMeal1.txt. I'm using R-2.9.0

Much is appreciated.