如何使用 DBI/dbplyr 將表寫入數據庫並保留日期字段？

Question

當我使用{DBI}和{dbplyr}將包含日期類型字段的表寫入數據庫時，該字段被強制為字符。 如何讓它作為日期類型寫入 SQL 服務器數據庫表？

library(DBI)
library(odbc)
library(dbplyr)

con.write <- dbConnect(drv = odbc(),
                       Driver = "SQL Server",
                       Server = "MYSERVER",
                       Database = "MYDATABASE")

cars <- mtcars %>%
  mutate(AsOfDate = as.Date('2022-01-24'))

查看日期字段的 class：

> class(cars$AsOfDate)
[1] "Date"

現在寫入數據庫並從數據庫中重新讀取。

dbWriteTable(con.write, name = "tmp_mtcars",
             value = cars, row.names = TRUE)

dbcars <- tbl(con.write, "tmp_mtcars") %>% collect()

觀察我們剛剛寫入數據庫的字段的class：

> class(dbcars$AsOfDate)
[1] "character"

Answer 1

一種解決方法是使用as.POSIXct而不是as.Date ：

cars <- mtcars %>%
  mutate(AsOfDate = as.POSIXct('2022-01-24'))

dbWriteTable(con.write, name = "tmp_mtcars",
             value = cars, row.names = TRUE)

dbcars <- tbl(con.write, "tmp_mtcars") %>% collect()

> class(dbcars$AsOfDate)
[1] "POSIXct" "POSIXt" 

我不確定使用as.Date與as.POSIXct的功能效果是什么。