Nothing
#' @rdname db_getter_backend
#' @export
get_irdd <- function(db_url = get_db_url("irdd")) {
check_if_packages_are_available("openxlsx")
check_connection_to_url(db_url)
# download data to temporary file
tempo <- tempfile()
utils::download.file(db_url, tempo, mode = "wb", quiet = TRUE)
# read data
irdd <- tempo %>%
openxlsx::read.xlsx(
sheet = 3,
startRow = 2,
colNames = FALSE,
rowNames = FALSE,
na.strings = c("?")
) %>%
dplyr::mutate_if(
sapply(., is.character),
trimws
) %>%
dplyr::transmute(
labnr = .[[7]],
c14age = .[[4]],
c14std = .[[6]],
site = .[[2]],
sitetype = .[[14]],
material = .[[26]],
lat = .[[19]],
lon = .[[20]],
shortref = .[[15]],
comment = .[[16]]
) %>%
dplyr::mutate(
sourcedb = "irdd",
sourcedb_version = get_db_version("irdd")
) %>%
as.c14_date_list()
# delete temporary file
unlink(tempo)
return(irdd)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.