Nothing
#' @rdname db_getter_backend
#' @export
get_adrac <- function(db_url = get_db_url("adrac")) {
check_connection_to_url(db_url)
# read data
adrac <- db_url %>%
data.table::fread(
drop = c(
"FEATURE_DESC",
"ASSOCIATION",
"REL"
),
colClasses = c(
"LABNR" = "character",
"C14AGE" = "character",
"C14STD" = "character",
"C13" = "character",
"MATERIAL" = "character",
"SITE" = "character",
"COUNTRY" = "character",
"FEATURE" = "character",
"PHASE" = "character",
"POTTERY" = "character",
"LAT" = "character",
"LONG" = "character",
"SOURCE" = "character"
),
showProgress = FALSE
) %>%
base::replace(., . == "", NA) %>%
dplyr::transmute(
labnr = .data[["LABNR"]],
c14age = .data[["C14AGE"]],
c14std = .data[["C14STD"]],
c13val = .data[["C13"]],
material = .data[["MATERIAL"]],
site = .data[["SITE"]],
country = .data[["COUNTRY"]],
feature = .data[["FEATURE"]],
period = .data[["PHASE"]],
culture = .data[["POTTERY"]],
lat = .data[["LAT"]],
lon = .data[["LONG"]],
shortref = .data[["SOURCE"]]
) %>% dplyr::mutate(
sourcedb = "adrac",
sourcedb_version = get_db_version("adrac")
) %>%
as.c14_date_list()
return(adrac)
}
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.