# NOT RUN {
con <- DBI::dbConnect(RSQLite::SQLite(), ":memory:")
data <- data.frame(
date = as.Date("2021-09-19")
)
DBI::dbWriteTable(conn = con, name = "dates", value = data )
data_from_bd <- dplyr::tbl(src = con, "dates") %>% dplyr::collect()
data_with_sqlite_dates <- data %>%
dplyr::mutate(
date = slu_date_to_sqlite(date)
)
print(data_from_bd)
print(data_with_sqlite_dates)
DBI::dbDisconnect(con)
# }
Run the code above in your browser using DataLab