r - RSQLite を使用すると、データベース内の日付データはどうなりますか?

Question

大規模なデータセットを効率的に処理するために、RSQLite と dplyr を使い始めました。ただし、RSQLite で日付をフォーマットする方法や、ここにあるベスト プラクティスを調整することはできませんでした。以下の例は、私にとってプロセスが崩壊する場所を示しているはずです。

library(tidyverse)
library(RSQLite)

データ

日付は適切にフォーマットされています

date=seq(as.Date("1910/1/1"), as.Date("1911/1/1"), "days")
x=rnorm(length(date))
df1 <- tibble(date, x)
df1

# A tibble: 366 × 2
date           x
<date>       <dbl>
  1  1910-01-01  1.72459562
2  1910-01-02  0.88216253
3  1910-01-03 -0.35434587
4  1910-01-04 -0.63401467
5  1910-01-05  0.18136909
6  1910-01-06 -0.09513488
7  1910-01-07 -1.03252313
8  1910-01-08  0.40924962
9  1910-01-09  0.90759866
10 1910-01-10  0.60456596
# ... with 356 more rows

データベースを作成する

dbname = "test.sqlite3"
con <- dbConnect(SQLite(), dbname)

データベースに df1 を追加します

dbWriteTable(con, "test", df1, append=TRUE)

作成されたものを見てみましょう

dbListTables(con)
dbListFields(con, "test")

データベースに接続する

test_db <- src_sqlite(path=dbname)

デートどうした？

後続の処理で問題となる書式設定が失われます。

tbl(test_db, "test") 

Source:   query [?? x 2]
Database: sqlite 3.11.1 [test.sqlite3]
date           x
<dbl>       <dbl>
  1  -21915 -0.05640646
2  -21914 -0.05640646
3  -21913 -0.05640646
4  -21912 -0.05640646
5  -21911 -0.05640646
6  -21910 -0.05640646
7  -21909 -0.05640646
8  -21908 -0.05640646
9  -21907 -0.05640646
10 -21906 -0.05640646

RSQLite を使用しているときに日付を処理するための戦略を推奨できる人はいますか?