Create irregular sequence with lubridate in R

Question

I am attempting to create a time series in R using xts(). My dataset details passenger demand every 15 minutes from 06:30 to 22:00 from 2005-03-01 to 2005-03-21. With lubr