Eu tenho alguns dados numéricos de data do Excel:

> df <- data.frame(c(42613, 42612, 42614), c(42614.61, 42613.97, 42612.12))
> names(df) <- c("Closetime", "Opentime")

AmbosClosetime eOpentime estãonumeric. Quero preservar os dados de hora / minuto / segundo deOpenTime e adicione o horário '00: 00: 00 'a todas as datas emClosetime:

> df$Closetime <- paste(as.Date(df$Closetime, origin = '1900-01-01'), c('00:00:00'))

Fácil o suficiente para fazerClosetime, mas quando tento usarlubridate::date_decimal emOpentime, tudo vai para o inferno.

> df$Opentime <- date_decimal(df$Opentime)
> df
            Closetime             Opentime
1 2016-09-02 00:00:00 42614-08-11 15:36:00
2 2016-09-01 00:00:00 42613-12-21 01:12:00
3 2016-09-03 00:00:00 42612-02-13 22:04:48

Como posso obter os doisOpentime eClosetime ser do mesmo tipo / formato? Finalmente, estou procurando ser capaz de obter a diferença, em horas, entre os horários de cada coluna, para referência.