lubridate

I have some data that looks like this: dates <- structure(c(1L, 2L, 4L, 3L), .Label = c("Sat, 18 Nov 2017 00:00:00 GMT", "Thu, 16 Nov 2017 00:00:00 GMT", "Tue, 14 Nov 2017 00:00:00 GMT", "Wed, 15 Nov 2017 00:00:00 GMT"), class = "factor") I would like to convert it to a date format instead of having it as a factor. Additionally, I want to strip the 00:00:00 GMT because it is meaningless I tried lubridate but I'm having troubles with the format: library(lubridate) mdy(dates) Warning message: All formats failed to parse. No formats found. This looks like it is working: as.POSIXct(dates, format =

I want to calculate the average Dist for each week using these data (below) while preserving the benefits of a using the POSIXct time class. df <- structure(list(IndID = structure(c(1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L), class = "factor", .Label = "AAA"), Date = structure(c(1329436800, 1329458400, 1329480000, 1329501600, 1329523200, 1329544800, 1329566400, 1329588000, 1329609600, 1329631200, 1329652800, 1329674400, 1329696000,

I'm using package lubridate to parse a vector of heterogeneously-formatted dates and convert them to string, like this: parse_date_time(c('12/17/1996 04:00:00 PM','4/18/1950 0130'), c('%m/%d/%Y %I:%M:%S %p','%m/%d/%Y %H%M')) This is the result: [1] NA NA Warning message: All formats failed to parse. No formats found. If I remove the %p in the 1st format string, it incorrectly parses the 1st date string, and still doesn't parse the 2nd, like so: [1] "1996-12-17 04:00:00 UTC" NA Warning message: 1 failed to parse. The 4PM time in the string is parsed to 4AM in the result. Has anyone experienced

I wrote this function which I use all the time: # Give the previous day, or Friday if the previous day is Saturday or Sunday. previous_business_date_if_weekend = function(my_date) { if (length(my_date) == 1) { if (weekdays(my_date) == "Sunday") { my_date = lubridate::as_date(my_date) - 2 } if (weekdays(my_date) == "Saturday") { my_date = lubridate::as_date(my_date) - 1 } return(lubridate::as_date(my_date)) } else if (length(my_date) > 1) { my_date = lubridate::as_date(sapply(my_date, previous_business_date_if_weekend)) return(my_date) } } Problems arise when I apply it to a date column of a

I would like to retain my current date column in year-month format as date. It currently gets converted to chr format. I have tried as_datetime but it coerces all values to NA. The format I am looking for is: "2017-01" library(lubridate) df<- data.frame(Date=c("2017-01-01","2017-01-02","2017-01-03","2017-01-04", "2018-01-01","2018-01-02","2018-02-01","2018-03-02"), N=c(24,10,13,12,10,10,33,45)) df$Date <- as_datetime(df$Date) df$Date <- ymd(df$Date) df$Date <- strftime(df$Date,format="%Y-%m") Thanks in advance! lubridate only handle dates, and dates have days. However, as alistaire mentions,