data/birdrecoveries_eng.R

In mskyttner/swedishbirdrecoveries: Swedish Bird Recoveries (Data and User Interface)

library(DBI)
library(RSQLite)
library(dplyr)

BIRDS_DB <- file.path(.libPaths()[1],
 	"swedishbirdrecoveries", "extdata", "sbr.db")

con <- DBI::dbConnect(RSQLite::SQLite(), BIRDS_DB)

int_to_date <- function(x) as.Date(x, "1970-01-01")

birdrecoveries_eng <- dplyr::collect(dplyr::mutate(
 	tibble::as_tibble(DBI::dbReadTable(con, "birdrecoveries_eng")),
 		ringing_date = int_to_date(ringing_date),
 		recovery_date = int_to_date(recovery_date),
 		modified_date = int_to_date(modified_date)
 	))

# sbr_i18n <- tibble::as_tibble(
# 	DBI::dbReadTable(con, "birdrecoveries_i18n"))
#

DBI::dbDisconnect(con)