Question

我有一些时间戳存储在不同的时区，我希望在DT文档中使用rmarkdown包中的数据表中包含这些时间戳。

我想在存储的时区中显示时间戳，但出于某种原因datatable将其转换为UTC。我使用print时的行为是我想要的，但格式不好。

如何使用datatable和print实现相同的行为？

这是rmarkdown文件的最小工作示例：

---
title: "MinorQ"
output: html_document
---

```{r setup}
library(DT)
df=data.frame(timestamp=as.POSIXct("2017-01-01 12:34:56",tz="CET"))
df$tzone=attr(df$timestamp,"tzone")
datatable(df)
print(df)
```

Answer 1

正如我在评论中提到的，您可以将POSIXct元素转换为字符：

input <- format(as.POSIXct("2017-01-01 12:34:56", tz = "CET"), format = '%F %T %Z')
str(input)

# chr "2017-01-01 12:34:56 CET"

这并不意味着您不能使用不同的时区。从表中阅读时，您可以使用gsub以正确的时区获取日期：

# First gsub: remove all capital letters (so only date and time remain)
# Sec.  gsub: remove all characters exept capital letters (so only CET, UTC, etc. remain).

out <- as.POSIXct(gsub(input, pattern = "[A-Z]", replacement = ""), 
                  format = '%F %T', 
                  tz     = gsub(input, pattern = "[^A-Z]", replacement = ""))

str(out)
# POSIXct[1:1], format: "2017-01-01 12:34:56"

lubridate::tz(out)
# [1] "CET"

如何在Rmarkdown中使用数据表（DT包）打印非UTC时间戳？

1 个答案: