les points de terminaison sont toujours en UTC/GMT

Question

Je pense que les points d'extrémité sont générés en convertissant l'index en UTC. Je veux les points d'extrémité au changement de chaque heure 9: 00/10: 00 etc. (ou à mes intervalles définis spécifiques, disons à 9: 30/10: 30 etc.). Dans l'exemple ci-dessous l'objet 'a' est UTC et les points de terminaison sont créés à 4: 55,5: 55 etc, pour l'objet 'b' c'est à 10: 25,11: 25 etc. Je suis à la recherche d'un solution qui donne des points finaux de manière spécifique, quel que soit le fuseau horaire.

Existe-t-il un mécanisme simple pour le faire?

> head(a) 
         Open High  Low Close 
2008-01-01 04:30:00 6114.05 6126.65 6111.35 6111.35 
2008-01-01 04:35:00 6110.50 6130.65 6110.50 6128.90 
2008-01-01 04:40:00 6128.70 6130.15 6123.15 6123.55 
2008-01-01 04:45:00 6124.85 6131.90 6123.45 6131.55 
2008-01-01 04:50:00 6132.20 6134.45 6128.70 6131.20 
2008-01-01 04:55:00 6132.25 6134.85 6132.25 6134.45 
> indexTZ(a) 
    TZ 
"UTC" 
> a[endpoints(a,on="hours")] 
         Open High  Low Close 
2008-01-01 04:55:00 6132.25 6134.85 6132.25 6134.45 
2008-01-01 05:55:00 6136.70 6136.70 6132.15 6134.45 
2008-01-01 06:55:00 6157.65 6157.65 6153.20 6154.25 
2008-01-01 07:55:00 6155.65 6157.60 6155.00 6157.25 
2008-01-01 08:55:00 6143.25 6143.90 6137.50 6138.05 
2008-01-01 09:55:00 6150.95 6151.65 6147.50 6149.20 
2008-01-02 04:55:00 6113.40 6120.90 6089.00 6089.00 
2008-01-02 05:55:00 6086.15 6087.25 6068.80 6068.95 
2008-01-02 06:55:00 6098.10 6108.25 6098.10 6105.85 
2008-01-02 07:05:00 6107.40 6107.40 6093.70 6094.80 
> head(b) 
         Open High  Low Close 
2008-01-01 10:00:00 6114.05 6126.65 6111.35 6111.35 
2008-01-01 10:05:00 6110.50 6130.65 6110.50 6128.90 
2008-01-01 10:10:00 6128.70 6130.15 6123.15 6123.55 
2008-01-01 10:15:00 6124.85 6131.90 6123.45 6131.55 
2008-01-01 10:20:00 6132.20 6134.45 6128.70 6131.20 
2008-01-01 10:25:00 6132.25 6134.85 6132.25 6134.45 
> indexTZ(b) 
      TZ 
"Asia/Kolkata" 
> b[endpoints(b,on="hours")] 
         Open High  Low Close 
2008-01-01 10:25:00 6132.25 6134.85 6132.25 6134.45 
2008-01-01 11:25:00 6136.70 6136.70 6132.15 6134.45 
2008-01-01 12:25:00 6157.65 6157.65 6153.20 6154.25 
2008-01-01 13:25:00 6155.65 6157.60 6155.00 6157.25 
2008-01-01 14:25:00 6143.25 6143.90 6137.50 6138.05 
2008-01-01 15:25:00 6150.95 6151.65 6147.50 6149.20 
2008-01-02 10:25:00 6113.40 6120.90 6089.00 6089.00 
2008-01-02 11:25:00 6086.15 6087.25 6068.80 6068.95 
2008-01-02 12:25:00 6098.10 6108.25 6098.10 6105.85 
2008-01-02 12:35:00 6107.40 6107.40 6093.70 6094.80 
> 

Merci & Regds

Siva Sunku

Answer 1

endpoints calcule toujours des décalages UTC. Il n'y a rien que vous puissiez faire pour changer cela en tant qu'utilisateur final. Mais vous pouvez contourner le problème en comparant les points d'extrémité d'une heure avec les points d'extrémité de 30 minutes.

x <- .xts(1:12, seq(0, by=600, length.out=12), tzone="Asia/Kolkata") 
x[endpoints(x, "hours")] 
#      [,1] 
# 1970-01-01 06:20:00 6 
# 1970-01-01 07:20:00 12 
hourEndpointsTZ30 <- function(x) { 
    h <- endpoints(x, "hours", 1) 
    m <- endpoints(x, "minutes", 30) 
    c(0, setdiff(m, h), last(m)) 
} 
x[hourEndpointsTZ30(x)] 
#      [,1] 
# 1970-01-01 05:50:00 3 
# 1970-01-01 06:50:00 9 
# 1970-01-01 07:20:00 12