R-如何在传单地图上显示本地时区标签

我有一些数据，其中包含使用Unix Epoch的时间引用。我已经使用lubridate包将其转换为本地时区，但是当我使用这些时间戳作为传单地图上点的标签时，我会在悬停在每个点上时获得默认的时间表示

可复制的示例如下：

library(data.table)
library(sf)
library(leaflet)

dat <- data.table(Created_Date = c(1602793179200,1602793854351,1603139828542),
                  x = c(172.6355172,172.6356425,172.635047),
                  y = c(-43.5323816,-43.5323746999999,-43.5321688999999))

# Our data seems to contain microseconds which doesnt work for Unix Epoch so I strip it down to 10 digits before converting to NZST
# This may be a lapse of my knowledge, please let me know if there's a proper way of handling this!
dat[ , Created_Date := as_datetime(as.integer(substring(Created_Date, 1, 10)), 
                                   tz = "NZ")]

dat <- st_as_sf(dat, coords = c("x", "y"), crs = 4326)

dat

         Created_Date                   geometry
1 2020-10-16 09:19:39 POINT (172.6355 -43.53238)
2 2020-10-16 09:30:54 POINT (172.6356 -43.53237)
3 2020-10-20 09:37:08  POINT (172.635 -43.53217)

m <- leaflet() %>%
  addTiles(urlTemplate = "https://{s}.tile.openstreetmap.org/{z}/{x}/{y}.png") %>%
  addCircles(
    data = dat,
    col = "red", opacity = 1, fillOpacity = 1, radius = 1, weight = 10,
    label = ~Created_Date
  )
m

库（data.table）
图书馆（sf）
图书馆（单张）
dat