dplyr日期以数字格式保存在sqlite

Question

我有一个数据框，其中包含日期变量，然后我将其写入sqlite文件，当我再次读取sqlite文件时，日期变量是数字格式。以下是我使用的代码：

>BOR<-tbl(database, "BOR")
>BOR<-as.data.frame(BOR %>%
                     select(RTK,Date,Day))

使用以下输出：

>str(BOR)
'data.frame':   341549 obs. of  3 variables:
 $ RTK : num  59506 59506 59506 59506 59506 ...
 $ Date: num  17571 17571 17571 17571 17571 ...
 $ Day : chr  "viernes" "viernes" "viernes" "viernes" ...

要使用日期格式，我使用一行，然后再次将BOR写入sqlite：

>BOR$Date<-as.Date(BOR$Date, origin = "1970-01-01")#format = "%Y-%m-%d")
>str(BOR)
$ RTK            : num  59506 59506 59506 59506 59506 ...
$ Date           : Date, format: "2018-02-09" "2018-02-09" "2018-02-09" "2018-02-09"
$ Day            : chr  "viernes" "viernes" "viernes" "viernes" ...
>copy_to(database, BOR, temporary = FALSE, overwrite = TRUE)

但是当我再次阅读时，它又是数字格式。

>BOR<-tbl(database, "BOR")
>BOR<-as.data.frame(BOR %>%
                     select(RTK,Date,Day))
>str(BOR)
'data.frame':   341549 obs. of  3 variables:
 $ RTK : num  59506 59506 59506 59506 59506 ...
 $ Date: num  17571 17571 17571 17571 17571 ...
 $ Day : chr  "viernes" "viernes" "viernes" "viernes" ...

我迷失在这个问题上，我想读取sqlite文件并按日期范围过滤它，我们必须将它作为data.frame将数字格式转换为日期格式，然后过滤日期范围。