#' Returns dataframe with POSIXct date vector of birth dates for each animal
#' in character vector id of the provided dataframe id_df.
#' Returns NA in vector if not available.
#'
#' Assumes access to master database table in animal database.
#' @param conn database connection
#' @param id_df dataframe with animal Ids in id column
#' @importFrom RODBC sqlQuery
#' @importFrom rmsutilityr blank_fill_ids vector2string
#' @importFrom stringi stri_c
#' @export
add_birth_date <- function(conn, id_df) {
ids <- id_df$id[!is.na(id_df$id)]
ids_str <- vector2string(unique(blank_fill_ids(ids)), SS = "','")
birth_dates_df <- sqlQuery(conn, stri_c(
"SELECT id, birth_date from master where id in ('", ids_str, "')"))
birth_dates_df$id <- blank_fill_ids(birth_dates_df$id)
id_df$id <- blank_fill_ids(id_df$id)
merge(id_df, birth_dates_df, by = 'id', sort = TRUE, all = TRUE)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.