Come definire +/- accedere come.difftime in R?

Question

Ho stringhe che rappresentano gli offset di tempo, che hanno + e - segni, come ad esempio:

string1 <- c("+00:30", "-07:00")

Come posso convertire questi in formato as.difftime? So che se non ci fossero segni, avrei potuto semplicemente scrivere as.difftime(string1, format = "%H:%M") e funzionerà. Tuttavia, non so come gestire i segni. Voglio utilizzare il risultato difftime per convertire l'ora UTC in LST.

Apprezzo il vostro tempo e il vostro aiuto in anticipo.

Answer 1

È possibile farlo utilizzando as.difftime e format = "%z" ma ci sono un paio di problemi. Innanzitutto, i due punti non sono una parte valida di un identificatore del fuso orario. Secondo, l'output sembra essere relativo al tuo fuso orario corrente. Ecco una funzione che ottiene rotondo quelli:

tz_to_difftime <- function(x, zero = "+0000") { 
    out <- as.difftime(c(zero, gsub("[: ]", "", x)), 
        format = "%z") 
    out[1] - out[-1] 
} 
tz_to_difftime("+05:30") 

Si noti che questo funziona solo per le differenze di fino a 14 ore in corrente R (meno su versioni precedenti).

Ecco un'alternativa usando strsplit:

tz_to_difftime2 <- function(x) { 
    as.difftime(sapply(strsplit(x, ":"), 
    function(x) as.numeric(x) %*% c(1, 1/60)), 
    units = "hours") 
} 

E se vi piacciono le cose più pipey (usando magtittr)

tz_to_difftime3 <- . %>% 
    strsplit(":") %>% 
    sapply(
    . %>% 
    as.numeric %>% 
    multiply_by_matrix(c(1, 1/60)) 
) %>% 
    as.difftime(unit = "hours") 

Questi ultimi due hanno il vantaggio che si prenderanno tutto il numero di ore .