Временная зона с ISO 8601

Question

При наличии времени строку в ISO формате 8601, как этот один:

"2016-07-04T17:00:00+02:00" 

, как я могу получить часовой пояс в качестве числового вектора из него в R?

Answer 1

Как вариант, этот способ может быть использован:

getTimeZone = function(time) 
{ 
    last = substring(time, nchar(time), nchar(time)); 
    if(last == 'Z') 
    { 
    return(0); 
    } 
    else 
    { 
    mins = as.numeric(substring(time, nchar(time)-1, nchar(time))); 
    hours = as.numeric(substring(time, nchar(time)-4, nchar(time)-3)); 

    timezone = hours + mins/60; 
    } 
} 

И сейчас, при выполнении этого:

a = getTimeZone("2016-07-04T12:00:00Z") 
b = getTimeZone("2016-07-04T12:00:00+02:30") 
a 
b 

Мы получаем следующий:

[1] 0 
[1] 2.5