## let us generate a bunch of random timestamps until today
ts <- as.character(.POSIXct(runif(1e4) * unclass(Sys.time())))
## convert them using as.POSIXct
system.time(a <- as.POSIXct(ts, "GMT"))
## same using the fast method
system.time(b <- fastPOSIXct(ts, "GMT"))
identical(a, b)
Run the code above in your browser using DataLab