Você pode usar a função difftime
, mas lembre-se que a datas devem estar em formato em Date-Time
ou Date
.
Para transformar character
em Date-Time
:
Data1 <- "20/01/2018 20:33:58"
Data2 <- "21/01/2018 20:23:48"
# Converter
Data1 <- strptime(Data1, "%d/%m/%Y %H:%M:%S")
Data2 <- strptime(Data2, "%d/%m/%Y %H:%M:%S")
class(Data1)
> [1] "POSIXct" "POSIXt"
Calcular a diferença:
difer <- difftime(Data2, Data1, units = 'hour')
> Time difference of 23.99722 hours
Não sei o contexto que você quer utilizar, mas você pode usar um if else
para saber se a diferença é maior ou menor que 24h.
if(difer[[1]] > 24) {
"fazer algo se mais que 24"
}else{
"fazer algo se menos que 24h"
}