Come fare differenza di orario nelle stesse unità sottraendo POSIXct

Question

Voglio sottrarre a POSIXct. Posso farlo ma a seconda della prima riga (credo?) La differenza sarà in secondi o minuti. Qui di seguito potete vedere il primo diff è in pochi secondi e la seconda diff è in minuti perché ho cambiato la differenza di tempo in prima fila:

#diff in seconds because 1st row time diff is small? 
t1<- as.POSIXct(c("2015-02-02 20:18:03 00:00:00", "2015-02-02 20:17:02 00:00:00"),"GMT") 
t2<- as.POSIXct(c("2015-02-02 20:18:02 00:00:00","2015-02-02 20:18:02 00:00:00"),"GMT") 
d<-data.frame(t1= t1, t2= t2) 
d$t1-d$t2 


#diff in seconds because 1st row time diff is larger? 
t1<- as.POSIXct(c("2015-02-02 20:13:03 00:00:00", "2015-02-02 20:17:02 00:00:00"),"GMT") 
t2<- as.POSIXct(c("2015-02-02 20:18:02 00:00:00","2015-02-02 20:18:02 00:00:00"),"GMT") 
d<-data.frame(t1= t1, t2= t2) 
d$t1-d$t2 

risultati:

> #diff in seconds because 1st row time diff is small? 
> t1<- as.POSIXct(c("2015-02-02 20:18:03 00:00:00", "2015-02-02 20:17:02 00:00:00"),"GMT") 
> t2<- as.POSIXct(c("2015-02-02 20:18:02 00:00:00","2015-02-02 20:18:02 00:00:00"),"GMT") 
> d<-data.frame(t1= t1, t2= t2) 
> d$t1-d$t2 
Time differences in secs 
[1] 1 -60 
> 
> 
> #diff in seconds because 1st row time diff is larger? 
> t1<- as.POSIXct(c("2015-02-02 20:13:03 00:00:00", "2015-02-02 20:17:02 00:00:00"),"GMT") 
> t2<- as.POSIXct(c("2015-02-02 20:18:02 00:00:00","2015-02-02 20:18:02 00:00:00"),"GMT") 
> d<-data.frame(t1= t1, t2= t2) 
> d$t1-d$t2 
Time differences in mins 
[1] -4.983333 -1.000000 

Vorrei che la differenza SEMPRE essere in pochi secondi, indipendentemente dalla differenza della prima riga. C'è un modo per farlo accadere?

Grazie.

Answer 1

È possibile utilizzare difftime per quella proponi che consente di specificare le unità di misura, ad esempio

difftime(t1, t2, units = "secs") 

Un altro modo (come menzionato da @nicola ed è presente nella stessa documentazione) è quello di approfittare di il fatto che - ha un metodo -.POSIXt e sovrascrivere le unità di misura dopo l'operazione di sottrazione utilizzando il metodo units<- sostituzione

res <- t1 - t2 
units(res) <- "secs"