Fast R data.table way to create two new columns conditional on a function?

Question

I have a large data.table that has two date/time columns (X.Raw and Y.Raw) that must be read in as character because some entries contain "24:00".

I can do: