在R脚本中将历元时间（字符串）转换为人类可读的日期

我正在使用R脚本中的web请求从ArcGIS Rest服务检索数据。其中一个属性列不包含日期值。这些日期作为历元值字符串返回。我试图将这些历元字符串转换为人类可读的日期，但直到现在都没有用

请参阅下面我的可复制脚本。包含日期的列称为WVK_BEGDAT。此列的内容应转换为人类可读的日期

我尝试了几个通过谷歌找到的建议

library(httr)
library(sf)
library(lubridate)

url <- parse_url("https://services.arcgis.com/nSZVuSZjHpEZZbRo/arcgis/rest/services")
url$path <- paste(url$path, "NWB_Wegvakken/FeatureServer/0/query", sep = "/")
url$query <- list(where = "WEGBEHSRT = 'R' AND WEGNUMMER = '015'",
                  outFields = "*",
                  returnGeometry = "true",
                  f = "json")
request <- build_url(url)
request
NWB <- st_read(request, stringsAsFactors = FALSE)
plot(st_geometry(NWB))

NWB$WVK_BEGDAT2 <- as_date(NWB$WVK_BEGDAT, format="%d-%m-%Y", tz = "CET")

我得到的最接近的结果是使用lubridate包中的as_date函数。此函数至少不返回错误，bu用NAs填充列

有什么建议吗？提前感谢。

as.POSIXct应该可以做到：

as.POSIXct(as.numeric(NWB$WVK_BEGDAT)/1000, origin = "1970-01-01")

你必须除以1000，因为你的大纪元时间似乎是以毫秒为单位的