UTC datetime을 시간대를 사용하여 로컬 datetime으로 변환

불행히도 시간대는 전체 벡터에 적용되는 단일 원자 속성으로 저장되기 때문에 단일 POSIXct 벡터 내에 다른 시간대를 가질 수 없습니다. 이 속성에 여러 시간대를 쓰려고하면 POSIXct에 대한 S3 메서드의 작동이 중지됩니다.

이것이 당신이 추구하고 싶은 것이 있다면 이러한 종류의 문제를 처리하기 위해 새로운 S3 클래스를 작성할 수 있습니다. 이러한 클래스의 맨 뼈는 다음과 같습니다.

POSIX_multi_tz <- function(UTC_times, time_zones)
{
  structure(as.numeric(UTC_times), 
            class = c("POSIXmulti", "POSIXt"), 
            tz = time_zones)
}

format.POSIXmulti <- function(x, ...)
{
  unlist(mapply(function(a, b) {
    format(as.POSIXct(a, origin = "1970-01-01"), tz = b, usetz = TRUE)
    }, a = x, b = attr(x, "tz"), SIMPLIFY = FALSE))
}

print.POSIXmulti <- function(x, ...)
{
  print(format(x, ...))
}

이렇게하면 다음과 같은 동작이 가능합니다.

df$new_time <- POSIX_multi_tz(df$start_time, df$timezone)

df
#>             start_time            timezone                new_time
#> 1  2020-07-08 00:01:15       Europe/Dublin 2020-07-08 00:01:15 IST
#> 2  2020-07-08 05:01:28 America/Los_Angeles 2020-07-07 21:01:28 PDT
#> 3  2020-07-20 20:45:33    America/New_York 2020-07-20 15:45:33 EDT
#> 4  2020-07-25 00:00:32 America/Los_Angeles 2020-07-24 16:00:32 PDT
#> 5  2020-07-09 22:00:39       Europe/London 2020-07-09 22:00:39 BST
#> 6  2020-07-17 04:30:30 America/Los_Angeles 2020-07-16 20:30:30 PDT
#> 7  2020-07-29 22:03:09       Europe/London 2020-07-29 22:03:09 BST
#> 8  2020-07-28 04:59:32 America/Los_Angeles 2020-07-27 20:59:32 PDT
#> 9  2020-07-21 00:09:54      America/Denver 2020-07-20 17:09:54 MDT
#> 10 2020-07-21 17:51:04       Europe/Dublin 2020-07-21 17:51:04 IST

하지만 조심하십시오-POSIXct 객체를 사용하는 방식으로이 클래스를 사용할 수 있으려면 여전히 약간의 작업이 필요합니다. 초를 더하고 빼기 위해 여전히 산술 함수를 사용할 수 있지만 lubridate패키지 또는 이와 유사한 것을 사용하는 경우 Ops기간, 기간 등을 추가하기 위해 다양한 것을 정의하지 않는 한이 클래스에 대해 많은 메서드가 작동하지 않습니다 .