R/get_pacea.R

In ropensci/c14bazAAR: Download and Prepare C14 Dates from Different Source Databases

#' @rdname db_getter_backend
#' @export
get_pacea <- function(db_url = get_db_url("pacea")) {

  check_connection_to_url(db_url)

  # download and unzip data
  temp <- tempfile()
  utils::download.file(db_url, temp, quiet = TRUE)
  db_path <- utils::unzip(
    temp,
    file.path("PA20110001_S01.txt"),
    exdir = tempdir()
  )

  # read data
  db_raw <- data.table::fread(
    db_path,
    sep = "\t",
    encoding = "Latin-1",
    skip = 1,
    colClasses = "character",
    showProgress = FALSE
  )

  # remove files in file system
  unlink(temp)
  file.remove(db_path)

  # final data preparation
  pacea <- db_raw %>%
    base::replace(., . == "", NA) %>%
    dplyr::transmute(
      method = .data[["Date Type"]],
      labnr = .data[["Code"]],
      c14age = .data[["Age"]],
      c14std = .data[["s.dev."]],
      site = .data[["Site"]],
      sitetype = .data[["Site Type"]],
      feature = .data[["Site Function"]],
      period = .data[["Cultural Attribution 1"]],
      culture = .data[["Cultural Attribution 2"]],
      material = .data[["Sample"]],
      region = .data[["Region"]],
      country = .data[["Country"]],
      lat = .data[["Latitude"]],
      lon = .data[["Longitude"]],
      shortref = .data[["Biblio"]],
      comment = .data[["Notes"]]
    ) %>% dplyr::mutate(
      sourcedb = "pacea",
      sourcedb_version = get_db_version("pacea")
    ) %>%
    as.c14_date_list()

  return(pacea)
}