Определите, является ли дата GMT или BST

Question

У меня есть несколько дат (в UTC), например,

> dates <- as.POSIXct(c('2019-01-01', '2019-07-01', '2019-08-01'), tz = 'UTC')
> dates
[1] "2019-01-01 UTC" "2019-07-01 UTC" "2019-08-01 UTC"

Я хочу знать, каждая ли дата в моем векторе - в GMT или BST.

Так что приведенное выше даст

"GMT" "BST" "BST"

Answer 1

Возможно, это не лучший способ сделать это, но я получил то, что хотел, используя

library(lubridate)
ifelse(hour(force_tz(as.POSIXct(as.Date(dates)), tz = 'Europe/London')) == 1, 'BST', 'GMT')