if (FALSE) { # requireNamespace("RSQLite", quietly = TRUE)
conn <- SCDB::get_connection(drv = RSQLite::SQLite())
dplyr::copy_to(conn, data.frame(birth = as.Date("2001-04-03"), "test_age")) |>
dplyr::mutate(age = !!age_on_date("birth", as.Date("2024-02-28"), conn))
DBI::dbDisconnect(conn)
}
Run the code above in your browser using DataLab