How to remove time-field string from a date-as-character variable?

Question

Suppose I have a variable like this

c<-c(\"9/21/2011 0:00:00\",  \"9/25/2011 0:00:00\",  \"10/2/2011 0:00:00\",  
\"9/28/2011 0:00:00\",  \"9/27/2011 0:00         


        

Answer 1

From the lubridate package: Use mdy_hms() to read in the characters as Month, Day, Year and Hours, Minutes, Seconds, then wrap with as.Date() to strip the time.

library(lubridate)
v <- c("9/21/2011 0:00:00",  "9/25/2011 0:00:00",  "10/2/2011 0:00:00",  
       "9/28/2011 0:00:00",  "9/27/2011 0:00:00")
v <- as.Date(mdy_hms(v))
v
# [1] "2011-09-21" "2011-09-25" "2011-10-02" "2011-09-28" "2011-09-27"

If you want to maintain the vector as character type, not date type:

v <- as.character(as.Date(mdy_hms(v)))