Как я могу разобрать метки времени со смещением +13: 00 в R?

Question

Мне нужно проанализировать символы в ISO8601 с помощью R. Формат символов следующий:

%Y-%m-%dT%H:%M:%S%z

Один из примеров, вызывающих проблемы, следующий:

2000-01-02T13:00:00.000+13:00

Я могу удалить : в смещении UTC, но это ничего не дает.

Я использую rstudio 1.2.1335, работающую в док-контейнересборка из рокера / геопространственного: последняя по этому Dockerfile .Окружение R:

> sessionInfo()
R version 3.6.0 (2019-04-26)
Platform: x86_64-pc-linux-gnu (64-bit)
Running under: Debian GNU/Linux 9 (stretch)

Matrix products: default
BLAS/LAPACK: /usr/lib/libopenblasp-r0.2.19.so

locale:
 [1] LC_CTYPE=en_US.UTF-8       LC_NUMERIC=C               LC_TIME=en_US.UTF-8        LC_COLLATE=en_US.UTF-8     LC_MONETARY=en_US.UTF-8   
 [6] LC_MESSAGES=C              LC_PAPER=en_US.UTF-8       LC_NAME=C                  LC_ADDRESS=C               LC_TELEPHONE=C            
[11] LC_MEASUREMENT=en_US.UTF-8 LC_IDENTIFICATION=C       

attached base packages:
[1] stats     graphics  grDevices utils     datasets  methods   base     

other attached packages:
[1] parsedate_1.2.0  sos4R_0.4.0.9002 stringr_1.4.0    httr_1.4.0       webmockr_0.3.4   testthat_2.1.1  

loaded via a namespace (and not attached):
 [1] Rcpp_1.0.1         compiler_3.6.0     pillar_1.4.0       remotes_2.0.4      prettyunits_1.0.2  tools_3.6.0        digest_0.6.18     
 [8] packrat_0.5.0      pkgbuild_1.0.3     uuid_0.1-2         pkgload_1.0.2      memoise_1.1.0      tibble_2.1.1       lattice_0.20-38   
[15] anytime_0.3.3      pkgconfig_2.0.2    rlang_0.3.4        cli_1.1.0          rstudioapi_0.10    withr_2.1.2        xml2_1.2.0        
[22] fs_1.3.1           fauxpas_0.2.0      desc_1.2.0         devtools_2.0.2     rprojroot_1.3-2    grid_3.6.0         glue_1.3.1        
[29] R6_2.4.0           processx_3.3.1     sessioninfo_1.1.1  sp_1.3-1           callr_3.2.0        magrittr_1.5       rematch2_2.0.1    
[36] usethis_1.5.0      ps_1.3.0           backports_1.1.4    assertthat_0.2.1   RApiDatetime_0.0.4 stringi_1.4.3      crayon_1.3.4

Я пытался использовать lubridate, parsedate, anytime, но ни один из них, похоже, не в состоянии правильно проанализировать часовой пояс.

ВВ конце я попробовал решение, представленное здесь при переполнении стека со следующим результатом:

> timestring <- "2000-01-02T13:00:00.000+13:00"
> fmt <- "%Y-%m-%dT%H:%M:%S%z"
> cleanedTimestring <- gsub("(.*).(..)$","\\1\\2",timestring)
> parsedTime <- strptime(cleanedTimestring, fmt, tz = "UTC")
> str(parsedTime)
 POSIXlt[1:1], format: NA

При изменении смещения UTC на 12:00 и удалении миллисекунд .000, aПолучается почти полезный результат:

> timestring <- "2000-01-02T13:00:00+12:00"
> cleanedTimestring <- gsub("(.*).(..)$","\\1\\2",timestring)
> parsedTime <- strptime(cleanedTimestring, fmt, tz = "UTC")
> str(parsedTime)
 POSIXlt[1:1], format: "2000-01-02 01:00:00"
> parsedTime
[1] "2000-01-02 01:00:00 UTC"

Но это слишком сложная предварительная обработка, и я теряю информацию из-за пропущенных миллисекунд.

Я ожидаю, что смогу проанализировать строку типа 2000-01-02T13:00:00.000+13:00 в POSIXct, что приводит к следующему:

[1] "2000-01-02 13:00:00.000 NZDT"

или

[1] "2000-01-02T13:00:00.000+13:00"

Есть ли какая-либо библиотека, способная сделать это?

Помните,что я заранее не знаю часовой пояс временных меток.Они могут представлять собой смещения или идентификаторы UTC (например, +13:00|+1300 против NZDT.

Вам нужны какие-либо дополнительные сведения?

Answer 1

Если вам просто нужно указать как миллисекунды, а не миллисекунды, тогда вы можете сделать

timestring <- c(
  "2000-01-02T13:00:00.000+13:00",
  "2000-01-02T13:00:00+12:00"
)
formats <- c("%Y-%m-%dT%H:%M:%S%z", "%Y-%m-%dT%H:%M:%OS%z")
lubridate::parse_date_time(timestring, c("%Y-%m-%dT%H:%M:%S%z", "%Y-%m-%dT%H:%M:%OS%z"), exact=TRUE)
# [1] "2000-01-02 00:00:00 UTC" "2000-01-02 01:00:00 UTC"