Title: | Utility Functions for 'SQLite' |
---|---|
Description: | A tool for working with 'SQLite' databases. 'SQLite' has some idiosyncrasies and limitations that impose some hurdles to the R developer who is using this database as a repository. For instance, 'SQLite' doesn't have a date type and 'sqliteutils' has some functions to deal with that. |
Authors: | Bruno Crotman [aut, cre] |
Maintainer: | Bruno Crotman <[email protected]> |
License: | MIT + file LICENSE |
Version: | 0.1.0 |
Built: | 2025-02-15 03:54:36 UTC |
Source: | https://github.com/crotman/sqliteutils |
Converts dates stored on 'SQLite' to their original values
slu_date_to_r(date_sqlite)
slu_date_to_r(date_sqlite)
date_sqlite |
the numbers that result from inserting dates on 'SQLite' |
the dates that were originally inserted
data <- data.frame(date = as.Date("2021-09-18")) con <- DBI::dbConnect(RSQLite::SQLite(), ":memory:") DBI::dbWriteTable(conn = con, name = "dates", value = data ) data_from_bd <- DBI::dbReadTable(conn = con, name = "dates") original_date <- slu_date_to_r(data_from_bd$date) DBI::dbDisconnect(con)
data <- data.frame(date = as.Date("2021-09-18")) con <- DBI::dbConnect(RSQLite::SQLite(), ":memory:") DBI::dbWriteTable(conn = con, name = "dates", value = data ) data_from_bd <- DBI::dbReadTable(conn = con, name = "dates") original_date <- slu_date_to_r(data_from_bd$date) DBI::dbDisconnect(con)
Converts dates to the numeric values as which they would be stored on SQLite
slu_date_to_sqlite(date_r)
slu_date_to_sqlite(date_r)
date_r |
dates as returned by as.Date() in R |
integers that correspond to the numbers that are stored on SQLite when DBI:dbWriteTable
is used
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)
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)