How to convert long date frmat-CodePudding

I have Dataframe with a date in this format

"Sun Dec 26 2021 08:10:14 GMT 0100"

see the data frame below

Time                                Account Name    Type    Product ID  Successful
Sun Dec 26 2021 08:10:14 GMT 0100   switch  topup   MFIN-1-OR   undefined
Sun Dec 26 2021 08:10:14 GMT 0100   switch  topup   MFIN-1-OR   undefined
Sun Dec 26 2021 08:10:14 GMT 0100   switch  topup   MFIN-1-OR   undefined
Sun Dec 26 2021 08:10:14 GMT 0100   switch  topup   MFIN-1-OR   undefined
Sun Dec 26 2021 08:10:12 GMT 0100   switch  topup   MFIN-1-OR   TRUE
Sun Dec 26 2021 08:10:12 GMT 0100   switch  topup   MFIN-1-OR   TRUE
Sun Dec 26 2021 08:10:11 GMT 0100   switch  topup   MFIN-1-OR   TRUE
Sun Dec 26 2021 08:10:11 GMT 0100   switch  topup   MFIN-1-OR   TRUE
Sun Dec 26 2021 08:10:11 GMT 0100   switch  topup   MFIN-1-OR   TRUE
Sun Dec 26 2021 08:10:10 GMT 0100   switch  topup   MFIN-1-OR   TRUE
Sun Dec 26 2021 08:10:10 GMT 0100   switch  topup   MFIN-1-OR   TRUE

How do I convert it to something like this format below

"%y/%m/%d %H:%M:%S"

CodePudding user response：

Using strptime.

strftime(strptime('Sun Dec 26 2021 08:10:14 GMT 0100',
         '%a %b %d %Y %H:%M:%S GMT%z'), '%y/%m/%d %H:%M:%S'
)
# [1] "21/12/26 08:10:14"

In your data frame:

transform(dat, Time=strftime(strptime(Time, '%a %b %d %Y %H:%M:%S GMT%z'), 
                             '%y/%m/%d %H:%M:%S'))
#                Time x y
# 1 21/12/26 08:10:14 1 4
# 2 21/12/26 08:10:14 2 5
# 3 21/12/26 08:10:14 3 6

Data:

dat <- structure(list(Time = c("Sun Dec 26 2021 08:10:14 GMT 0100", 
"Sun Dec 26 2021 08:10:14 GMT 0100", "Sun Dec 26 2021 08:10:14 GMT 0100"
), x = 1:3, y = 4:6), class = "data.frame", row.names = c(NA, 
-3L))

CodePudding user response：

We could use mdy_hms function of lubridate package after some tweaking: i.e removing everything before first and after last space: Thanks to @jay.sf for the data:

library(dplyr)
library(lubridate)

dat %>% 
  mutate(Time = gsub(" [^ ]*$|^[^ ]* ","",Time,perl=T),
         Time = mdy_hms(Time)) %>% 
  as_tibble()

  Time                    x     y
  <dttm>              <int> <int>
1 2021-12-26 08:10:14     1     4
2 2021-12-26 08:10:14     2     5
3 2021-12-26 08:10:14     3     6